UC知道用Pascal语言编程序
来源：百度知道 编辑：UC知道 时间：2024/04/27 20:15:51
用Pascal语言编程序:
编写一个随机出题加法程序,要求出两道题,两道题都做对了才算通过,输出”PASS”,否则输出”NO”.
运行样式如下:
30+80= (自动显示)
110 (用户输入,答题)
20+80= (自动显示)
100 (用户输入,答题)
PASS (屏幕显示通过情况)
快!!!!!!!!!!!!!!!!!!
答得好再加20分
编写一个随机出题加法程序,要求出两道题,两道题都做对了才算通过,输出”PASS”,否则输出”NO”.
运行样式如下:
30+80= (自动显示)
110 (用户输入,答题)
20+80= (自动显示)
100 (用户输入,答题)
PASS (屏幕显示通过情况)
快!!!!!!!!!!!!!!!!!!
答得好再加20分
上面的做法很高手,不过有更容易理解的,也许是12冰一时没想到吧~呵呵
program jiafalianxi;
var
i,k,n,a,d:integer;
f:char;
t:boolean;
begin
t:=true;
for i:=1 to 2 do
begin
randomize;
k:=random(100);n:=random(100);
begin
a:=k+n;
f:='+';
end;
writeln(k,f,n,'=');
readln(d);
if d<>a then t:=false;
end;
if t=true then writeln('PASS!')
else writeln('NO!');
end.
这个方法试过了,也没问题.
随机数范围是多少？如下是0-100的范围：
program sz;
uses crt;
var a,b,x,y:array[1..2] of integer;
i,j:integer;
begin i:=0;
j:=0;
repeat
j:=j+1;
randomize;
begin
a[j]:=random(100);
b[j]:=random(100);
end;
x[j]:=a[j]+b[j];
write(a[j],'+',b[j],'=');
readln(y[j]);
if y[j]=x[j] then i:=i+1
else
begin