Turbo Pascal

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