Lompat ke konten Lompat ke sidebar Lompat ke footer

Contoh Program Prosedur Sederhana


Contoh Program Prosedur Sederhana


Program Penjumlahan_2_bilangan;
uses crt;
var bil1,bil2: integer;

Procedure jumlahkan;
var hasilJum: integer;
begin
  hasilJum := bil1+bil2;
  writeln('hasil penjumlahan: ',hasilJum);
end;

BEGIN
  clrscr;
  writeln('masukan 2 bilangan');
  write('bilangan pertama: '); readln(bil1);
  write('bilangan kedua  : '); readln(bil2);
  jumlahkan;
END.