listing kodenya seperti berikut :
uses crt;
var
r,L: real;
begin
Clrscr;
gotoxy(4,2);write('Luas Lingkaran : ');readln;
gotoxy(4,3);write(Jari-jari : ');readln(r);
L:=3.14*r*r;
gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;
end.
Maka bila telah selesai silahkan di run tampilanya seperti berikut :
*Catatan
- gotoxy adalah perintah untuk menempatkan awal posisi penulisan dan penampilan (kolom dan baris).
- L:=3.14*r*r adalah rumus untuk mencari luas lingkaran.
Selamat Mencoba!
4 komentar:
buat belajar anak2 SMA kayaknya seru nih
Tapi Kenapa ya setelah di pencet enter output nya hilang ?
Tapi Kenapa ya setelah di pencet enter output nya hilang ?
assalamu'alaikum,kak saya ingin bertanya kalo ini gunanya untuk apa ya? L:2:2
di bagian ini gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;
terimakasih
Posting Komentar