UYGULAMA 1 - 01 Ekim 2009

Klavyeden yarıçap değeri girilen dairenin cevresinin ve alanın hesaplanıp ekrana yazdırılması...
---------------------------------------------------------------------------------
PROGRAM D_ALAN;

CONST PI = 3.14;

VAR ycap, cevre, alan: REAL;


BEGIN

WRITE('Yarıçap değerini giriniz: ');
READLN(ycap);

cevre := 2 * PI * ycap;
alan := PI * SQR (ycap);

WRITELN('cevre = ', cevre: 8: 2);
WRITELN('alan = ', alan: 8: 2);
WRITELN('Bir tuşa basınız...');

READLN;

END.