1分Р S=SQR(3)/4*a^2 3分Р V=S* 4分Р PRINT V 5分Р END 6分Р18.解:S1 令i=1,s=0 1分Р S2 若,执行S3;否则,输出S,结束算法; 3分Р S3 4分Р S4 i=i+1,返回S2。 5分Р程序框图: 1分Р 2分Р 4分Р5分Р 7分Р6分Р19.(法一) INPUT x 1分Р IF THEN 2分Р Р END IF 4分Р IF THENР Р END IF 7分РIF THENР Р END IF 10分Р PRINT y 11分Р END 12分Р(法二) INPUT x 1分Р IF THEN 2分Р Р ELSE 4分Р IF THENР Р ELSE 7分Р Р END IF 9分Р END IF 10分Р PRINT y 11分Р END 12分Р20.解:当型循环语句如下: n=1 Р WHILE n<=99 1分Р r = n MOD 7Р IF r = 0 THENР PRINT nР END IF 4分Р n=n+1Р WEND 5分Р END 6分Р直到型循环语句如下:n=1 Р DO 1分Р r = n MOD 7Р IF r = 0 THENР PRINT nР END IF 4分Р n=n+1Р LOOP UNTIL n>99 5分Р END 6分Р21、Р 2分Р 3分Р4分Р 6分Р5分Р程序: i=1РS=5000 1分Р WHILE S< =30000 2分Р S= (1+0.1)*SР i=i+1Р WEND 4分Р PRINT i-1 5分Р END 6分Р22、(1) ① 3分Р ②p=p+i 6分Р (2) i=1Р P=1Р S=0 3分Р WHILE i <=30Р S=S+PР P=P+ iР i=i+1Р WEND 6分РPRINT S 7分РEND 8分
全文预览