Pascal programlama dilinde yazılmış bu programda dairenin alan ve çevresini aşağıdaki şartlarda hesaplayan bir prosedür yazılmıştır.
a) Parametresiz olarak
b) Dairenin yarıçapı değer parametresi olarak prosedüre gitsin
c) Alan ve çevre değerleri değişken parametresi olarak prosedüre gitsin
Program Kodu:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
uses crt;
var
r,pi,cevre,alan:real;
Procedure daire; (*a*)
Begin
alan:=pi*r*r;
cevre:=2*pi*r;
writeln('Daire alani : ',alan);
writeln('Daire cevre : ',cevre);
end;
Procedure daire2(r1:real); (*b*)
Begin
alan:=pi*r1*r1;
cevre:=2*pi*r1;
writeln('Daire2 alani : ',alan);
writeln('Daire2 cevre : ',cevre);
end;
Procedure daire3(var alan,cevre:real); (*c*)
Begin
alan:=pi*r*r;
cevre:=2*pi*r;
end;
Begin
writeln('Daire alan/cevre hesabi icin yaricapi giriniz : ..');
readln(r);
pi:=3.14;
daire;
alan:=0; cevre:=0;
daire2(r);
alan:=0;
cevre:=0;
daire3(alan,cevre);
writeln('Daire2 alani : ',alan);
writeln('Daire2 cevre : ',cevre);
readln;
End.