Pertama, buka aplikasi Turbo Pascal. Lalu tulis seperti dibawah ini..
PROGRAM Hitung;
USES Crt;
TYPE
BilanganNyata = Integer;
VAR
panjang : BilanganNyata;
lebar : BilanganNyata;
BEGIN
ClrScr;
panjang:=7;
lebar:=4;
WriteLn(‘Hasil’);
WriteLn(‘Luas = ‘, panjang*lebar);
WriteLn(‘Keliling = ‘, 2*(panjang+lebar);
WriteLn(‘Maria F.P.S XD’);
ReadLn;
END.
Untuk mengecek turbo pascal kalian betul atau salah klik Ctrl+F9
Ini contoh gambarnya..
Hasilnya..
Selesai
