LATIHAN G NO 1

Program Subprogram;
uses wincrt;
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.

hasilnya