02Pascal循环结构(7)

习x_5、计算下列算式的值：12+22+32+42+??+1002 （使用while语句） program x_5;

var k:integer;

s:longint; begin

s:=0; k:=12; while k<=1002 do begin

s:=s+k; k:=k+10; end;

writeln(’s=’,s); end.

习x_6、输入30个数，统计其中的正数、负数、零的个数。Program x_6;

Var i,x,a,b,c:integer; Begin

a:=0; b:=0; c:=0;

For i:=1 to 30 do Begin

Read(x);

if x>0 then a:=a+1

else if x=0 then c:=c+1 else b:=b+1; end;

writeln(’zs=’,a, ’fs=’,b, ’ling=’,c); end.

习x_7、写出下面算式的程序：s=1×3×5×7×??×49。（使用while语句） program s; var

n:integer; s:longint; begin

s:=1; n:=1; while n<=99 do begin

s:=s*n; n:=n+2; end;

writeln(s); end.

习x_8、打印下面的图形 ###

######### 5 ####### 4 ##### 3 ###

#

program x_7;

var m,n:integer; begin

writeln(‘###’:11);

for m:=5 downto 1 do begin

wirte(‘ ‘:10-m);

for n:=1 to 2*m-1 write(‘#‘)； end; writeln; end.

do 习x_9、编程找出满足下述关系的四位整数abcd：

(ab+cd)(ab+cd)=abcd。例如：2025，（20+25）*（20+25）=2025

program x_9; var

s,ab,cd:integer; begin

for s:=1000 to 9999 do begin

ab:=s div 100; cd:=s mod 100;

if sqr(ab+cd)=s then write(s:6); end; writeln; end.

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库02Pascal循环结构(7)在线全文阅读。