program latihan_modular;
uses wincrt;
var
a,b,c:integer;
z:real;
procedure tambah;
var
c:byte;
begin
c:= a+b;
Writeln('Hasil a+b : ',c);
end;
procedure garis;
begin
writeln('=============================');
end;
procedure kurang;
begin
c:=a-b;
writeln('Hasil a-b : ',c);
end;
procedure perkalian;
begin
c:=a*b;
writeln('hasil a*b :',c);
end;
procedure pembagian;
begin
z:=a/b;
writeln('hasil a/b :',z:0:2);
end;
begin
writeln('Program Matematika Sederhana');
garis;
write('Nilai 1 : ');readln(a);
write('Nilai 2 : ');readln(b);
garis;
tambah;
garis;
kurang;
garis;
perkalian;
garis;
pembagian;
garis;
readln;
end.
Tidak ada komentar:
Posting Komentar