编程计算题目10.ppt

编程计算10! SET TALK OFF P=1 N=1 DO WHIL N=10 P=P*N N=N+1 ENDDO ?’P=’,P SET TALK ON RETU 编程计算S=1+2+ ??????+100 S=0 FOR i=1 TO 100 S=S+i NEXT ?’S=’，S 编程显示入学成绩大于400.0的学生的姓名 USE xsda SCAN FOR 入学成绩400.0 ?姓名 ENDSCAN USE 求3到200之间的素数 M=3 DO WHIL M=200 i=2 DO WHIL i=M-1 IF INT(M/i)=M/I EXIT ENDIF i=i+1 ENDDO IF i=M ??M ENDIF M=M+2 ENDDO RETU 例 YMJ=0 @5,10 SAY ’请输入半径：’ GET BJ DEFAULT 0 READ DO JS WITH BJ,YMJ ?’YMJ=’,YMJ RETU PARA R,S S=PI()*R*R RETU 例 PARA A,B RETURN IIF(A=0,’无解’,-B/A) ?’X:’,ROOT(3,1) CLEAR @5,10 SAY ‘一次项系数:’ GET A DEFAULT 1 @7,10 SAY ‘常数项:’ GET B DEFAULT 0 READ ?’X:’,ROOT(A,B) FUNCTION ROOT PARA U,V RETU IIF(A=0,’无解’,-B/A) CLEAR YMJ=0 @5,10 SAY ’请输入半径：’ GET BJ DEFAULT 0 READ DO JS WITH BJ,YMJ ?’YMJ=’,YMJ RETU PROC JS PARA R,S S=PI()*R*R RETU CLEAR YMJ=0 @5,10 SAY ’请输入半径：’ GET BJ DEFAULT 0 READ DO JS WITH BJ,YMJ IN JS1 ?’YMJ=’,YMJ RETU PROC JS PARA R,S S=PI()*R*R RETU 求梯形面积 CLEAR INPUT ‘请输入上底：’ TO D1 INPUT ‘请输入下底：’ TO D2 INPUT ‘请输入高：’ TO H S=0 DO SUB WITH D1,D2,H,S ?’梯形面积’,S PARA A,B,C,D D=(A+B)*C/2 RETU