IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Pascal programlama dilinde yazılmış bu programda ekrana gelen menü üzerine, İstanbul Ankara İzmir Bursa ve Erzurum hakkında, İstanbul’a olan uzaklığı ve iklimini veren alt program yapılmıştır.

Kod:

 

 

uses crt;

var

sehir,iklim:array [1..5] of string[20];

turistm:array[1..5,1..3]of string[20];

uzaklik :array [1..5] of real;

i,j,t :integer;

tus:char;

 

procedure basla;

begin

 sehir[1]:='Istanbul';

 sehir[2]:='Ankara';

 sehir[3]:='Bursa';

 sehir[4]:='Izmir';

 sehir[5]:='Erzurum';

 

 iklim[1]:='Iliman';

 iklim[2]:='Karasal';

 iklim[3]:='Karma';

 iklim[4]:='Akdeniz';

 iklim[5]:='Karasal';

 

 turistm[1,1]:='a';turistm[1,2]:='b';

 turistm[2,1]:='c';turistm[2,2]:='d';

 turistm[3,1]:='e';turistm[3,2]:='f';

 turistm[4,1]:='g';turistm[4,2]:='h';

 turistm[5,1]:='y';turistm[5,2]:='z';

 

 uzaklik[2]:=453;

 uzaklik[3]:=243;

 uzaklik[4]:=565;

 uzaklik[5]:=1224;

 

end;

 

procedure ilbil;

begin

 if t <>1 then begin

   write(sehir[t],' sehrinin iklimi: ', iklim[t],', turistik merkezleri: ',turistm[t,1]);

   writeln(',',turistm[t,2],' dir. Istanbula uzakligi : ',trunc(uzaklik[t]),'km dir.' ); end

else begin

 writeln(sehir[1],'sehrinin iklimi: ', iklim[1],', turistik merkezleri: ',turistm[1,1]);

 writeln(',',turistm[1,2],' dir.'); end;

end;

 

begin

clrscr;

repeat;

basla;

writeln('Ili seciniz..[1..5]:');

writeln('1:Istanbul ');

writeln('2:Ankara ');

writeln('3:Bursa ');

writeln('4:Izmir ');

writeln('5:Erzurum ');

writeln(' ');

readln(t);

ilbil;

writeln('Cikmak icin * karakterine basiniz');

tus:=readkey;

until tus='*';

readln;

end.