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 Örnekleri 11 ( Karma örnekler)
  • » Pascal Örnekleri 18 (Biraz matematikkkk...)
  • » Pascal Örnekleri 6 ( Mükemmel Sayılar, Asal sayılar, Biraz oyun yapalım.)
  • » Pascal Örnekleri 3 (Gotoxy komutu)
  • » Pascal Örnekleri 17 ( Dosyalama İşlemleri )
  • » Case...Of
  • » Pascal Örnekleri 2 (Döngüler, for-do)
  • » Pascal Örnekleri 13 (Length, Type, While)
  • » Pascal Örnekleri 10 (Fibonacci sayıları, Asal sayılar, Basamaklara ayırma)
  • » Pascal Örnekleri 8 ( Sayı tabanları, Şifre programları)
  • » Pascal Örnekleri 14 (Diziler)
  • » Pascal Örnekleri
  • » Pascal Örnekleri 5 ( Stringler ve Gotoxy)
  • » Pascal Programlama Dili ( Başlangıç...)
  • » Pascal Örnekleri 16 ( Procedure kullanmak)



    • emre (hackerx)

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

    • Sedat

      süper.


    HasMeydan.Com