请学过pascal语言(也就是编程)的人来看看~
1.求2+4+6+……+99的值。2.输入N,求1/1+1/2+3/1+……1/N的值。3.求12+22+32+……+1002的值。4.计算N!{N*(N-1)*(N-2...
1.求2+4+6+……+99的值。
2.输入N,求1/1+1/2+3/1+……1/N的值。
3.求12+22+32+……+1002的值。
4.计算N!{N*(N-1)*(N-2)*……*3*2*1}。
5.先顺序输出26个英文字母,再倒序输出26个英文字母。
6.100以内,既能被3整除,又能被7整除的所有数。
请发家注意,这些全部要用pascal语言(编程)解决~请尽快~把题号和编程写完整~好的加分~ 展开
2.输入N,求1/1+1/2+3/1+……1/N的值。
3.求12+22+32+……+1002的值。
4.计算N!{N*(N-1)*(N-2)*……*3*2*1}。
5.先顺序输出26个英文字母,再倒序输出26个英文字母。
6.100以内,既能被3整除,又能被7整除的所有数。
请发家注意,这些全部要用pascal语言(编程)解决~请尽快~把题号和编程写完整~好的加分~ 展开
2个回答
2008-08-03
展开全部
1.
program Noname0;
var i:integer;
s:longint;
begin
s:=0;
i:=2;
while (i<=99) do begin
s:=s+i;
i:=i+2;
end;
writeln(s);
Readln;
end.
******************************************************
2.
program Noname0;
var i,n:integer;
s:real;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1.0/i;
write(s);
Readln;
end.
************************************************
3.
program Noname0;
var i:integer;
s:longint;
begin
i:=12;
s:=0;
while (i<=1002) do begin
s:=s+i;
i:=i+10;
end;
writeln(s);
Readln;
end.
************************************************
4.
program Noname0;
var n:integer;
j:int64;
begin
write('N=');
readln(n);
j:=1;
while(n>1) do begin
j:=j*n;
n:=n-1;
end;
writeln(j);
Readln;
end.
********************************************
5.
program Noname0;
var ch:char;
begin
for ch:='a' to 'z' do write(ch,' ');
writeln;
for ch:='z' downto 'a' do write(ch,' ');
writeln;
Readln;
end.
********************************************************
6.
program Noname0;
var i:integer;
begin
for i:=21 to 100 do
if (i mod 21=0) then write(i,' ');
writeln;
Readln;
end.
program Noname0;
var i:integer;
s:longint;
begin
s:=0;
i:=2;
while (i<=99) do begin
s:=s+i;
i:=i+2;
end;
writeln(s);
Readln;
end.
******************************************************
2.
program Noname0;
var i,n:integer;
s:real;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1.0/i;
write(s);
Readln;
end.
************************************************
3.
program Noname0;
var i:integer;
s:longint;
begin
i:=12;
s:=0;
while (i<=1002) do begin
s:=s+i;
i:=i+10;
end;
writeln(s);
Readln;
end.
************************************************
4.
program Noname0;
var n:integer;
j:int64;
begin
write('N=');
readln(n);
j:=1;
while(n>1) do begin
j:=j*n;
n:=n-1;
end;
writeln(j);
Readln;
end.
********************************************
5.
program Noname0;
var ch:char;
begin
for ch:='a' to 'z' do write(ch,' ');
writeln;
for ch:='z' downto 'a' do write(ch,' ');
writeln;
Readln;
end.
********************************************************
6.
program Noname0;
var i:integer;
begin
for i:=21 to 100 do
if (i mod 21=0) then write(i,' ');
writeln;
Readln;
end.
参考资料: FREE PASCAL 测试通过.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询