循环结构程序设计之while和repeat循环.ppt

练习:编程找出最小的满足下述关系的四位 整数abcd:(ab+cd(ab+cd)=abcd。例如:2025, (20+25)*(20+25)=2025  第五讲用于未知次数的循环 while循环和 repeat循环  while语句 格式: while布尔表达式do 循环体 注:如果循环体是若于条语句需在循环体前 面加 begin,后面加 ena o  alse 布尔表达式 true 循环体  例:输出1100之间的奇数(For语句) Program ex; var x, y:integer; Begin for x:=l to 50 do begin y:=x*2-1; write(y: 4) writeln End  例:输出1-100之间的奇数( while语句) 温:加 Program ex var x: integer: Begin while x100 do begin write(x: 4); x:=x+2 end writeIn; End  练习:用 while语句编程算出以下算式: ,蓝温道加20 S=2+4+6+8+,+100; S=1+1/2+1/3+1/4+.+1/100 S=12+22+32+42+,+1002;  样程: program ex(input, out