Pascal İf koşulu ile ilgili

[turgay]

Yaa beyler aslındda sadece if koşulu ile ilgilimidir tam da bilmiyorum da bi el atsanız...
Şimdiden teşekkürler

Bir şirkette çalışanları bilgisayar sisteminde saklamak için kayıt eden bir pascal programı hazırlanacaktır. Program önce kayıt işlemini gerçekleştirecek kullanıcıya kaç çalışanın kaydedileceğini soracak daha sonra kayıt işlemi gerçekleştirilecektir.

Kayıt yapılan şirket çalışanlarının Adı, Soyadı, Sicil Numarası, aylık çalışma saati ve Çalıştığı birim kaydedilmektedir.

Ekrana :Çalışanın Adını, Soyadını ve Alacağı ücreti yazdıran pascal programını gerçekleyiniz.


Ücret:
Çalıştığı birim Üretim ise Ücret = Çalışma saati x 5 YTL
Çalıştığı birim Pazarlama ise Ücret = Çalışma saati x 10 YTL
Çalıştığı birim Muhasebe ise : Ücret = Çalışma saati x 15
Diğerleri : Ücret = Çalışma saati x 2,5

[Fobus]

if ve case ile yapabilirsiniz veya ücret carpani direk belirleyebilrsiniz. ne sormak istediginiz net degil....

[blackfox]

De burada ben "if" lik birşey göremedim. Altı üstü birkaç Read(); var. Sonrada text dosyasına atacak. o kadar basit.

[HaokaH]

If..Then..Else Blogu
If..Then..Else blogu çogu programlama dilinde oldugu gibi Pascalda da önemi tartisilmaz bir koşuldur.Kisaca yapisi söyledir.

If sart then
begin
(Sart dogru ise çalistirilacak kod)
end
Else
begin
(sart yanlis ise çalistirlacak kod)
end;

Blok içinde begin ve end komutlari kullanmadanda programlarinzi yazabilirsiniz.Ancak kullanmaniz sizin yarariniza olacaktir.
Çogu programlama dilinde Elseif yada Elsif gibi eger yukardaki sart yanlissa bu sarti da dene gibi bir komut vardir.Ancak bu komut Pascal\'da mevcut degildir.Bu açigi Else komutundan sonra tekrar bir If bloku baslatarak kapayabiliriz.Asagidaki örnegi inceleyin.

program If_Then_Else;

var
a,b,c: integer;

begin
a:=5;
b:=10;
c:=50;

if (a=5) and (b=10) and (c=50) then { Eger a=5 b=10 ve c=50 ise basla }
begin
if a+b=14 then writeln(\'a+b 14 e esittir...\') { Eger a+b=14 ise }
else writeln(\'a+b 14 e esit degildir...\') { Eger a+b 14 e esit degilse }
end
else { Eger a=5 b=10 ve c=50 degil ise }
halt; { Programi bitir }
end.

Dikkat edilmesi gereken bir baska mevzu ise eger If blokundan sonra else kullanmak istiyorsaniz hiçbir sartla If içindeki komutlari noktali virgül(;) ile sonlandirmamalisiniz.Dikkat ettiyseniz end; yerine dahi end kullandim.
Yukaridaki programda and gibi bir operatör kullandik bir sonraki derste operatörler hakkinda genis bilgi verecegim.Son olarak Else If komutunuda kavrayabilmek için asagidaki kodu inceleyin.

program Else_If;

var
a: integer;

begin
a:=5;

if a=5 then writeln(\'A=5 Bes\')

else if a=6 then writeln(\'A=6 Alti\')

else writeln(\'A bilinmiyor...\');

end.

Amacım; If.. Then.. Else.. Elseif Kullanimi bir nebze olsun anlatmaktı..

[heidfield]

blackfox, mesajından alıntı:

De burada ben "if" lik birşey göremedim. Altı üstü birkaç Read(); var. Sonrada text dosyasına atacak. o kadar basit.

arkadaş doğru söylemiş if lik bişey göremedim bende

[blackfox]

farklı yollarla yapabilirsin... ufak bir menu yaparsın sonra case of .. yada üstte arkadaşın yaptığı gibi if... yada goto();

[PowerSoft]

blackfox, mesajından alıntı:

farklı yollarla yapabilirsin... ufak bir menu yaparsın sonra case of .. yada üstte arkadaşın yaptığı gibi if... yada goto();

ARKADAŞLARA KATILIYORUM...


ZATEN IF KULLANSANDA ZOR BİR YAPISI ONUDA BIR ARKADAŞ ANLATMIŞ SAĞOLSUN...