IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:05   #1
Çevrimdışı
Şehirler Hakkında Bilgi Veren Program


-- Sponsor Baglantı --


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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
bilgi, hakkında, program, veren, Şehirler

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İmla hatalarına son veren program FrAnK}{MArtIN Bilgisayar Donanımı 2 05 Aralık 2011 00:04
33 Büyük Peygamber Hakkında Bilgi ve Güzel Sözler İçeren bir PROGRAM BaRoN Dini Bilgisayar Programları 4 11 Ocak 2011 02:15
Proxy Derdine Son Veren Program Mazhochist Chat ve IRC 35 19 Mayıs 2006 21:12