用free pascal 编写一个程序，在线等

编一个随机产生一个100以内的四则运算题，要求先输出这个四则运算的式子，这个四则运算的式子要能确保第一个数不小于第二个数，如果是除法的话要能确保能够整除，然后让用户输入结果，如果输入的结果正确则输出“Right!”否则输出“Error!”。

刚学FP，练习题不会了，高手们传个答案吧

先附上运行截图, 程序运行无误

如果回答对

如果回答错

附上程序:

const
  _operator: array[0..3] of Char = ('+', '-', '*', '/');
var
  m, n, r: Integer;
  res: Double;
  op: Char;
begin
  Randomize;//初始化随机环境
  res := 0;
  repeat
    m := Random(101);//0~100
    n := Random(101);//0~100
    op := _operator[Random(4)];//随机符号
    case op of
    '+':
    res := m + n;
    '-':
    res := m - n;
    '*':
    res := m * n;
    '/':
    begin
    if n = 0 then//除数为0, 则重新出一组
    Continue;
    res := m / n;
    if res - Trunc(res) > 0 then//如果不是整除
    Continue;
    end;
    end;
    if (res > 100) or (res < 0) then
    Continue
    else
    break;
  until False;
  Write(m, op, n, '=');
  Readln(r);
  if r = Trunc(res) then
    Writeln('rignt')
  else
    Writeln('error');
  Readln;
end.
不明白可以加Q 2723.99954讨论

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息