DEKLARASI PROSEDUR DAN FUNGSI PASCAL

Prosedur dan fungsi adalah bagian yang paling banyak dipakai pada struktur data.

Prosedur sama dengan program biasa tapi dikelompokan menjadi satu kesatuan yang terpisah-pisah.

Contoh prosedur:

uses wincrt;
const phi:real=3.14;
var r,luas:real;

procedure luaslingk;
begin
luas:=phi*r*r;
writeln('Luas Lingkaran:',luas);
end;

begin
clrscr;
write('Panjang jari-jari');readln(r);
luaslingk;
end.


Contoh Fungsi:

uses wincrt;
const phi:real=3.14;
var jari:real;

function luaslingk(r:real):real;
begin
result:=phi*r*r;
end;

begin
clrscr;
write('Panjang jari-jari');readln(jari);
writeln('Luas Lingkaran:',luaslingk(jari));
end.


Latihan
Buatlah program sbb :
1. Menghitung Luas dan Keliling lingkaran, dengan jari-jari diketahui (diinput).
2. Menghitung Luas dan Keliling segitiga sembarang yang diketahui ke tiga sisinya.

====== SELAMAT MENGERJAKAN ======

Tugas
Tuliskan program untuk : “Mengkonversikan derajat celcius menjadi derajat fahrenheit”, dengan rumus :
F = 1.8 * C + 32 untuk nilai celcius diinputkan lewat keyboard!