急急急,帮我编PASCAL

发布网友 发布时间：2022-05-20 16:30

我来回答

共6个回答

热心网友 时间：2023-11-01 07:50

一下提那么多问题，哪有工夫一个个答,我就答第一个和最后一个吧!
1.计算s=1+1/2+1/3+1/4+……+1/100
program sum;
var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s);
end.

10.验证歌德*猜想：
程序说明：输入任意整数s，输出2至2s的所有偶数用两个质数和表示形式
program gedebahe;
var
s,n,p,q,j,i:longint;
hs:boolean;
begin
readln(s);
for i:=2 to s do
begin
n:=2*i;
for p:=2 to n div 2 do
begin
q:=n-p;
hs:=false;
if not hs then
for j:=2 to round(sqrt(p)) do
if p mod j=0 then
begin
hs:=true;
break;
end;{then}
if hs then continue;
for j:=2 to round(sqrt(q)) do
if q mod j=0 then
begin
hs:=true;
break;
end;{then}
if hs then continue;
break;
end;{for}
writeln(n,'=',p,'+',q);
end;{for}
readln;
end.{main}

热心网友 时间：2023-11-01 07:50

这些题目很简单，只要回枚举和递归就很容易做出来

热心网友 时间：2023-11-01 07:51

上面写错了
program
xx(INPUT,OUTPUT);
var
a,b:integer;
begin
i:=0
while
i<10
do
writeln('please
input
a
number');
read(a);
writeln('a=',a);
b:=b+a*a;
i:=i+1;
end.
writeln('b=',b);
end.

热心网友 时间：2023-11-01 07:51

program
xx
var
a,b:integer;
begin
writeln('please
input
a
number');
read(a);
writeln('a=',a);
b:=a*a;
writeln('b=',b);
end.
好久没有写了,不
知道对不对

热心网友 时间：2023-11-01 07:52

楼上的在while
i<10
do后面还漏了begin，b没给初值
楼上求的是10个正方形面积和，不知道楼主是要分别求面积，还是求和

热心网友 时间：2023-11-01 07:53

var
i,j,k,:integer;
begin
for
i:=1
to
10
do
begin
read(j);
k:=j*j;
write(k);
end;
end.