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 Giriş
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: 240152" data-attributes="member: 113"><p>Karar Deyimleri /If.. Then.. Else Deyimi</p><p></p><p>Bu deyimi kullanmanın amacı bazı değerler kontrol edilerek, program parçacıklarının çalıştırılıp çalıştırılmamasına karar vermektir. </p><p></p><p>Örneğin bir şehirdeki havanın kirli olup olmadığını kontrolü bu deyimlerle yapılabilir. Havada bulunan kükürt dioksit oranı belirli bir yüzdeyi geçerse program havanın kirli olduğu, aksi taktirde havanın temiz olduğu mesajını verecektir.</p><p></p><p>Yine öğrencilerin dersi geçip geçmediklerini kontrol etmek için bir Seçim deyimi kullanılabilir. Burada ise öğrenci notu 65 ve üzeri ise öğrencinin geçtiğine, 65'in altında ise öğrencinin kaldığına karar verilir. </p><p></p><p>Seçim yapma deyimleri ile beraber mantıksal ifadeler kullanılır. Örneğin vergi miktarının 100 milyon TL'den düşük olup olmadığını kontrol etmek için mantıksal bir ifade kullanılır. Bu kontrol şu şekilde ifade edilebilir :</p><p></p><p>vergi<100000000</p><p>Basit IF..THEN..</p><p></p><p>Tek alternatifli if deyiminde eğer mantıksal ifade olan şart doğru ise deyim aktif hale gelecektir. Aksi taktirde deyim atlanacaktır.</p><p>(Eğer birden fazla deyim kullanılmak isteniyorsa Deyimler Begin-End Bloğu arasında yazılmalıdır.)</p><p></p><p></p><p>Kullanım şekli:</p><p></p><p>if <şart (Mantıksal ifadeler)> then </p><p></p><p> deyim veya deyimler;</p><p></p><p></p><p>Örnek : </p><p></p><p>if mesai>40 then </p><p></p><p> ucret:=ucret*1.35;</p><p></p><p></p><p>yukarıdaki satırda mesai saati 40 saati aşarsa ücret %35 oranında artırılacaktır.</p><p></p><p>İki Alternatifli IF..THEN..ELSE..</p><p></p><p>Eğer if'den sonraki mantıksal ifade olan şart doğru ise then'den sonraki deyim aktif hale gelecektir. Aksi taktirde deyim atlanacak ve Else deyiminden sonraki deyimler çalışacaktır.</p><p>(else'den önceki Deyimin sonuna (<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite2" alt=";)" title="Wink ;)" loading="lazy" data-shortname=";)" /> konmaz.) </p><p></p><p>Kullanım şekli:</p><p></p><p>if <şart (Mantıksal ifadeler)> then </p><p></p><p> deyim veya deyimler</p><p></p><p>else</p><p></p><p> deyim veya deyimler;</p><p></p><p></p><p>Örneğin vergi verme sınırı 100 milyon TL ise ve vergi oranı da %25 ise net değer şu şekilde hesaplanacaktır.</p><p></p><p>if gelir>=100000000 then </p><p></p><p> net:=gelir-(gelir*0.25) </p><p></p><p>else </p><p></p><p> net:=gelir; </p><p></p><p>Örnek : Öğrencinin notu 65 ve üzeri ise ekrana geçti aksi taktirde kaldı yazdıran bir Pascal programı yazınız.</p><p></p><p>[PHP]program notDegerlendirme;</p><p></p><p> var </p><p> notu:integer;</p><p> </p><p>begin</p><p> notu:=70;</p><p> if notu >= 65 then </p><p> writeln('gecti')</p><p> else </p><p> writeln('kaldi);</p><p> readln </p><p>end.[/PHP]</p><p></p><p>Çok Alternatifli IF..HEN..ELSE</p><p></p><p>Son İkiden fazla alternatif mevcutsa çok alternatifli if deyimi kullanılır. Burada else deyiminden sonra yeni bir if deyimi başlar. Çoklu if deyiminde eğer şart doğru ise then'den sonraki deyim aktif hale gelir ve diğer alternatifler dikkate alınmaz. Eğer şart yanlışsa, doğru şarta ulaşılıncaya kadar if deyimleri kontrol edilir. Eğer bütün şartlar yanlışşa son else'den sonraki deyimSon aktif hale gelir. </p><p></p><p>Kullanım şekli:</p><p></p><p>if <şart>then </p><p></p><p> deyim veya deyimler</p><p></p><p>else</p><p></p><p> if <şart> then</p><p></p><p> deyim veya deyimler</p><p></p><p> else </p><p></p><p> if <şart> then</p><p></p><p> ......</p><p></p><p> else</p><p></p><p> deyim veya deyimler; </p><p>Örnek: Öğrencinin ismini ve aldığı notu bilgisayara giren ve nota göre notun derecesini ekrana yazdıran bir Pascal programı yazınız? </p><p></p><p>[PHP]program cokluIfDeyimi;</p><p> uses crt;</p><p> var </p><p> notu:integer;</p><p> isim:string[25]; </p><p></p><p> begin</p><p> CLRSCR;</p><p> writeln('ogrenci ismini giriniz !');</p><p> readln(isim);</p><p> writeln('ogrenci notunu giriniz ! ');</p><p> READLN(notu);</p><p> writeln(isim,' isimli ögrenci ');</p><p> if (notu>=1) and (notu <=49) then WRITELN('zayıf aldi !') </p><p> else </p><p> if (notu>=50) and (notu <=69) then WRITELN('orta aldi !') </p><p> else </p><p> if (notu>=70) and (notu <=89) then WRITELN('iyi aldi !')</p><p> else </p><p> if (notu>=90) and (notu <=100) then WRITELN('pekiyi aldi ! !')</p><p> else WRITELN('not degerlendirilemedi !');</p><p> READLN; </p><p>end.</p><p>[/PHP]</p><p></p><p>Karar Deyimleri /Case.. of Deyimi</p><p></p><p>Birden fazla alternatiften birinin şeçilmesi için Case deyimi de kullanılabilir. Bu deyim özellikle bir değerin değerlendirilmesinde dikkate alınırsa kullanışlıdır. </p><p></p><p>Değerlendirilecek değere case deyimi seçicisi denir. Bu değişkenin türü integer, char yada boolean olabilir. Secici değerden sonra of terimi kullanılır. Case deyimi end; ile sona erer.</p><p></p><p>Seçici değer'e göre programın akışı alternatif değer ya da değer aralıklarından birinin aralığına uygun gelecektir ve bundan sonraki deyim aktif hale gelecektir. Eğer seçici değer hiçbir aralığa uygun düşmezse else'den sonraki deyim aktif hale gelecektir. </p><p></p><p>Kullanım şekli:</p><p></p><p>case <secici değer> of </p><p> </p><p> secici değer aralığı 1 : </p><p> deyim1 </p><p> </p><p> secici değer aralığı 2 : </p><p> deyim2 </p><p> </p><p> .... </p><p> .... </p><p> </p><p> secici değer aralığı N : </p><p> deyim N </p><p> </p><p> else </p><p> diğer deyim </p><p> </p><p>end; </p><p> </p><p>Örnek : Bilgisayara 1 ile 5 arasında sayı giren ve girilen sayının karşılığını ekrana yazan bir Pascal programı yazınız? </p><p></p><p>[PHP]program caseDeyimi; </p><p>uses crt; </p><p>var sayi : integer;</p><p>begin </p><p> CLRSCR;</p><p> WRITE('1-5 ARASI BIR SAYI SECIN');</p><p> READLN(sayi);</p><p> CASE sayi OF </p><p> 1:WRITELN('bir sayısını girdiniz'); </p><p> 2:WRITELN('iki sayısını girdiniz '); </p><p> 3:WRITELN('üç sayısını girdiniz ');</p><p> 4:WRITELN('dört sayısını girdiniz '); </p><p> 5:WRITELN('beş sayısını girdiniz ');</p><p> ELSE WRITELN(' farklı sayı girdiniz'); </p><p> END;</p><p> READLN; </p><p>end. [/PHP]</p><p>Örnek : Bilgisayara a ile e harfleri arasında bir harf giren ve hangi harfin girildiğini ekrana yazdıran bir Pascal programı yazınız? </p><p></p><p>[PHP]uses crt;</p><p>var </p><p> harf : char;</p><p>begin</p><p> CLRSCR; </p><p> WRITELN('a-e arasi bir harf secin');</p><p> READLN(harf);</p><p> CASE harf OF </p><p> 'a':WRITELN('a harfi girildi '); </p><p> 'b':WRITELN('b harfi girildi ');</p><p> 'c':WRITELN('c harfi girildi '); </p><p> 'd':WRITELN('d harfi girildi '); </p><p> 'e':WRITELN('e harfi girildi ');</p><p> ELSE WRITELN('farklı bir harf girildi.');</p><p> END; {case deyimi sonu} </p><p> READLN;</p><p>end. [/PHP]</p><p></p><p>Örnek 1:</p><p></p><p>Öğrencinin ismini ve aldığı notu bilgisayara giren ve nota göre notun derecesini CASE deyimi kullanarak değerlendirip ekrana yazdıran bir Pascal programı yazınız?</p><p></p><p>[PHP]uses crt; </p><p>var </p><p> notu:integer;</p><p> isim:string[25];</p><p>begin</p><p> CLRSCR; </p><p> WRITELN('"öğrenci ismini giriniz !'); </p><p> READLN(isim); </p><p> WRITE('ogrenci notunu giriniz ! ');</p><p> READLN(notu); </p><p> WRITELN(isim,' isimli öğrenci '); </p><p> CASE notu OF </p><p> 1..49 : WRITELN('zayıf not aldı !');</p><p> 50..69 : WRITELN('orta not aldı !');</p><p> 70..89 : WRITELN('iyi not aldı !');</p><p> 90..100 : WRITELN('pekiyi not aldı!') </p><p> ELSE WRITELN('not değerlendirilemedi !'); </p><p> END;</p><p> READLN; </p><p>end. [/PHP]</p><p></p><p>Örnek 2:</p><p></p><p>Öğrencinin ismini ve aldığı notu harf olarak bilgisayara giren ve harfin karşılığı olan notu sayı ile ekrana yazdıran bir Pascal programı yazınız?</p><p></p><p>[PHP]uses crt;</p><p>var </p><p> isim:string[25]; </p><p> notu:char;</p><p>begin</p><p> CLRSCR; </p><p> WRITELN('"öğrenci ismini giriniz !');</p><p> READLN(isim); </p><p> WRITE('ogrenci notunu A, B, C, ve D olarak giriniz ! '); </p><p> READLN(notu);</p><p> WRITELN(isim,' isimli öğrenci ');</p><p> CASE notu OF </p><p> 'd', 'D' : WRITELN('notu 1..49 arası zayıf aldı !');</p><p> 'c', 'C' : WRITELN('notu 50..69 arası orta aldı !'); </p><p> 'b', 'B' : WRITELN('notu 70..89 arası iyi aldı !'); </p><p> 'a', 'A' : WRITELN('notu 90..100 arası pekiyi aldı !')</p><p> ELSE WRITELN('not değerlendirilemedi !');</p><p> END;</p><p> READLN; </p><p>end.[/PHP]</p><p></p><p>Örnek 3:</p><p></p><p>Öğrenci notu şu şekilde hesaplanmaktadır. Yıliçi notu için, vizenin %50'si, quiz'in %25'i, ödevin %15'i ve devamın %10'u dikkate alınmaktadır. Başarı notu ise yıliçi notunun ve final notunun %50'si dikkate alınarak hesaplanmaktadır. Öğrencinin başarı notunu hesaplayan ve geçip kaldığını ekranda gösteren bir Pascal programı yazınız?</p><p></p><p>[PHP]program basari_notu;</p><p>uses crt;</p><p>const</p><p> vize = 0.50; </p><p> quiz = 0.25;</p><p> odev = 0.15;</p><p> devam= 0.10;</p><p> yil_ici=0.50;</p><p> final = 0.50;</p><p> basari= 0.65;</p><p>var</p><p> vize_notu:integer;</p><p> quiz_notu:integer;</p><p> odev_notu:integer;</p><p> devam_notu:integer;</p><p> yil_ici_notu : real;</p><p> final_notu : real;</p><p> notu : real;</p><p> notlar : integer;</p><p>begin</p><p> WRITE('vize notunu giriniz : ');</p><p> READLN(vize_notu);</p><p> WRITE('quiz notunu giriniz : ');</p><p> READLN(quiz_notu);</p><p> WRITE('odev notunu giriniz : ');</p><p> READLN(odev_notu);</p><p> WRITE('devam durumu : ');</p><p> READLN(devam_notu);</p><p> yil_ici_notu:=vize*vize_notu+quiz*quiz_notu+odev*odev_notu+devam*devam_notu;</p><p> yil_ici_notu:= yil_ici_notu*yil_ici;</p><p> WRITE('final notunu giriniz: ');</p><p> READLN(final_notu);</p><p> final_notu:=final*final_notu ;</p><p> WRITE('basari notu hesabi :');</p><p> notu:=yil_ici_notu+final_notu;</p><p> WRITELN;</p><p> WRITELN('yil ici notu : ',yil_ici_notu);WRITELN('final notu : ',final_notu);</p><p> notlar:= trunc(notu);</p><p> CASE notlar OF</p><p> 1..64 :writeln('basarisiz oldu');</p><p> 65..100 :writeln('basarili oldu');</p><p> else writeln('notu gecersizdir');</p><p> END;</p><p> READLN</p><p>end.[/PHP]</p></blockquote><p></p>
[QUOTE="merakettim, post: 240152, member: 113"] Karar Deyimleri /If.. Then.. Else Deyimi Bu deyimi kullanmanın amacı bazı değerler kontrol edilerek, program parçacıklarının çalıştırılıp çalıştırılmamasına karar vermektir. Örneğin bir şehirdeki havanın kirli olup olmadığını kontrolü bu deyimlerle yapılabilir. Havada bulunan kükürt dioksit oranı belirli bir yüzdeyi geçerse program havanın kirli olduğu, aksi taktirde havanın temiz olduğu mesajını verecektir. Yine öğrencilerin dersi geçip geçmediklerini kontrol etmek için bir Seçim deyimi kullanılabilir. Burada ise öğrenci notu 65 ve üzeri ise öğrencinin geçtiğine, 65'in altında ise öğrencinin kaldığına karar verilir. Seçim yapma deyimleri ile beraber mantıksal ifadeler kullanılır. Örneğin vergi miktarının 100 milyon TL'den düşük olup olmadığını kontrol etmek için mantıksal bir ifade kullanılır. Bu kontrol şu şekilde ifade edilebilir : vergi<100000000 Basit IF..THEN.. Tek alternatifli if deyiminde eğer mantıksal ifade olan şart doğru ise deyim aktif hale gelecektir. Aksi taktirde deyim atlanacaktır. (Eğer birden fazla deyim kullanılmak isteniyorsa Deyimler Begin-End Bloğu arasında yazılmalıdır.) Kullanım şekli: if <şart (Mantıksal ifadeler)> then deyim veya deyimler; Örnek : if mesai>40 then ucret:=ucret*1.35; yukarıdaki satırda mesai saati 40 saati aşarsa ücret %35 oranında artırılacaktır. İki Alternatifli IF..THEN..ELSE.. Eğer if'den sonraki mantıksal ifade olan şart doğru ise then'den sonraki deyim aktif hale gelecektir. Aksi taktirde deyim atlanacak ve Else deyiminden sonraki deyimler çalışacaktır. (else'den önceki Deyimin sonuna (;) konmaz.) Kullanım şekli: if <şart (Mantıksal ifadeler)> then deyim veya deyimler else deyim veya deyimler; Örneğin vergi verme sınırı 100 milyon TL ise ve vergi oranı da %25 ise net değer şu şekilde hesaplanacaktır. if gelir>=100000000 then net:=gelir-(gelir*0.25) else net:=gelir; Örnek : Öğrencinin notu 65 ve üzeri ise ekrana geçti aksi taktirde kaldı yazdıran bir Pascal programı yazınız. [PHP]program notDegerlendirme; var notu:integer; begin notu:=70; if notu >= 65 then writeln('gecti') else writeln('kaldi); readln end.[/PHP] Çok Alternatifli IF..HEN..ELSE Son İkiden fazla alternatif mevcutsa çok alternatifli if deyimi kullanılır. Burada else deyiminden sonra yeni bir if deyimi başlar. Çoklu if deyiminde eğer şart doğru ise then'den sonraki deyim aktif hale gelir ve diğer alternatifler dikkate alınmaz. Eğer şart yanlışsa, doğru şarta ulaşılıncaya kadar if deyimleri kontrol edilir. Eğer bütün şartlar yanlışşa son else'den sonraki deyimSon aktif hale gelir. Kullanım şekli: if <şart>then deyim veya deyimler else if <şart> then deyim veya deyimler else if <şart> then ...... else deyim veya deyimler; Örnek: Öğrencinin ismini ve aldığı notu bilgisayara giren ve nota göre notun derecesini ekrana yazdıran bir Pascal programı yazınız? [PHP]program cokluIfDeyimi; uses crt; var notu:integer; isim:string[25]; begin CLRSCR; writeln('ogrenci ismini giriniz !'); readln(isim); writeln('ogrenci notunu giriniz ! '); READLN(notu); writeln(isim,' isimli ögrenci '); if (notu>=1) and (notu <=49) then WRITELN('zayıf aldi !') else if (notu>=50) and (notu <=69) then WRITELN('orta aldi !') else if (notu>=70) and (notu <=89) then WRITELN('iyi aldi !') else if (notu>=90) and (notu <=100) then WRITELN('pekiyi aldi ! !') else WRITELN('not degerlendirilemedi !'); READLN; end. [/PHP] Karar Deyimleri /Case.. of Deyimi Birden fazla alternatiften birinin şeçilmesi için Case deyimi de kullanılabilir. Bu deyim özellikle bir değerin değerlendirilmesinde dikkate alınırsa kullanışlıdır. Değerlendirilecek değere case deyimi seçicisi denir. Bu değişkenin türü integer, char yada boolean olabilir. Secici değerden sonra of terimi kullanılır. Case deyimi end; ile sona erer. Seçici değer'e göre programın akışı alternatif değer ya da değer aralıklarından birinin aralığına uygun gelecektir ve bundan sonraki deyim aktif hale gelecektir. Eğer seçici değer hiçbir aralığa uygun düşmezse else'den sonraki deyim aktif hale gelecektir. Kullanım şekli: case <secici değer> of secici değer aralığı 1 : deyim1 secici değer aralığı 2 : deyim2 .... .... secici değer aralığı N : deyim N else diğer deyim end; Örnek : Bilgisayara 1 ile 5 arasında sayı giren ve girilen sayının karşılığını ekrana yazan bir Pascal programı yazınız? [PHP]program caseDeyimi; uses crt; var sayi : integer; begin CLRSCR; WRITE('1-5 ARASI BIR SAYI SECIN'); READLN(sayi); CASE sayi OF 1:WRITELN('bir sayısını girdiniz'); 2:WRITELN('iki sayısını girdiniz '); 3:WRITELN('üç sayısını girdiniz '); 4:WRITELN('dört sayısını girdiniz '); 5:WRITELN('beş sayısını girdiniz '); ELSE WRITELN(' farklı sayı girdiniz'); END; READLN; end. [/PHP] Örnek : Bilgisayara a ile e harfleri arasında bir harf giren ve hangi harfin girildiğini ekrana yazdıran bir Pascal programı yazınız? [PHP]uses crt; var harf : char; begin CLRSCR; WRITELN('a-e arasi bir harf secin'); READLN(harf); CASE harf OF 'a':WRITELN('a harfi girildi '); 'b':WRITELN('b harfi girildi '); 'c':WRITELN('c harfi girildi '); 'd':WRITELN('d harfi girildi '); 'e':WRITELN('e harfi girildi '); ELSE WRITELN('farklı bir harf girildi.'); END; {case deyimi sonu} READLN; end. [/PHP] Örnek 1: Öğrencinin ismini ve aldığı notu bilgisayara giren ve nota göre notun derecesini CASE deyimi kullanarak değerlendirip ekrana yazdıran bir Pascal programı yazınız? [PHP]uses crt; var notu:integer; isim:string[25]; begin CLRSCR; WRITELN('"öğrenci ismini giriniz !'); READLN(isim); WRITE('ogrenci notunu giriniz ! '); READLN(notu); WRITELN(isim,' isimli öğrenci '); CASE notu OF 1..49 : WRITELN('zayıf not aldı !'); 50..69 : WRITELN('orta not aldı !'); 70..89 : WRITELN('iyi not aldı !'); 90..100 : WRITELN('pekiyi not aldı!') ELSE WRITELN('not değerlendirilemedi !'); END; READLN; end. [/PHP] Örnek 2: Öğrencinin ismini ve aldığı notu harf olarak bilgisayara giren ve harfin karşılığı olan notu sayı ile ekrana yazdıran bir Pascal programı yazınız? [PHP]uses crt; var isim:string[25]; notu:char; begin CLRSCR; WRITELN('"öğrenci ismini giriniz !'); READLN(isim); WRITE('ogrenci notunu A, B, C, ve D olarak giriniz ! '); READLN(notu); WRITELN(isim,' isimli öğrenci '); CASE notu OF 'd', 'D' : WRITELN('notu 1..49 arası zayıf aldı !'); 'c', 'C' : WRITELN('notu 50..69 arası orta aldı !'); 'b', 'B' : WRITELN('notu 70..89 arası iyi aldı !'); 'a', 'A' : WRITELN('notu 90..100 arası pekiyi aldı !') ELSE WRITELN('not değerlendirilemedi !'); END; READLN; end.[/PHP] Örnek 3: Öğrenci notu şu şekilde hesaplanmaktadır. Yıliçi notu için, vizenin %50'si, quiz'in %25'i, ödevin %15'i ve devamın %10'u dikkate alınmaktadır. Başarı notu ise yıliçi notunun ve final notunun %50'si dikkate alınarak hesaplanmaktadır. Öğrencinin başarı notunu hesaplayan ve geçip kaldığını ekranda gösteren bir Pascal programı yazınız? [PHP]program basari_notu; uses crt; const vize = 0.50; quiz = 0.25; odev = 0.15; devam= 0.10; yil_ici=0.50; final = 0.50; basari= 0.65; var vize_notu:integer; quiz_notu:integer; odev_notu:integer; devam_notu:integer; yil_ici_notu : real; final_notu : real; notu : real; notlar : integer; begin WRITE('vize notunu giriniz : '); READLN(vize_notu); WRITE('quiz notunu giriniz : '); READLN(quiz_notu); WRITE('odev notunu giriniz : '); READLN(odev_notu); WRITE('devam durumu : '); READLN(devam_notu); yil_ici_notu:=vize*vize_notu+quiz*quiz_notu+odev*odev_notu+devam*devam_notu; yil_ici_notu:= yil_ici_notu*yil_ici; WRITE('final notunu giriniz: '); READLN(final_notu); final_notu:=final*final_notu ; WRITE('basari notu hesabi :'); notu:=yil_ici_notu+final_notu; WRITELN; WRITELN('yil ici notu : ',yil_ici_notu);WRITELN('final notu : ',final_notu); notlar:= trunc(notu); CASE notlar OF 1..64 :writeln('basarisiz oldu'); 65..100 :writeln('basarili oldu'); else writeln('notu gecersizdir'); END; READLN end.[/PHP] [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Turizmin başkenti olarak bilinen güneydeki ilimiz?
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Pascal Giriş
Top