pascal实现算术运算代码

代码语言:pascal

所属分类:

代码描述:pascal实现算术运算代码

代码标签: 运算 算术

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

program ArithmeticTest;

uses sysutils
;

var
  i
, score, _random: integer;
 
FirstN, SecondN, answer, input: integer;

procedure
Generate();
begin
    randomize
;
   
FirstN := Random(10);
   
SecondN := Random(10);
end;

begin
  score
:=0;
  writeln
('For division questions answer how many times the number divides fully');
 
for i:=0 to 9 do
 
begin
    _random
:=Random(4);
   
if _random = 0 then
       
begin
         
Generate();
     
.........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码