CONTOH PROGRAM PASCAL

Halo Dunia!
Kembali lagi di SUMBARANG;

Kali ini SUMBARANG; akan share beberapa soal serta jawaban mengenai bahasa pemograman pascal.

Semoga postingan ini dapat membantu kalian dalam belajar bahasa pemrograman dalam hal ini khususnya pascal.

Ok lansung saja berikut soal dan contoh programnya

SOAL
1. Buatlah Program yang dapat menghitung luas, keliling persegi panjang dan lingkaran.  
Dengan catatan menggunakan function!

Jawab:

program hitungluaskeliling;
uses crt;
function luas_lingkaran(jari_jari:integer):real;

begin 
luas_lingkaran:= 3.14 * jari_jari * jari_jari;
end;
function kel_lingkaran(jari_jari:integer):real;

begin
kel_lingkaran:= 2 * 3.14 * jari_jari;
end;
function kel_persegipanjang(panjang,lebar:byte):integer;

begin
kel_persegipanjang := 2*(panjang*lebar);
end;
function luas_persegipanjang(panjang,lebar:byte):integer;
begin
luas_persegipanjang := panjang*lebar;
end;
var
p,l,r:integer;
begin
clrscr;
write('Masukan Jari-jari = '); readln(r);
write('Masukan panjang = '); readln(p);
write('Masukan lebar   = '); readln(l);
 write('________________________________');
writeln('luas persegi panjang = ',luas_persegipanjang(p,l));
writeln('keliling persegi panjang = ',kel_persegipanjang(p,l));
writeln('luas lingkaran = ',luas_lingkaran(r):0:0);
writeln('keliling lingkaran = ',kel_lingkaran(r):0:0);
readkey;

end.

berikut hasilnya
disini saya menginput:
jari2 = 2
panjang = 4
lebar = 3