geometri örnekleri
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. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
emeğe saygı
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 17:33 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.