Ana Sayfa En Yeni 50 Kod En Popüler 50 Kod Sen de Yaz Bize Ulaşın
Sponsorlar
Programlama > PASCAL


Alan ve çevre hesaplama

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

Var
r,s:integer;
Begin
write ('YARI ÇAP GİRİNİZ'); readln (r);
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.

CheLLChuXX
selcux@hackermail.com
www.maviforum.net

chellchuxx
selcux@hackermail.com
Ana Sayfa   Ana sayfam yap   Favorilerime ekle   Bize Ulaşın
© 2002 - 2010 Hazır Kod Programlama - Türkiye