 | |
 | ||
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 110 defa okundu ve 0 yorum yazildi.
| | Seçenekler |
22.09.2007, 15:50
| #1 |
| 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: | |
 |
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cvpl | Son Mesaj |
| Duman - Bu Aksam Konseri (DVD Menülü) | ibrahim21 | Türkçe Klipler | 11 | 09.06.2008 14:24 |
| Celladin Laneti (Original Menülü DVD) | ibrahim21 | Türkçe Dublajlı Filmler | 7 | 05.06.2008 23:36 |
| Bobo ile işlem tamam | SaKLaMBaC | Spor Konulari Arsivi | 3 | 26.12.2007 13:14 |
| Sepetteki bilyeler (işlem) | alico76 | Zeka Soruları ve Bilmeceler | 2 | 02.12.2007 23:38 |
| Otopark programı( pascal) | burak25 | Programlama Dilleri | 0 | 22.09.2007 15:52 |