Program Operasi Hitung

Ngepost dulu ahh sebelum tidur. Tadi pas praktikum di LAB kita diajarin tentang "PROCEDURE" sama Pak Dody. Ini contoh program yang menggunakan teknik prosedur. Untuk penjelasan mengenai Procedure bisa dibaca di modul praktikum masing masing (lagi males ngetik). Silakan disimak codenya:

==================================================

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:integer;
  procedure penjumlahan;
  begin
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a+b;
  write(a, ' + ', b, ' = ',c);
  end;

    procedure pengurangan;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a-b;
  write(a, ' - ', b, ' = ',c);
  end;

    procedure perkalian;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a*b;
  write(a, ' x ', b, ' = ',c);
  end;

    procedure pembagian;
    var d:real;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  d:=a div b;
  write(a, ' : ', b, ' = ',d:4:2);
  end;
begin
write('Program Operasi Hitung by Yudik');
writeln;
writeln;
write('===============================');
writeln;
writeln;

  penjumlahan;
  readln;

  pengurangan;
  readln;

  perkalian;
  readln;

  pembagian;
  readln;
end.


===========================================================

Ini penampakan setelah dijalankan:

Sekian untuk postinganku kali ini. Selamat malam, sampai bertemu di postinganku selanjutnya..