Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Pascal Örnekleri
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="merakettim" data-source="post: 239367" data-attributes="member: 113"><p>(*Bir havaalanında 4 adet pist bulunmaktadır. Bir saatte havaalanına inecek uçak sayısı 1-20 arası ise 1. pist, 21-40 ise 1 ve 2 nolu pistler 41-60 ise 1,2 ve 3 nolu pistler, ve 60'ın üzerinde ise 4 pist birlikte açıllmaktadır. Uçak sayısını bilgisayara giren ve açılacak pist sayısını ekranda gösteren bir Pascal programı yazınız? *)</p><p></p><p></p><p></p><p>[PHP]program deneme;</p><p>uses crt;</p><p>var</p><p>ucak:integer;</p><p></p><p>begin</p><p></p><p>write('1 Saatte Inecek Ucak Sayisi:');</p><p>readln(ucak);</p><p></p><p>case ucak of</p><p></p><p>1..20:writeln('1 Numarali Pist Acilacak');</p><p>21..40:writeln('1 ve 2 Numarali Pistler Acilacak');</p><p>41..60:writeln('1,2 ve 3 Numarali Pistler Acilacak');</p><p>61..1000:writeln('Tüm Pistler Acilacak');</p><p>else</p><p>writeln('Yanlis Ucak Satisi (Ucak Sayisi Harf,Sifir,Eksi veya Binden Fazla Olamaz');</p><p>end;</p><p></p><p>end.[/PHP]</p></blockquote><p></p>
[QUOTE="merakettim, post: 239367, member: 113"] (*Bir havaalanında 4 adet pist bulunmaktadır. Bir saatte havaalanına inecek uçak sayısı 1-20 arası ise 1. pist, 21-40 ise 1 ve 2 nolu pistler 41-60 ise 1,2 ve 3 nolu pistler, ve 60'ın üzerinde ise 4 pist birlikte açıllmaktadır. Uçak sayısını bilgisayara giren ve açılacak pist sayısını ekranda gösteren bir Pascal programı yazınız? *) [PHP]program deneme; uses crt; var ucak:integer; begin write('1 Saatte Inecek Ucak Sayisi:'); readln(ucak); case ucak of 1..20:writeln('1 Numarali Pist Acilacak'); 21..40:writeln('1 ve 2 Numarali Pistler Acilacak'); 41..60:writeln('1,2 ve 3 Numarali Pistler Acilacak'); 61..1000:writeln('Tüm Pistler Acilacak'); else writeln('Yanlis Ucak Satisi (Ucak Sayisi Harf,Sifir,Eksi veya Binden Fazla Olamaz'); end; end.[/PHP] [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Ülkemizin kuzeyindeki deniz hangisidir? (bitişik yazınız)
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Pascal Örnekleri
Top