var a:array[1..100]of integer;n,i,t:integer;begin write('N='); readln(n);for i:=1 to n do read(a[i]);for i:=n div 2 do begin t:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=t;end;writeln('After:');for i:=1 to n do write(a[i],' ');writeln;end.
你的问题有错误：首先var x,y,z后面不是分号，是冒号。再就是这是一个声明x,y,z三个为整数的变量，integer是整数的数据类型，也可以这样声明：x:integer;y:integer;z:integer;因为x,y,z都是同一种数据类型，所以可以声明为x,y,z:integer。在Pascal语言中还有 8位有符号整数shortint 8位无符号...
习题5.1 1.裴波那契数列：数列1、1、2、3、5、8、13、21…称为裴波那契数列，它的特点是：数列的第一项是1，第二项也是1，从第三项起，每项等于前两项之和。编程输入一个正整数N，求出数列的第N项是多少？（N不超过30）。program Project1;VAR a:array[1..30] of longint;{建立一...
const dx:array[1..8] of integer=(0,1,1,1,0,-1,-1,-1);// 行坐标增量 dy:array[1..8] of integer=(1,1,0,-1,-1,-1,0,1);// 列坐标增量 var n,m:integer;// 迷宫长和宽 maze:array[1..100,1..100] of integer;// 迷宫 visited:array[1..100,1..100] of ...
已试过，是对的，望采纳，谢谢 程序如下：program fai0bonacai;var t,n:longint;p,l,f:real;begin read(n);p:=0;l:=1;t:=2;while t<>n do begin f:=p+l;p:=l;l:=f;t:=t+1;end;write(f:0:0);end.附图：fai
全部答案，普及组（Pascal语言）参考答案与评分标准 一、单项选择题：（每题1.5分）1. D 2. B 3. B 4. C 5. B 6.B 7. C 8. A 9. D 10. D 11. C 12. D 13. C 14. B 15. C 16. B 17. B 18. A 19. C 20. B 二、问题求解：（每题 5分）1． 4次 (1分)，...
这就是初学者常有的一个错误认识：Pascal是一种编程工具。实际上，Pascal是一种程序设计语言的名称（从一般意义上说，Pascal也可以是指人名，它的取名原本就是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal），而不是编程工具。刚才我是纯粹从字面意思上来回答这个问题。在中国的信息学奥林匹克竞赛...
向上三角形我编的是这样 var i，j，k，c，b：longint；begin read（b）；for i：=1 to b do begin for k：=0 to 4-i do write（'_'）；（下划线左右边是单引号，回车左边）下划线是空格）for j：=1 to 2*i-1 do write（'*')； （中间的是8上面的建【按Shift+...
8. Free Pascal在程序结束之前一定要关闭输出文件,否则输出文件可能不能被正确的写入。 9. Free Pascal理论上可以使用4GB的内存,因此实际上几乎可以使用系统中的所有剩余内存(除非赛题中有内存限制)。这是Free Pascal由于32位的编译器。但是对于Turbo Pascal来说,由于是16位的编译器,因此不能定义大小超过64KB的数据...
其实这题运用一下数学思想就能优化许多 纯粹的枚举肯定是 徒劳无功的 1/n=1/x+1/y=(x+y)/xy 所以xy=n(x+y) ===> y=nx/(x-n)而x枚举的范围 很容易知道 在n+1到2n n+1是因为它的倒数小于1/n 到2n是因为 枚举的最后一个肯定是1/2n+1/2n这个结果 当x比2n大的...