|
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
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: 13:22 .
| |