|
7 bölgenın yıllık yağış ortalamaları
Toplam 1 Eklenti bulunuyor.
[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. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için sağol
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 08:33 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.