Forum'da ara:
Ara


« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj
Mesaj08.09.2007, 15:22 (UTC)    
Mesaj konusu: 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.
Önceki mesajları göster:   


Powered by phpBB © 2001, 2005 phpBB Group
Türkçe Çeviri: phpBB Türkiye & Erdem Çorapçıoğlu