Pascal之计算小系统

1 program Project16;
2
3 {$APPTYPE CONSOLE}
4 VAR
5 n,i,k,score,b,a:integer;
6 answer,c:real;
7 ch:char;
8 Begin
9 repeat
10 writeln(‘1.加法练习‘);
11 writeln(‘2.减法练习‘);
12 writeln(‘3.乘法练习‘);
13 writeln(‘4.除法练习‘);
14 writeln(‘5.退出系统‘);
15 score:=0; {得分初值为零}
16 k:=0; {答对题数初值为零}
17 write(‘请选择练习项目：‘);
18 readln(n);
19 writeln;
20 if n<>5 then
21 begin
22 if n=4 then writeln(‘结果保留两位小数‘); {除法运算时提示用户要保留两位小数}
23 writeln;
24 for i:=1 to 10 do
25 begin
26 write(‘第‘,i,‘题：‘);
27 randomize;
28 a:=random(10)+1;{产生1~10内的随机数}
29 b:=random(10)+1;
30 case n of
31 1: begin
32 write(a,‘+‘,b,‘=‘);
33 read(answer);
34 if answer=a+b then {判断输入的答案与正确答案是否相等}
35 begin
36 score:=score+10; {正确则加10分}
37 k:=k+1; {记录答对的题数}
38 writeln(‘ ‘:15,‘正确‘);
39 end
40 else writeln(‘ ‘:15,‘错误‘);
41 end;
42
43 2: begin
44 write(a,‘-‘,b,‘=‘);
45 read(answer);
46 if answer=a-b then
47 begin
48 score:=score+10;
49 k:=k+1;
50 writeln(‘ ‘:15,‘正确‘);
51 end
52 else writeln(‘ ‘:15,‘错误‘);
53 end;
54 3: begin
55 write(a,‘ב,b,‘=‘);
56 read(answer);
57 if answer=a*b then
58 begin
59 score:=score+10;
60 k:=k+1;
61 writeln(‘ ‘:15,‘正确‘);
62 end
63 else writeln(‘ ‘:15,‘错误‘);
64 end;
65 4: begin
66 write(a,‘÷‘,b,‘=‘);
67 read(answer);
68 c:=(round((a/b)*100))/100;
69 if answer=c then {正确答案保留两位小数}
70 begin
71 score:=score+10;
72 k:=k+1;
73 writeln(‘ ‘:15,‘正确‘);
74 end
75 else writeln(‘ ‘:15,‘错误‘);
76 end;
77
78 end;
79 end;
80 writeln;
81 write(‘你一个回答对了‘,k,‘道题，‘,‘得了‘,score,‘分。‘); {输出测试结果}
82 if score>=90 then writeln(‘Very Good!‘)
83 else if score>=80 then writeln(‘Good!‘)
84 else if score>=70 then writeln(‘Well‘)
85 else if score>=60 then writeln(‘Pass！‘)
86 else writeln(‘Fail！‘);
87 writeln;
88 write(‘你想继续选择练习项目吗?‘,‘ ‘:2,‘(Y/N)‘,‘ ‘:4); {判断用户是否想继续测试}
89 readln;
90 read(ch);
91 writeln
92 end;
93 until (ch=‘N‘)OR(CH=‘n‘)or(n=5);{输入N或n则表示用户退出测试}
94 end.