pascal程序怎么写

pascal语言是系统的，你要从头学习了才会啊

⒈一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）。 ⒉程序首部是程序的开头部分，它包括： ⑴程序标志。用“program”来标识“这是一个PASCAL 程序”。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。

⑵程序名称。由程序设计者自己定义，如例中的exam1。 在写完程序首部之后，应有一个分号。

⒊程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。 ⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。

PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称"说明"）。也就是说，不允许使用未说明先使用。 ⑵执行部分的作用是通知计算机执行指定的 *** 作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。 执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。 ⒋PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。 ⒌在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。

这条题目比较简单，不需要高精度，因为它只有七位数，直接longint搞定。程序如下：

var

i:longint;

function fj(x:longint):boolean;{自定义fj函数，用来分解数}

var

y,i:longint;{y为x的备份变量，i为循环变量}

a:array[09] of integer;{保存每个数字出现的次数}

begin

fillchar(a,sizeof(a),0);{数组每次初始化}

y:=x;{备份x}

while y>0 do begin{累计0~9每一个数字的出现次数}

inc(a[y mod 10]);

y:=y div 10;

end;

for i:=0 to 9 do

if a[i]>1 then begin{如果任意一个数字出现的次数>1，则退出}

fj:=false;

exit;

end;

if (sqr(trunc(sqrt(x)))=x) then fj:=true else fj:=false;

{否则进行最后一步判断，判断它是否为一个整数的平方}

end;

begin

for i:=1000000 to 9999999 do

if fj(i) then write(i:10);{最后输出}

readln;{用readln输入回车符，便于看结果，省的再从运行界面调回程序界面}

end

虽然有点儿超时，不过程序还是比较可读的，望采纳，谢谢！

你的程序完全正确，没有错误，我在TURBO PASCAL下编译和运行都成功。

如果你是在DELPHI下运行程序，需要在最前面添加下面一行：

{$apptype console$}

其它的WINDOWS下PASCAL环境可能有类似需求。

var a,b,c:integer;

begin

readln(a,b,c);

if (a<b)and(a<c) then writeln(a) else if (b<a)and(b<c) then writeln(b)

else writeln(c);

readln;

end

问题程序：

program a1;

const n=16;

var x,p,i:longint;

begin

write('x=');readln(x);

p:=1;

for i:=1 to n-1 do p:=pp;

writeln(x,'^',n,'=',p);

end

x的()次方的程序：

program a2;

var x,n,p,i:longint;

begin

write('x=');readln(x);

write('n=');readln(n);

p:=1;

for i:=1 to n-1 do p:=pp;

writeln(x,'^',n,'=',p);

end

y001:n的范围是0<n<10000

program y001;

var i,n:integer;

a:array[110000]of real;

he:real;

begin

read(n);

for i:=1 to n do a[i]:=1/i;

he:=0;

for i:=1 to n do he:=he+a[i];

writeln(he:5:5);

end

y002:n是年数，t是万吨。

program y002;

var n,i:integer;

t:real;

begin

n:=2005;

t:=3886;

for i:=2000 to n do

t:=t11;

writeln(t10000:5:5);

end

y003：n是年数m是钱数

program y003;

var n,i:integer;

m:real;

begin

read(n);

m:=100;

for i:=1 to n do m:=m108;

writeln(m:5:2);

end

y004:其实和y003一样就是多了个判断。

program y004;

var n,i:integer;

m:real;

begin

read(n);

m:=100;

if n<5 then

for i:=1 to n do m:=m108

else for i:=1 to n do m:=m11;

writeln(m:5:2);

end

以上就是关于pascal程序怎么写全部的内容，包括:pascal程序怎么写、pascal程序、超简单PASCAL 程序问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！