|
27/04/07, 19:12
|
#1
|
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 924
|
7 bölgenın yıllık yağış ortalamaları
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
(* BY GÖKHAN AYGÜN.... *)
PROGRAM BOLGE_YAGIS;
USES CRT,DOS;
VAR
AYLAR:ARRAY[1..12] OF REAL;
I:BYTE;
A,T:REAL;
BAS2:BYTE;
BAS:STRING;
saat,dakika,saniye,salise:word;
ay,yil,gun,hg:word;
PROCEDURE LISTE;
BEGIN
CLRSCR;
FOR I:=1 TO 12 DO BEGIN
GOTOXY(25,I+4); WRITELN(I,'.','AY','',':',AYLAR[i]:10:2);
END;
GOTOXY(10,25); WRITELN('YILLIK YAGIS ORTALAMASI',':',T:10:2);
;GOTOXY(25,1); LOWVIDEO;TEXTCOLOR(WHITE);
WRITELN('YILLIK DEGER ISTATIKLERI');
READLN;
END;
PROCEDURE DOGU_ANADOLU;(*DOĞUANADOLU*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN('DOGUANADALUNUN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(53,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('DOGUANADOLU BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE EGE;(*EGE*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' EGENIN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(47,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('EGE BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE IC_ANADOLU;(*ICANADOLU*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' IC ANADOLUNUN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(53,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('IC ANADOLU BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE MARMARA;(*MARMARA*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' MARMARANIN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(51,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('MARMARA BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE KARA_DENIZ;(*KARADENİZ*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' KARADENIZIN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(51,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('KARADENIZ BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE GUNEY_DOGU_ANADOLU;(*GÜNEYDOĞUANADOLU*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' GUNEYDOGUANADOLUNUN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(58,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('GUNEYDOGU ANADOLU BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
PROCEDURE AKDENIZ;(*AKDENİZ*)
BEGIN
CLRSCR;
A:=0;
FOR I:=1 TO 12 DO BEGIN
WRITELN(' AKDENIZIN ','',I,'.','AYI ICIN YAGIS MIKTARINI GIRIN..:');
GOTOXY(49,I);
READLN(AYLAR[i]);
A:=A+AYLAR[i];
T:=A/12;
END;
TEXTCOLOR(WHITE);
WRITELN('AKDENIZ BOLGESININ LISTELI KAYDINA SON KAYIT TAN BAKABILIRSINIZ..');
READLN;
END;
BEGIN
CLRSCR;
REPEAT
TEXTCOLOR(5);
TEXTBACKGROUND(YELLOW);
CLRSCR;
GOTOXY(20,2); WRITE('****MENU****'); GOTOXY(20,4);
WRITE('[1] DOGU ANADALU'); GOTOXY(20,6); WRITE('[2] EGE ');
GOTOXY(20,8); WRITE('[3] IC ANADOLU'); GOTOXY(20,10); WRITE('[4] MARMARA');
GOTOXY(20,12); WRITE('[5] KARADENIZ '); GOTOXY(20,14); WRITE('[6] GUNEYDOGU ANADOLU');
GOTOXY(20,16); WRITE('[7] AKDENIZ '); GOTOXY(20,18); WRITE('[8] SON KAYDI LISTELE'); GOTOXY(20,20); WRITE('[9]CIKIS');
GOTOXY(20,21); WRITE('SECIMINIZ...') ;textcolor(YELLOW);
textbackground(2);
gotoxy(25,24);
gettime(saat,dakika,saniye,salise);
writeln('PROGRAMA GIRIS SAATINIZ',':',SAAT,':',DAKIKA,':',saniye);
gotoxy(20,1);
getdate(yil,ay,gun,hg);
writeln('BU GUN:',':',gun,'/',ay,'/',yil);
GOTOXY(30,21);
READLN(BAS2); GOTOXY(20,18); CASE BAS2 OF 1: DOGU_ANADOLU; 2:EGE; 3:IC_ANADOLU; 4: MARMARA;
5: KARA_DENIZ; 6:GUNEY_DOGU_ANADOLU; 7:AKDENIZ; 8:LISTE; END; UNTIL BAS2=9; END.
|
|
|
Konu Sayısı: 187
20/06/08, 15:18
|
#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:59
|
#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:37
|
#4
|
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
|
paylaşım için sağol
|
|
|
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: 03:37 .
| |