Mali Paskal problemčić!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam je dan mali problem oko ugnezdjenog iskaza!

Ja cu napisati code i reci vam gde se stalno buni!

Const
Dodatak = 1.5;

var
BrSati : Integer;
VredSat, Vred, Vred1 : Real;

Begin
Write ('Unesite broj radnih sati u nedelji: '); readln(BrSati);
Write ('Unesite visinu zarade po satu: '); readln(VredSat);
If (BrSati > 0) and (BrSati <= 40)
Then Vred := BrSati * VredSat;
writeln ('Bruto nedeljna plata je ', Vred:4:2)
else - STALNO SE BUNI ZA -ELSE-
If (BrSati >=40) and (BrSati <=60)
Then Vred1 := (BrSati * VredSat) * Dodatak;
writeln ('Bruto nedeljna plata je ', Vred1:4:2)
else
readln ('Podaci nisu ispravni!');
readln
end.
ILI BIH MOGAO DA KORISTIM SLOŽENI ISKAZ?1!
Rado prihvatam svaki predlog!!!
Potpis: IIRS8

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Buni se zato sto ti fali iza prvoh If-a BEGIN END blok!

Const Dodatak = 1.5; var BrSati : Integer; VredSat, Vred, Vred1 : Real; Begin Write ('Unesite broj radnih sati u nedelji: '); readln(BrSati); Write ('Unesite visinu zarade po satu: '); readln(VredSat); If (BrSati > 0) and (BrSati <= 40) Then BEGIN Vred := BrSati * VredSat; writeln ('Bruto nedeljna plata je ', Vred:4:2) END else If (BrSati >=40) and (BrSati <=60) Then BEGIN Vred1 := (BrSati * VredSat) * Dodatak; writeln ('Bruto nedeljna plata je ', Vred1:4:2) END else readln ('Podaci nisu ispravni!'); readln end.

Moras koristiti ovo begin i end jer u suprotnom program gleda samo prvu nardbu iza if-a, a ostalo gleda kao nezavisne naredbe, tj, kao da nisu iz If Then Else naredbe, pa ti je zato i davao gresku za else posto ti se else u stvari pojavljivalo "iz vedra neba" .

Dopuna: 21 Maj 2005 16:40

BTW proveri ovo pretposlednje readln, nesto mi to smrdi na writeln .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

IIRS8 ::
readln ('Podaci nisu ispravni!');


Pored ovoga sto ti je Strog napisao i ovde imas gresku. Umesro readln za unos podataka napisi writeln za ispis podataka.

Dopuna: 21 Maj 2005 17:21

Ups... sad tek vidim da je i strog to napisao.
Takodje i iza onoga readln dodaj ";"

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

HVALA STROG!!! Oduzicu se prvom prilikom!
Znao sam ja da je ipak bilo bolje da sam koristio slozeni iskaz If. Ali mi se ovako činilo lakše! Code sam na forumu pisao iz glave tako da za Readln i Writeln veoma dobro znam kad se šta piše(greška u kucanju).

HVALA I POZDRAV OD IIRS8 !