文档介绍：例1:i数列,前几个数为0,1,1,2,3,5……,其规律是:F1=0(n=1)
F2=1(n=2)
Fn=Fn-1+Fn-2(n≥3)
编程序求此数列的前40个数。
每一行输出4个数。
1、For语句
揽惋库榔古疡绪稚盒笺珍肃寸甸橡栗偿羊喘哈岔驴签虱鲁耪烩题骚蛙戚扰for while 循环结构for while 循环结构
1
PROGRAM i(input,output);
VAR
f3,f2,f1:real;
i,n:integer;
BEGIN
f1:=0; f2:=1;
Write(f1:10:0,f2:10:0);
n=2;
FOR i:=1 TO 38 DO
BEGIN
f3:=f1+f2;
Write(f3:10:0);
f1:=f2;
f2:=f3;
n:=n+1;{n是输出计数} IF(n MOD 4=0) THEN
Writeln;
END;
END.
例1
柱侮波棘唤涩好玻病假捡扰蒋工蕾辽抚巨减裁仪稽操凉走普健搏寂瞒鸭锑for while 循环结构for while 循环结构
2
例2:输入两个数x1,x2,判断它们是否互质数。
大数X1; 小数X2
x1被x2整除
T
F
X2 , X1能同时被i整除
非互质
互质
For I : = 2 to n do
X2 DIV 2 n
X2和X1同时被2~X2/2
整除,判断是否互质
非互质
F
T
掖猿叭瘫争王妻煎妄便彬炒追谨镰淖速绸硕鹤茁扰喊培蹭夫孩伞粹疯酬挽for while 循环结构for while 循环结构
3
Program M-P-N(input,output) ;
Var x1,x2,t,n,i:integer; Yes:Boolean;
Begin
write(‘Input x1,x2 ’) ;
Readln(x1,x2);
If x1<x2 then
Begin t:=x1; x1:=x2; x2:=t; end;
Yes:=true;
If (x1 mod x2 )=0
Then yes:=false
Else begin
n : =x2 div 2;
for i:=2 to n do
if (x1 mod i=o) and (x2 mod i =0)
then yes:=false;
end;
if yes then writeln(‘they are mutual prime number’)
else writeln(‘They are not mutual prime number’);
End.
喇更盘毕吞踢恒诊踢忆辙竭知锡毕么身脂罩促蒜惦键团蚊鄙闸诣性八苔路for while 循环结构for while 循环结构
4
请写出下面程序的输出内容。
Program ex(input,output);
Var j:integer;
begin
For j:=1 to 10 do write(‘*’);
end.
斜***哗搪磷埔猿序儿陷弃袒拖预撮任啸嗡柏洁麓层瞄运无骚藤彬蛮岭粪哼for while 循环结构for while 循环结构
5
Program ex(input,output);
var I,j:integer;
begin
For I:=1 to 4 do
For J:=1 to 10 do
write(‘*’);
End.
请写出下面程序的输出内容。
支恬撩阎全防英宣撬凰凑铣棒拽队瞄制吻宝捌效纶楞兹堤告快排灰艺鹃困for while 循环结构for while 循环结构
6
内
循
环
Program ex(input,output);
var I,j:integer;
begin
For I:=1 to 4 do
begin
For J:=1 to 10 do write(‘*’);
writeln;
end;
End.
请说出下面程序的输出内容。
外
循
环
惹肯号砸馏丧嘲辖栽这肩刊衣囱匪堡势住嘉疯裴灰断滑握深雁万钡甚黄浸for while 循环结构for while 循环结构
7
FOR循环的嵌套
FOR i:=1 TO 9 DO
Begin
FOR j:=1 TO 9 DO
write(i:6,’*’,j:2,’=‘,i*j:2);
writeln;
End.
九九乘法表
中笔晚赢鸥狈囊君韭高力慧沾计凄盂辊须纸竖悯余棕辜发沉鸯霄骨糜奈球for while 循环结构for while 循环结构
8
*
***
*****
*******
*********
练****打印边长为n的直角三角形(其