 | |
 | ||
Programlama Dilleri Delphi, Visual Basic, C, C++,C#, ASP, Perl, Php, Html vb. diller hakkında bilgi ve birikimlerinizi paylaşabilir ve yardım alabilirsiniz.
 |
Prosedür ile menülü 4 işlem programı (pascal) Bu konu 135 defa okundu ve 0 yorum yazildi.
| | Seçenekler |
22.09.2007, 14:50
| #1 |
| Guest | Prosedür ile menülü 4 işlem programı (pascal) uses crt; var sec:integer; procedure dikdortgenin_alani; var uzun,kisa:integer; dik_alan:real; begin clrscr; writeln('Uzun Kenari Giriniz'); readln(uzun); writeln('Kisa Kenar� Giriniz'); readln(kisa); dik_alan:=(uzun*kisa); Writeln('Dikd”rtgenin alan�=',dik_alan:2:0); end; procedure daire_alan; var pi,r,daire_alan:integer; begin clrscr; writeln('Pi Sayisini Giriniz'); readln(pi); writeln('diger Sayiyi Girniniz'); readln(r); daire_alan:=(pi*r*r); writeln('Dairenin Alani=',daire_alan); end; procedure uc_alani; var taban,yukseklik,uc_alan:integer; begin clrscr; writeln('Taban Uzunlugunu Giriniz'); readln(taban); writeln('Y�ksekligi Giriniz'); readln(yukseklik); uc_alan:=(taban*yukseklik); writeln('šcgenin Alan�=',uc_alan); end; begin clrscr; writeln('MENU'); writeln('========================='); writeln('1.Dikd”tgenin Alani'); writeln('2.Dairenin Alani'); writeln('3.U‡genin Alan�'); writeln('4.€ikis'); writeln('Se‡iminiz=');readln(sec); if sec=1 then dikdortgenin_alani; if sec=2 then daire_alan; if sec=3 then uc_alani; if sec=4 then exit; readln; end.:69: |
|
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cvp | Son Mesaj |
| Solomon'da işlem tamam! | durmaz | Spor Konulari Arsivi | 1 | 19.03.2009 17:05 |
| Pascal | Swipe | Programlama Dilleri | 4 | 25.04.2008 19:11 |
| Bobo ile işlem tamam | SaKLaMBaC | Spor Konulari Arsivi | 3 | 26.12.2007 12:14 |
| Otopark programı( pascal) | burak25 | Programlama Dilleri | 0 | 22.09.2007 14:52 |
WEZ Format +2. Şuan Saat: 13:16.