Klavyeden yarı çapı girilen dairenin menüden seçme işlemine göre alanını ve çevresini hesaplayan program

Hepsini Seç

Var

r,s:integer;

Begin

write ('YARI ÇAP GİRİNİZ'); readln ®;

writeln ('MENÜ');

writeln ('1-ALAN');

writeln ('2-ÇEVRE);

write ('seçiminizi giriniz='); readln (s);

if s=1 then write ('Alan=',3.14*r*r);

if s=2 then write ('Çevre=',3.14*2*r);

readln;

End.

ŞEBNEM FERAH

The Fans Of METALLICA


_Ka†a†onia_