Skip to content

Menghitung Luas dan keliling lingkaran

October 20, 2009

Waktu ini ada seorang teman yang katanya dia lagi belajar turbo pascal..
Program ini penulis buat pada waktu lagi belajar pascal..Semoga yang lagi belajar Pascal bisa cpet ngerti he2…

Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin
clrscr;
writeln(‘=============================’);
writeln(‘Menghitung Luas dan Keliling’);
writeln(‘—————————-‘);
write(‘Jari – jari = ‘); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln(‘Keliling Lingkaran = ‘,K:5:2);
writeln(‘Luas Lingkaran = ‘,L:5:2);
writeln(‘=============================’);
readln;
end.

Klo ada yg belum dimengerti langsung j kasi komen…
šŸ™‚

4 Comments
  1. keliling dan luas lingkaran pada repeat until gimana sih???

  2. Kok mnghtung perulangan pke repeat until bos ??
    Kyknya gk perlu perulangan deh..

  3. Haha permalink

    aku bingung . jelasin lagi dong
    itu clrscr buat apa?

  4. @Haha
    clrscr, artinya clear screen. untuk membersihkan layar.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: