这是一个利用随机函数随机产生两个乘法算式,并由学生回答,计算机给出正确与否的判断,我是在Delphi环境下运行的,可是不知道为什么不能运行,各位帮忙看看啊
procedure TForm1.Button1Click(Sender: TObject);
var
name:string;
i:cardinal;
begin
i:=50;
setlength(name,i);
getcomputername(pchar(name),i);
edit1.Text:=name;
end;
program rand(input,output );
//产生乘法算式并判断正确答案
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x, y, z ,answer:integer ;
seed:real ;
//产生随机函数的说明
function rand(var seed:real):real;
const
a=93.0;
m=8192.0;
c=1.0;
begin
seed:=a*seed+c;
seed:=round((seed/m-trunc(seed/m))*m);
rand:=seed/m
end;
//主函数
begin
{ TODO -oUser -cConsole Main : Insert code here }
seed:=0.7823;
repeat
//产生两个2位的随机整数
x:=trunc(rand(seed)*100);
y:=trunc(rand(seed )*100);
write(x: 2,'*',y: 2,'=');
read(answer);//输入回答
writeln(answer:4);
z:=x*y; //给出回答是否正确的判断
if answer=z
then writeln('correct!')
else writeln('That is wrong!',z)
until answer=-1 //回答为-1时中止运算
end .
解决方案 »
- 为什么DELPHI里的指针不能象C++那样使用
- 英文系统下,保存汉字到sql server中
- 如何获得CD/DVD-RM/CDRW的硬件设备名称,版本号等信息!!!!!!在线等!!!!!!!!!!!!!!!
- 请问怎么样可以做一个类似qq的聊天软件?
- 急急急,求各位大虾帮忙看一题(用行列法求最小割集),分不够发帖再加
- 初级问题一则?大家多提意见
- 用过VB的朋友帮个忙,这样的功能在Delphi中如何实现
- --【¤ Delphi 技术提升、能力升华 讨论大会 ¤】-- 请各位高手指点迷津
- 有关数据库的问题
- 请问:如何将一个单机版的数据库应用系统过渡为网络版?
- 微软最新的VISTA系统不支持DELPHI吗?
- 我需要一个类似sqlserver中视图设计器类似的组件,大家谁用过给推荐一下的,谢谢了.
function rand标识符重复
procedure TForm1.Button1Click(Sender: TObject);
var
name:string;
i:cardinal;
begin
i:=50;
setlength(name,i);
getcomputername(pchar(name),i);
edit1.Text:=name;
end; 这段代码是做啥子的?放在前面
X, Y, Z, Answer: Integer;
begin
Randomize;
repeat
//产生两个2位的随机整数
X := Random(100); //Trunc(Random * 100);
Y := Random(100); //Trunc(Random * 100);
Write(X:2, '*', Y:2, '=');
Read(Answer); //输入回答
Writeln(answer:4);
Z := X * Y; //给出回答是否正确的判断
if Answer = Z then
Writeln('correct!')
else Writeln('That is wrong!', Z);
until answer = -1; //回答为-1时中止运算
end.