7 bölgenın yıllık yağış ortalamaları

[gokhanaygun]

[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.