1UNTIL 12100 i1 sum0 sumsumi ii1 i100 sum

思考1：用UNTIL语句编写计算机程序，来计算 1+2+…+100的值. 程序框图： 程序： 开始 i=1 sum=0 sum=sum+i i=i+1 i>100? 是 输出sum 结束 否 i=1 sum=0 DO sum=sum+i i=i+1 LOOP UNTIL i>100 PRINT sum END

INPUT “n=”; n i=2 DO IF n MOD i=0 THEN PRINT n; “不是质数” ELSE i=i+1 END IF LOOP UNTIL i>(n-1) PRINT n; "是质数. " END

练习巩固 1、设计一个算法框图：逐个输出 12，22，32，……，n 2，并 写出相应的QBASIC程序。 开始 INPUT n i=0 i = i+1 : t=i^2 PRINT t 否 i>=n? 是 结束 INPUT n i=0 WHILE i < n i=i+1 t=i^2 PRINT t WEND INPUT n i=0 DO i=i+1 t=i^2 PRINT t LOOP UNTIL i > = n END

2、设计一个算法框图：求满足 1＋2 ＋ 3 ＋ … ＋ n＞ 10000 的最小正整数n，并写出相应的QBASIC程序。 开始 i=0，Sum=1 i=i+1 i=0 sum = 0 DO i=i+1 Sum=Sum+i 否 Sum>10000? 是 输出i sum = sum + i LOOP UNTIL sum>10000 PRINT i END 结束

3. 编写程序，计算函数f(x)=x 2 -3 x+5当x=1, 2, 3, …，20时的函数值。 x=1 WHILE x<=20 y=x^2 -3*x+5 PRINT "x="; x PRINT "y="; y x=x+1 WEND