Berikut kode rumus luas lingkaran pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":
Kode Berikut untuk Copy Paste :
uses crt;
var r,L:Real;
begin
clrscr;
write('Masukkan Jari-jari Lingkaran(cm):');
Readln(r);
L:=22/7*r*r;
writeln;
writeln('Luas Lingkaran=',L:10:2,'cm2');
readln;
end.
Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat
Gampang kok tinggal Ketik "KODE DI BAWAH INI":
Kode Berikut untuk Copy Paste :uses crt;
var r,L:Real;
begin
clrscr;
write('Masukkan Jari-jari Lingkaran(cm):');
Readln(r);
L:=22/7*r*r;
writeln;
writeln('Luas Lingkaran=',L:10:2,'cm2');
readln;
end.
Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat
Komentar