|
24/04/07, 00:52
|
#1
|
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
|
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 ![Gül](images/smilies/3.gif) 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.
|
|
|
Konu Sayısı: 187
20/06/08, 15:26
|
#2
|
Mareşal
Üyelik tarihi: Sep 2007
Mesajlar: 5.835
|
Paylaşım için tşkler…
__________________
|
|
|
Konu Sayısı: 613
Takımınız:
30/06/08, 01:45
|
#3
|
Cumhurbaşkanı
Üyelik tarihi: May 2008
Bulunduğu yer: van
Mesajlar: 7.027
|
teŞekkÜrler PaylaŞim İİÇİn
__________________
Düşmeden Bulutlarda Koşmam GereK !
|
|
|
Konu Sayısı: 866
31/07/08, 15:53
|
#4
|
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
|
emeğe saygı
|
|
|
Konu Sayısı: 316
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
|
|
Yetkileriniz
|
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
|
|
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 04:44 .
| |