Berikut ini adalah sintak untuk membuat program
sederhana menghitung luas dan keliling persegi dengan menggunakan Turbo Pascal
for Windows.
program Menghitung_luas_dan_keliling_persegi_panjang;
uses wincrt;
var
l,p,k,Luas: integer;
begin
writeln(' menghitung luas
dan keliling persegi');
writeln;
writeln;
write('masukkan panjang persegi: ');readln(p);
write('masukkan lebar persegi: ')
;readln(l);
writeln;
luas:=p*l;
writeln('luas persegi adalah: ',Luas,'
satuan luas');
writeln;
k:=2*(p+l);
writeln('keliling persegi adalah: ',k,'
satuan keliling');
end.
0 komentar:
Posting Komentar