Langsung saja ketikkan listing dibawah ini di pascalnya ya..
program Sub_Program;
uses crt;
var hasil, nilai1, nilai2 : integer;
hbagi : real;
procedure Tambah;
begin
hasil := nilai1+nilai2;
writeln('Nilai X + Y = ',hasil);
end;
procedure Kurang(p, q : integer);
begin
hasil := nilai1 - nilai2;
writeln('Nilai X - Y = ',hasil);
end;function Kali : integer;
begin
Kali := nilai1 * nilai2;
end;
function Bagi(p,q : integer) : real;
begin
bagi := p/q;
end;
procedure tukar(var p, q : integer);
var r : integer;
begin
r := p;
p := q;
q := r;
end;
var pilih : integer;
begin
clrscr;
pilih := 0;
while (pilih <> 5) do
begin
writeln;
writeln(' Masukkan Pilihan Proses ');
writeln('-------------------------');
writeln(' 1. Penjumlahan');
writeln(' 2. Pengurangan');
writeln(' 3. Perkalian');
writeln(' 4. Pembagian');
writeln(' 5. Selesai');
writeln('-------------------------');
repeat
write('Masukkan Pilihan Anda : ');
readln(pilih);
until pilih in [1,2,3,4,5];
if pilih = 5 then exit;
write('Masukkan Nilai X : ');readln(nilai1);
write('Masukkan Nilai Y : ');readln(nilai2);
case pilih of
1 : tambah;
2 : begin
if nilai1 < nilai2 then
tukar (nilai1, nilai2);
kurang (nilai1, nilai2);
end;
3 : writeln('Hasil X * Y = ',Kali);
4 : begin
hbagi := bagi (nilai1,nilai2);
writeln('hasil X / Y = ',hbagi:10:4);
end;
end;
end;
end.
Jika sudah diketik maka gambarnya akan seperti dibawah ini
Dan hasilnya akan seperti di bawah ini
Keterangan:
Jika kita ingin melakukan perhitungan lagi maka masukkan pilihan dan jika tidak pilih pilihan 5
0 komentar:
Posting Komentar