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!
 
404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.