Skontrolovanie programu – Pascal – Fórum – Programujte.com

Ahojte,

som takmer začiatočníčka s FreePascalom a dostala som za úlohu nakódovať program, ktorý po zadaní nejakého dátumu vypíše, aký deň (Po - Ne) daný dátum bol/bude. Mám ho z 3/4 hotový, ale nemôžem vyskúšať, či funguje správne, pretože sa z nejakého dôvodu ani nespustí :( Nájde sa tu niekto, kto by očami preletel môj zdroják a povedal, kde som urobila chybu? Vopred vďaka.

nespusti nebo nezkompiluje? dost velkej rozdil mezi tim

#2 KIIV

Skompiluje, ale nespustí - konkrétne som tam použila príkaz "case" a chyba je podľa neho niekde tam.

#3 denny1304
pošli nám kód...

#4 crazy
Poslala som.

#5 denny1304
 

case m of
   1: w = 0 - 25 - 31
   2: w = 0 - 25
   3: w = 0 + 3
   4: w = 0 + 3 + 31
   5: w = 0 + 3 + 31 + 30
   6: w = 0 + 3 + 31 + 30 + 31
   7: w = 0 + 3 + 31 + 30 + 31 + 30
   8: w = 0 + 3 + 31 + 30 + 31 + 30 + 31
   9: w = 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31
   10: w = 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31
   11: w = 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31 + 31
   12: w = 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31 + 31 + 30
   else write(' Zle cislo mesiaca ');

chybí ti tam středníky, za každým w = ... musí být středník

#6 crazy
Vďaka, dopísala som ich tam, ale stále vypisuje " Illegal expression" a "syntax error, ";" expected but "CASE" found... nerozumiem, čo mu vadí...

Píše to, že byl očekáván ";" a místo toho byl nalezen "case".

Před tím case asi taky máš příkaz, který není ukončený středníkem.

A netvrď, že se ti to jen nespustí, když se to evidentně ani nezkompiluje.

#6 crazy
Příkaz case musí být ukončen end; A navíc máš špatně znak pro přiřazení místo = má být :=

Tedy

case m of
   1: w := 0 - 25 - 31;
   2: w := 0 - 25;
   3: w := 0 + 3;
   4: w := 0 + 3 + 31;
   5: w := 0 + 3 + 31 + 30;
   6: w := 0 + 3 + 31 + 30 + 31;
   7: w := 0 + 3 + 31 + 30 + 31 + 30;
   8: w := 0 + 3 + 31 + 30 + 31 + 30 + 31;
   9: w := 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31;
   10: w := 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31;
   11: w := 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31 + 31;
   12: w := 0 + 3 + 31 + 30 + 31 + 30 + 31 + 31 + 31 + 31 + 30;
 else

  write(' Zle cislo mesiaca ');

end;