Oleh: blogfirman | 27 Desember 2009

Program Menghitung Luas & Keliling Persegi

Program rumus_persegi ;
Uses wincrt;
Var
Luas, keliling, panjang, lebar : integer ;
Begin
Writeln(‘ = = = = = = = = = = = = = = = = = ‘);
Writeln(‘ program keliling & persegi’) ;
writeln(‘ by firman ‘) ;
Writeln(‘ = = = = = = = = = = = = = = = = ‘);
Writeln(‘lebar =’) ; readln (panjang);
Writeln(‘panjang’) ; readln (lebar);
Keliling := (panjang + lebar)*2;
Luas := panjang *lebar;
Write(‘luasnya = ‘,luas,’ keliling = ‘, keliling);
End.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: