Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Şehirler Hakkında Bilgi Veren Program


Şehirler Hakkında Bilgi Veren Program

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.


  1.  
  2.  
  3. uses crt;
  4. var
  5. sehir,iklim:array [1..5] of string[20];
  6. turistm:array[1..5,1..3]of string[20];
  7. uzaklik :array [1..5] of real;
  8. i,j,t :integer;
  9. tus:char;
  10.  
  11. procedure basla;
  12. begin
  13.  sehir[1]:='Istanbul';
  14.  sehir[2]:='Ankara';
  15.  sehir[3]:='Bursa';
  16.  sehir[4]:='Izmir';
  17.  sehir[5]:='Erzurum';
  18.  
  19.  iklim[1]:='Iliman';
  20.  iklim[2]:='Karasal';
  21.  iklim[3]:='Karma';
  22.  iklim[4]:='Akdeniz';
  23.  iklim[5]:='Karasal';
  24.  
  25.  turistm[1,1]:='a';turistm[1,2]:='b';
  26.  turistm[2,1]:='c';turistm[2,2]:='d';
  27.  turistm[3,1]:='e';turistm[3,2]:='f';
  28.  turistm[4,1]:='g';turistm[4,2]:='h';
  29.  turistm[5,1]:='y';turistm[5,2]:='z';
  30.  
  31.  uzaklik[2]:=453;
  32.  uzaklik[3]:=243;
  33.  uzaklik[4]:=565;
  34.  uzaklik[5]:=1224;
  35.  
  36.  
  37. procedure ilbil;
  38. begin
  39.  if t <>1 then begin
  40.    write(sehir[t],' sehrinin iklimi: ', iklim[t],', turistik merkezleri: ',turistm[t,1]);
  41.    writeln(',',turistm[t,2],' dir. Istanbula uzakligi : ',trunc(uzaklik[t]),'km dir.' ); end
  42. else begin
  43.  writeln(sehir[1],'sehrinin iklimi: ', iklim[1],', turistik merkezleri: ',turistm[1,1]);
  44.  writeln(',',turistm[1,2],' dir.'); end;
  45.  
  46. begin
  47. clrscr;
  48. repeat;
  49. basla;
  50. writeln('Ili seciniz..[1..5]:');
  51. writeln('1:Istanbul ');
  52. writeln('2:Ankara ');
  53. writeln('3:Bursa ');
  54. writeln('4:Izmir ');
  55. writeln('5:Erzurum ');
  56. writeln(' ');
  57. readln(t);
  58. ilbil;
  59. writeln('Cikmak icin * karakterine basiniz');
  60. tus:=readkey;
  61. until tus='*';
  62. readln;
  63.        
  64.        
  65.  
  66.  
  67.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!