uses wincrt;
procedure tanya_hitung1;
var
x,y,h:real;
begin
write('Nilai x?');readln(x);
write('Nilai x?');readln(x);
h:=x*y;
writeln('Hasil perkalian= ',h:5:2);
end;
procedure tanya_hitung2;
var
x,y,h:real;
begin
write('Nilai x?');readln(x);
write('Nilai x?');readln(x);
h:=x+y;
writeln('Hasil penjumlahan= ',h:5:2);
end;
procedure menu;
var
j:integer;
begin
writeln('MENU HITUNG');
writeln('1.Perkalian');
writeln('2.Penjumlahan');
write('Pilih no?(1/2)');readln(j);
if j=1 then
begin
clrscr;
tanya_hitung1;
end;
if j=12 then
begin
clrscr;
tanya_hitung12;
end;
end;
begin
menu;
end.
Tidak ada komentar:
Posting Komentar