Jumat, 03 April 2015

Algoritma Menghitung Luas dan Keliling Persegi menggunakan Turbo Pascal



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.
Share:

0 komentar:

Posting Komentar

recent posts

Diberdayakan oleh Blogger.

Wikipedia

Hasil penelusuran

About me

About Me

Followers

statistics

Instagram

Translate

Flickr Images

Like us on Facebook

Recent Posts

Unordered List

Pages

Theme Support