Tugas Turbo Pascal Bab 5

pertama tulis :

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(‘Alifia Salsabila XC’);
ReadLn;

END.


dan hasilnya

selesai :)