math.txt

来自「一个编译器源代码。用法看里面的“使用说明”」· 文本 代码 · 共 15 行

Program(Math,Dos.MZ);
  Var(Num,Byte);
  Var(Original,Byte);
  Var(X,Byte,2);
Begin
  WriteLn('Give me a number between 1 and 4:');
  Original = Read;

  Num = Original - $30 * X + $30;
  WriteLn(Original+' * 2 is '+Num+'!');

  Num = Original - $30 / X + $30;
  WriteLn(Original+' / 2 is '+Num+'!');
  Wait;
End;