UYGULAMA 4 - 08 Ekim 2009

Klavyeden yükseklik değeri girilen bir silindirin:
(a) Yanal alanının;
(b) Hacminin hesaplanarak ekrana yazdırılması...

---------------------------------------------------------------------------------
PROGRAM SILINDIR;

CONST PI = 3.14;

VAR r, h, yanalAlan, Hacim: REAL;


BEGIN

WRITE('Silindir için sırasıyla yarıçap ve yükseklik değerleri giriniz: ');
READLN(r, h);

yanalAlan := 2 * PI * r * h;
Hacim := PI * SQR(r) * h;

WRITELN('Silindirin yanal alanı = ', yanalAlan: 8:2,' m2 dir.');
WRITELN('Silindirin hacmi= ', Hacim: 8:2,' m3 tür.');
WRITELN('Bir tuşa basınız...');

READLN;

END.