PROGRAM MENGHITUNG KELILING PERSEGI PANJANG

Iseng baca-baca modul praktikum terus nemuin soal no 3 di tugas halaman 5. Soalnya kayak gini "Buatlah program Pascal yang menerima 2 buah masukan bilangan bulat untuk menghitung keliling persegi panjang"

Nah lo, itu tulisan Pascal'nya kok dicoret, ya jelas dong, aku buatnya kan di Delphi. Tapi apapun programnya minumnya kopi (biar gak ngantuk pas coding). Tanpa basa-basi lagi, ini code yang udah aku buat:

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  p:integer;
  l:integer;
begin
write('Program Menghitung Keliling Persegi Panjang');
writeln;
writeln;
write('by I Dewa Gde Ari Wahyudi');
writeln;
writeln;
writeln('=========================');
writeln;
write('tekan ENTER untuk melanjutkan'); readln;
writeln;
write('Input panjang  = '); readln(p);
writeln;
write('Input lebar    = '); readln(l);
writeln;
write('Keliling       = ',2*p +2*l or 2*(p+l));readln;
end.

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

Ini penampakan hasilnya:

Mudah bukan? Selamat mencoba...