pascal实现算术运算代码-pascal代码-BFW代码库

搜索

pascal实现算术运算代码

下载在webide运行代码

代码语言：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();
         Answer := FirstN+SecondN;
         writeln(inttostr(FirstN)+' + '+inttostr(SecondN));
       end
    else if _random = 1 then
       begin
        Generate();
         Answer := FirstN-SecondN;
         writeln(intt.........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码

其他语言代码库

Html代码库 Python代码库 Java代码库 Php代码库 Phpcli代码库 Golang代码库 C#代码库 Nodejs代码库 C代码库 C++代码库 Sql代码库 R代码库 Rust代码库 Ruby代码库 Dart代码库 Vb代码库 D代码库 F#代码库 Typescript代码库 Coffeescript代码库 Julia代码库 Kotlin代码库 Perl代码库 Groovy代码库 Lua代码库 Vala代码库 Ocaml代码库 Assembly代码库 Objectc代码库 Scala代码库 Erlang代码库 Pascal代码库 Swift代码库 Fortran代码库 Bash代码库 Clojure代码库 Ada代码库 Elixir代码库 Cobol代码库 Haskell代码库 Nim代码库 Racket代码库 Lisp代码库