切换到宽版
  • 5802阅读
  • 0回复

输出两个自然数相除的商和余数 [复制链接]

上一主题 下一主题
离线stevenjl
 

只看楼主 倒序阅读 0 发表于: 2005-12-25
解:设被除数、除数、商和余数,分别为A,B,C,D,均为变量,且都是整数类型。题中未给出具体的自然数A、B,可采用键盘输入方式。
  ① 给出提示,从键盘输入a, b;
  ② 显示两数相除的数学形式;
  ③ 求出a除以b的商c;
  ④ 求出a除以b的余数d;
  ⑤ 紧接等式后面输出显示商和余数。

Pascal程序:
Program Ex14;
  Var a,b,c,d : integer;
  Begin
    Write(''INPUT A,B:'');     {给出提示信息}
    Readln(a,b);           {输入a,b}
    Writeln;               {输出一空行}
    Write(a,''/'',b,''='');       {输出等式之后不换行}
    c:=a div b;             {整除运算,取商的整数部分}
    d:=a mod b;             {相除求余运算,取商的余数部分}
    Writeln(C,''…'',d);       {输出后自动换行 }
    Readln                 {等待输入回车键 }
  End.
Dream Walker...
快速回复
限100 字节
 
上一个 下一个