Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Greske u Paskal programiranju

[es] :: Pascal / Delphi / Kylix :: Greske u Paskal programiranju

Strane: 1 2

[ Pregleda: 4816 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307



+18 Profil

icon Re: Greske u Paskal programiranju10.12.2009. u 15:21 - pre 174 meseci
Citat:
dimnicar:

writeln ( 'Molim upisite broj sati provedenih u radu za nedelju dana ');
readln (brojsati);
if (brojsati> 0) and (brojsati <= 40) then ;
zarada := brojsati * satnica ;
if (brojsati > 40) and (brojsati<=60) then ; begin
zarada := (40 * satnica) + ((60- brojsati)* 2)) ;
writeln('Bruto nedeljna zarada radnika iznosi ',zarada );
readln
end else
writeln('Niste mogli raditi vise od 60 sati u nedelji ');
readln



Samo tehnički gledano: crveno je višak a plavo manjak.

 
Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 498
*.dynamic.sbb.rs.



+5 Profil

icon Re: Greske u Paskal programiranju11.12.2009. u 23:42 - pre 174 meseci
ma,ispravio sam greske ,probao,al pokazuje nelogican rezultat.
Izgleda da sam nesto i nelogicno napisao.
Probao,ispravljao,probao ,ispravljao i nece da radi....
Drugar mi je uradio zadatak i radi super,ali na drugi nacin.
meni je krivo sto nece na ovaj moj nacin.Sve mi je logicno,uz naravno ispravljene greske ,ali prikazuje pogresan rezultat.
 
Odgovor na temu

tkaranovic
Tomislav Karanović
Beograd

Član broj: 220507
Poruke: 307



+18 Profil

icon Re: Greske u Paskal programiranju12.12.2009. u 11:57 - pre 174 meseci
Ako je broj sati veći od 40, onda ćeš taj višak dobiti oduzimanjem 40, a ne oduzimanjem od 60.

(brojsati)41 - 40 = 1 čas više, kako i jeste

60 - (brojsati)41 = 19 časova više (što manje prekovremeno radiš to si više plaćen :))

60 - (brojsati)60 = 0 (ovo bi se svakom kapitalisti svidelo :) radiš 20 časova više a nisi uopšte plaćen za to)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Greske u Paskal programiranju

Strane: 1 2

[ Pregleda: 4816 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.