ana sayfa > Pascal > Pascal Örnekleri 1 (Karar verme oparatörleri)

Pascal Örnekleri 1 (Karar verme oparatörleri)

Perşembe, 07 May 2009 yorum ekle yorumlara git

Önceki makalemizde pascal ın temellerini örneklerle anlattık. Bu makalemizde programların vazgeçilmezi karar verme oparatörlerinden if, if else if, ve case of ile ilgili örnekleri anlatıcaz.   Hemen örneklerimizden başlayalım:

11)Klavyeden girilen sayının çift mi tek mi olduğunu bulan program.
Çöz:11)uses crt;
var
sayi:integer;
begin
write(‘sayıyı giriniz:’);readln(sayi);
if(sayi mod 2=0) then
writeln(‘çift sayı’)
else
writeln(‘tek sayı’);
readln;
end.

12)Klavyeden notu girilen öğrencinin dersden geçti veya kaldı hesaplamasını yapan program.
Çöz:12)uses crt;
var
sayi:integer;
write(‘notunuzu girin:’);readln(sayi);
if(sayi<0) then
writeln(‘eksi sayı girdiniz’)
else
if (sayi<=25)then
writeln(‘0 Kaldınız’);
else if(sayi<=44) then
writeln(‘1 Kaldınız’)
else if(sayi<=54) then
writeln(‘2 Geçtiniz’)
else if(sayi<=69) then
writeln(‘3 Geçtiniz’)
else if(sayi<=84) then
writeln(‘3 Geçtiniz’)
else if(sayi<=100) then
writeln(‘5 Geçtiniz’)
else writeln(‘fazla sayı girdiniz’);
readln;
end.

13)Klavyeden kenarlar sayıları girilen üçgenin çeşidini yazan program.
Çöz:13)uses crt;
var
a,b,c:integer;
begin
writeln(’1.kenari_giriniz:’);readln(a); writeln(’2.kenari_giriniz:’);readln(b); writeln(’3.kenari_giriniz:’);readln(c); if(a=b)and(b=c)then
writeln(‘eskenar’)
else if(a<>b)and(b<>c)and(a<>c)then
writeln(‘cesitkenar’)
else
writeln(‘ikizkenar’);
readln;
end.

14)Klavyeden çocuk sayısı ve maas miktarı girilen işçinin toplam maaşı yazan program
1 çocuğu varsa maaş+ %5
2 çocuğu varsa maaş+ %10
3 çocuğu varsa maaş+ %15
Çöz:14)uses crt;
var
cocuk,maas:real;
begin
write(‘çocuk sayısını gir:’);readln(cocuk);
write(‘maaş miktarını gir’);readln(maas);
if(cocuk=1) then
maas:=maas+(maas*0.5);
if(cocuk=2) then
maas:=maas+(maas*0.10);
if(cocuk=3) then
maas:=maas(maas*0.15);
writeln(‘maas’,maas:10:2);
readln;
end.

15) Klavyeden kenarlar sayıları girilen üçgenin çeşidini yazan program.
Çöz:15)uses crt;
var
a,b,c:integer;
begin
write(‘1. kenarı gir:’);readln(a);
write(‘2. kenarı gir:’);readln(b);
write(‘3. kenarı gir:’);readln(c);
if(a=b) and (b<>c) then
writeln(‘ikiz kenar’);
else if(a=c) and (a<>b) then
writeln(‘ikiz kenar’)
else if(b=c) and (b<>a) then
writeln(‘ilikz kenar’)
else if(a=b) and (b=c) then
writeln(‘eş kenar’)
else writeln(‘Çeşit kenar’);
readln;
end.

16)Klavyeden seçime bağlı olarak bilgisayar, matematik, elektronik kitabı seçimleri girilerek sayısına göre indirim uygulayan program.

Bilgisayar Kitabı:%10 indirim
50:%20 indirim
100:%25 indirim

Matematik Kitabı:%5 indirim
50:%15 indirim
100:%20 indirim

Elektronik Kitabı:%8 indirim
50:%18 indirim
100:%22 indirim

Çöz:16)uses crt;
var
sec,sayisi:integer;
fiyat:real;
begin
writeln(‘MENU’);
writeln(‘1-Bilgisayar Kitabı’);
writeln(‘2-Matematik Kitabı’);
writeln(‘3-Elektronik Kitabı’);
writeln(‘seçiminizi yapınız:’);readln(sec);
writeln(‘fiyatını giriniz:’);readln(fiyat);
writeln(‘sayısını giriniz:’9;readln(sayisi);
if (sec=1) then
fiyat:=fiyat-(fiyat*0.10);
if (sayisi=50) then
fiyat:=fiyat-(fiyat*0.20);
if (sayisi=100) then
fiyat:=fiyat-(fiyat*0.25);
if (sec=2) then
fiyat:=fiyat-(fiyat*0.05);
if (sayisi=50) then
fiyat:=fiyat-(fiyat*15);
if (sayisi=100) then
fiyat:=fiyat-(fiyat*0.20);
if (sec=3) then
fiyat:=fiyat-(fiyat*0.08);
if (sayisi=50) then
fiyat:=fiyat-(fiyat*0.18);
if (sayisi=100) then
fiyat:=fiyat-(fiyat*0.22);
if (sec>3) and (sec<1) then
writeln(‘yanlış seçim’);
writeln(‘fiyatı:’,fiyat:0:2);
readln;
end.

17)Klavyeden girilen üç adet sayının en büyük, ortada, en küçük olmak üzere sıraya koyan program.
Çöz:17);uses crt;
var
sayi1,sayi2,sayi3:integer;
begin
write(’1.sayıyı giriniz:’);readln(sayi1);
write(’2.sayıyı giriniz:’);readln(sayi2);
write(’3.sayıyı giriniz:’);readln(sayi3); if(sayi1>sayi2)and(sayi1>sayi3)and(sayi2>sayi3)then
begin
writeln(’1.büyük sayı:’,sayi1);
writeln(’2.büyük sayı:’,sayi2);
writeln(’3.büyük sayı:’,sayi3);
end;
if(sayi1>sayi2)and(sayi1>sayi3)and(sayi3>sayi2)then
begin
writeln(’1.büyük sayı:’,sayi1);
writeln(’2.büyük sayı:’,sayi3);
writeln(’3.büyük sayı:’,sayi2);
end;
if(sayi2>sayi1)and(sayi2>sayi3)and(sayi1>sayi3)then
begin
writeln(’1.büyük sayı:’,sayi2);
writeln(’2.büyük say:’,sayi1);
writeln(’3.büyük sayı:’,sayi3)
end;
if(sayi2>sayi1)and(sayi2>sayi3)and(sayi3>sayi1)then
begin
writeln(’1.büyük sayı:’,sayi2);
writeln(’2.büyük sayı:’,sayi3);
writeln(’3.büyük sayı:’,sayi1);
end;
if(sayi3>sayi1)and(sayi3>sayi2)and(sayi2>sayi1)then     begin
writeln(’1.büyük sayı:’,sayi3);
writeln(’2.büyük sayı:’,sayi2);
writeln(’3.büyük sayı:’,sayi1);
end;
if(sayi3>sayi1)and(sayi3>sayi2)and(sayi1>sayi2)then
begin
writeln(’1.büyük sayı:’,sayi3);
writeln(’2.büyük sayı:’,sayi1);
writeln(’3.büyük sayı:’,sayi2);
end;
readln;
end.

18)Klavyeden girilen ilk ve son sayacın hesaplayan program.
Çöz:18)uses crt;
var
sonsayac,ilksayac:integer;
elk:real;
begin
write(‘ilk sayacı giriniz:’);readln(ilksayac);
write(‘son saycı giriniz:’);readln(sonsayac);
elk:=sonsayac-ilksayac;
if (elk>150) then begin
elk:=elk-15;
elk:=elk*1.5;
elk:=elk+150;
elk:=elk*1.18*15;
writeln(‘Fatura tutarı:’,elk);
end
else if (elk<=150) then begin
elk:=elk*1.18*15;
writeln(‘Fatura tutarı:’,elk);
end;
readln;
end.

19)Bir öğrencinin bir ders olarak Birinci dönem notu ve İkinci dönem notu girilerek ortalamasıyla yapılan Kaldı, Geçti durumunu yapan program.
Çöz:19)uses crt;
var
ilkdonem,ikincidonem:integer;
ortalama:real;
begin
write(‘ilk dönem notunuzu giriniz:’);readln(ilkdonem);
write(‘ikinci döenm notunuzu giriniz:’);readln(ikincidonem);
ortalama:=(ilkdonem+ikincidonem)/2;
writeln(‘ortalama:’,ortalama);
if (ikincidonem<2) then
writeln(‘kaldınız’)
else
if (ortalama>1.5) then
writeln(‘geçtiniz’);
if (ortalama<1.5) then
writeln(‘kaldınız’);
readln;
end.

20)Klavyeden kitap fiyatı girilip sayısına göre indirim yapan program.
Çöz:20) uses crt;
var
sayisi:integer;
fiyat:real;
begin
writeln(‘kitabin_sayisini_giriniz:’);readln(sayisi); writeln(‘kitabin_fiyatini_giriniz:’);readln(fiyat); if(sayisi<10)then
begin
fiyat:=sayisi*fiyat;
writeln(‘fiyati:’,fiyat,’YTL’);
end
else
if(sayisi>=10)and(sayisi<50)then
begin
fiyat:=fiyat-(fiyat*0.10);
writeln(‘fiyati:’,fiyat);
end
else
if(sayisi>=50)then
begin
fiyat:=fiyat-(fiyat*0.20);
writeln(‘fiyati:’,fiyat,’YTL’);
end;
readln;
end.

21)Klavyeden girilen dört kenara göre dikdörtgen mi? Kare mi? Paralel kenar mı? Yamuk mu? olduğunu bulan program.
Çöz:21)uses crt;
var
a,b,c,d,aci:integer;
begin
write(‘birinci kenarı giriniz:’);readln(a);
write(‘ikinci kenarı giriniz:’);readln(b);
write(‘üçüncü kenarı giriniz:’);readln(c);
write(‘dördüncü kenarı giriniz:’);readln(d);
if (a=b) and (b=c) and (c=d) then
writeln(‘kare’)
else if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
writeln(‘yamuk’)
else if (a=c) and (b=d) then
begin
writeln(‘bu dikdörtgen yada paralel kenar olabilir bir iç açı giriniz:’);
readln(aci);
if (aci=90) then
writeln(‘dikdörtgen’)
else
writeln(‘paralel kenardır’);end
else
write(‘öyle bir dörtgen yoktur’);
readln;
end.

22)Klavyeden girilen notu beşlik sisteme çeviren program.
Çöz:22)uses crt;
var
sayi:integer;
begin
write(‘notunuzu girin:’);readln(sayi);
case sayi of
0..24:writeln(‘0 ile kaldınız’);
25..44:writeln(‘1 ile kaldınız’);
45..54:writeln(‘2 ile geçtiniz’);
55..69:writeln(‘3 ile geçtiniz’);
70..84:writeln(‘4 ile geçtiniz’);
85..100:writeln(‘5 ile geçtiniz’)
else
writeln(‘notunuzu 0-100 arasında giriniz’);
end;
readln;
end.

23)Klavyeden girilen kenar uzunluğuna göre üçgen olup olmadığını bulan program.
Çöz:23)uses crt;
var
a,b,c:integer;
begin
write(‘birinci kenarı gir:’);readln(a);
write(‘ikinci kenarı gir:’);readln(b);
write(‘üçüncü kenarı gir:’);readln(c);
if((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
writeln(‘bu bir üçgendir’)
else
writeln(‘üçgen değildir’);
readln;
end.

Yazar: kacarozgur

Özgür Kaçar sitemizde 38 yazı eklemiş...




Benzer Konularımıza da Göz Atın!

coded by nessus
Share


Bu kategorideki rastgele diğer yazılar
  • » Pascal Programlama Dili ( Başlangıç...)
  • » Pascal Örnekleri 5 ( Stringler ve Gotoxy)
  • » Pascal Örnekleri 18 (Biraz matematikkkk...)
  • » Pascal Örnekleri
  • » Pascal Örnekleri 7 ( Bloklu yazım örnekleri )
  • » Pascal Örnekleri 16 ( Procedure kullanmak)
  • » Pascal Örnekleri 11 ( Karma örnekler)
  • » Pascal Örnekleri 13 (Length, Type, While)
  • » Pascal Örnekleri 4 ( Random (Rastgele) fonksiyonu )
  • » Pascal Örnekleri 15 ( Çift Boyutlu Diziler)
  • » Pascal Örnekleri 19 (Sınav kağıdını dolduran program)
  • » Pascal Örnekleri 12 ( AscII tablosu ve Faktoriyel)
  • » Pascal Örnekleri 10 (Fibonacci sayıları, Asal sayılar, Basamaklara ayırma)
  • » Pascal Örnekleri 8 ( Sayı tabanları, Şifre programları)
  • » Pascal Örnekleri 9 ( Sayısal Loto, Pascal Üçgeni, Hesap Makinesi)



    1. emre (hackerx)
      Perşembe, 23 Tem 2009 zamanında 12:02 | #1

      cok güzel. tam iki saat aramam sonucunda tam istedigimi buldum…

    2. Sedat
      Cuma, 08 May 2009 zamanında 16:30 | #2

      süper.

    1. şimdilik geri bağlantı yok

    *
    To prove you're a person (not a spam script), type the security word shown in the picture. Click on the picture to hear an audio file of the word.
    Click to hear an audio file of the anti-spam word


    HasMeydan.Com