PROGRAM EX1_1;
uses crt;
const Title='Ex1_1. Operator';
author=' โดย นายองอาจ พรมประไพ';
Var a,b,s,d,p :integer;
q,x,y :real;
{MAIN}
begin
clrscr;writeln;
writeln(title);writeln;
writeln(author);writeln;writeln;
a:=5;
b:=8;
s:=a+b;
d:=a-b;
p:=a*b;
q:=a/b;
x:=a div b;
y:=a mod b;
writeln('เลขจำนวนที่ 1 =',a:10);
writeln('เลขจำนวนที่ 2 =',b:10);
writeln('ผลรวม =',s:10);
writeln('ผลต่าง =',d:9);
writeln('ผลคูณ =',p:9);
writeln('ผลหาร =',q:10:3);
writeln('หารปัดเศษ =',x:9:0);
writeln('หารเอาเศษ =',y:10:0); writeln;
write(' เคาะคีย์ใด ๆ'); readln;
end.
|
