Pascal – Membuat Program Luas dan Keliling Lingkaran

Sebelumnya saya sudah membuat program mencari luas dan keliling bujur sangkar. Kali ini saya akan membuat program mencari luas dan keliling lingkaran dengan bahasa Pascal.

uses crt;
var r:integer;
const pi=3.1415;

function Luas(jari_jari:integer; phi:real):real;
begin
Luas:=phi*sqr(jari_jari);
end;

function Keliling(jari_jari:integer; phi:real):real;
begin
Keliling:=2*phi*jari_jari;
end;

begin
clrscr;
write('Jari-Jari: '); readln(r);
writeln('Keliling: ',Keliling(r,pi):0:2);
writeln('Luas: ',Luas(r,pi):0:2);
readln;
end.

Jika program di atas dijalankan, dan saya masukkan nilai jari-jari sebesar 10 maka outputnya adalah:

Lingkaran Output

Sekian dan terima kasih sudah merelakan waktu untuk datang ke sini.

Advertisements

Pascal – Membuat Program Untuk Menghitung Luas dan Keliling Bujur Sangkar

Saya ingin berbagi tentang program penghitung luas dan keliling bujur sangkar dengan bahasa pascal. Berikut adalah programnya.

uses crt;
var s:integer;

function Cari_Luas(sisi:integer):integer;
begin
Cari_Luas:=sisi*sisi;
end;

function Cari_Keliling(sisi:integer):integer;
begin
Cari_Keliling:=4*sisi;
end;

begin
clrscr;
write('Masukkan nilai sisi= '); readln(s);
writeln('Luas = ',Cari_Luas(s));
writeln('Keliling = ',Cari_Keliling(s));
readln;
end.

Output dari program diatas jika saya isi sisi dengan 5 adalah:

 Output_Luas_dan_Keliling_Bujur_Sangkar

Sekian dan Terima Kasih.