2UNTIL 12100 i1 sum0 sumsumI ii1 i100 sum

思考2：用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

开始 练习 x 1=1 x 2=2 c=0. 005 DO X=(X 1+X 2)/2 f(x 1)=x 1^2 -2 f(x)=x^2 -2 IF f(x)=0 THEN PRINT "方程根为："；x ELSE IF f(x 1)*f(x)<0 THEN x 2=x ELSE x 1=x END IF LOOP UNTIL ABS(x 1 -x 2)<c PRINT "方程的近似根为："；x END x 1=1, x 2=2 c=0. 005 f(x)=0? 否 是 否 f(x 1)f(x)<0? 是 x 2=x x 1=x 否 |x 1 -x 2|<c？ 是 输出x 结束

练习 2. 编写程序，计算函数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

变式训练(2): 编写程序求: 1× 3× 5× 7×……× 101的值. 直到型 开始 如何写程序? UNITL语句 i=1 S=0 S=S＊i S=S+i i=i+2 i=i+1 i>100? i>101? 是 输出S 结束 否 i=1 S=0 S=1 DO S=S+i S=S＊i i=i+1 i=i+2 LOOP UNTIL i>100 101 PRINT S END

巩固升华 1、设计一个算法框图：逐个输出 1 ，2 ，3 ，……，n ，并 2 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=0 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. P 33页A组T 3. 程序 INPUT “n=”; n i=1 S=0 WHILE i<=n S=S+(i+1)/i i=i+1 WEND PRINT “S=”; S END

4. P 33页B组T 2. 程序 n=1 p=1000 WHILE n<=7 p=p＊(1+0. 5) n=n+1 WEND PRINT p END

5. P 33页B组T 4. 程序 INPUT “a=”; a INPUT “n=”; n s=0 i=1 WHILE i<=n S=S+a a=a+10 ＊ a i=i+1 WEND PRINT s END