[例1.4] 输出两个自然数相除的商和余数。

　　解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。

　　①给出提示，从键盘输入a,b；

　　②显示两数相除的数学形式；

　　③求出a除以b的商c；

　　④求出a除以b的余数d；

　　⑤紧接等式后面输出显示商和余数。

　　Pascal程序:

　　ProgramEx14；

　　Vara,b,c,d:integer；

　　Begin

　　Write('INPUTA，B：')；｛给出提示信息｝

　　Readln(a，b)；｛输入a，b｝

　　Writeln；｛输出一空行｝

　　Write(a，'/'，b，'=')；｛输出等式之后不换行｝

　　c:=adivb；｛整除运算，取商的整数部分｝

　　d:=amodb；｛相除求余运算，取商的余数部分｝

　　Writeln(C，'…'，d)；{输出后自动换行}

　　Readln{等待输入回车键}

　　End.

　　执行本程序中第一个Write语句，输出其引号以内的一串提示信息，是给紧接着的输入语句提供明确的提示(要求)，有“一目了然，人机对话”之效果。

　　Readln是一个特殊的输入语句，要求输入一个回车(换行)才能往下执行。

　　Readln是输入语句，它的一般格式为:

　　①Read(变量1，变量2)；

　　②Readln(变量1，变量2)；

　　③Readln

　　前两种格式均要从键盘给变量输入数据，输入时，所键入的数据之间以空格为分隔，以回车为输入结束。若多输入了数据(即数据个数超过变量个数)，Read语句读完数据之后，能让后续的读语句接着读取多下来的数据；而Readln语句对本行多输入的数据不能让后续语句接着读取多下来的数据。为了防止多输入的数据影响下一个输入语句读取数据，建议尽量使用Readln语句输入数据。第三种格式不需输入数据，只需按入一个回车键。

下一页阅读：例1.5 的解题