Ĺadny brzuch
Wyswietla mi po kompilacji blad: " Unexpected end of file"
kod:
program instrukcja; {program podaje ocene odpowiadajaca ilosci punktow podawanych z klawiatury} {zasady oceny:) {1.ocena zalezy od reszty z dzielenia wyniku przez 10} {2.jesli reszta = 9 to ocena=5} { 8 4.5} { 7 4 } { 6 3.5} { 5 3 } { 4,3,2,1,0 2 } Program stopnie; Uses CrlScr; Var wynik : integer; ocena : real; Begin Write('Podaj liczbe punktow: '); ReadLn(wynik); case wynik mod 10 of 9: ocena := 5.0; 8: ocena := 4.5; 7: ocena := 4.0; 6: ocena := 3.5; 5: ocena := 3.0; else ocena:=2.0 end; WriteLn; WriteLn('Ocena= ', ocena:2:1); readln; end; end.
Masz dwa razy "Program x;" ;)
/nie wszystko :P
Użytkownik Cyrkiel edytował ten post 17 październik 2006, 18:33
LOL :)
Ale blad i tak sie pokazuje, ;/
{program podaje ocene odpowiadajaca ilosci punktow podawanych z klawiatury} {zasady oceny:) {1.ocena zalezy od reszty z dzielenia wyniku przez 10} {2.jesli reszta = 9 to ocena=5} { 8 4.5} { 7 4 } { 6 3.5} { 5 3 } { 4,3,2,1,0 2 } Program stopnie; Uses Crt; Var wynik : integer; ocena : real; Begin ClrScr; Write('Podaj liczbe punktow: '); ReadLn(wynik); case wynik mod 10 of 9: ocena := 5.0; 8: ocena := 4.5; 7: ocena := 4.0; 6: ocena := 3.5; 5: ocena := 3.0; else ocena:=2.0 end; WriteLn; WriteLn('Ocena= ', ocena:2:1); readln; end.
Użytkownik B-L-I-z-Z-A-R-D edytował ten post 17 październik 2006, 15:37
Czy mi się wydaje, czy komentarz w drugiej linijce jest otwarty?
Czy mi się wydaje, czy komentarz w drugiej linijce jest otwarty?
Tak, jest otwarty, ale powinien sie domknac w nastepnej lini ;).
A moze daj ";" na koncu lini else ocena:=2.0; ... Moze cos da, a moze nie ;).
Użytkownik Ali240 edytował ten post 17 październik 2006, 17:58
Dzieki, racja zagapilem sie :) Temat mozna zamknac:)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
kod:
program instrukcja; {program podaje ocene odpowiadajaca ilosci punktow podawanych z klawiatury} {zasady oceny:) {1.ocena zalezy od reszty z dzielenia wyniku przez 10} {2.jesli reszta = 9 to ocena=5} { 8 4.5} { 7 4 } { 6 3.5} { 5 3 } { 4,3,2,1,0 2 } Program stopnie; Uses CrlScr; Var wynik : integer; ocena : real; Begin Write('Podaj liczbe punktow: '); ReadLn(wynik); case wynik mod 10 of 9: ocena := 5.0; 8: ocena := 4.5; 7: ocena := 4.0; 6: ocena := 3.5; 5: ocena := 3.0; else ocena:=2.0 end; WriteLn; WriteLn('Ocena= ', ocena:2:1); readln; end; end.
Masz dwa razy "Program x;" ;)
/nie wszystko :P
Użytkownik Cyrkiel edytował ten post 17 październik 2006, 18:33
LOL :)
Ale blad i tak sie pokazuje, ;/
{program podaje ocene odpowiadajaca ilosci punktow podawanych z klawiatury} {zasady oceny:) {1.ocena zalezy od reszty z dzielenia wyniku przez 10} {2.jesli reszta = 9 to ocena=5} { 8 4.5} { 7 4 } { 6 3.5} { 5 3 } { 4,3,2,1,0 2 } Program stopnie; Uses Crt; Var wynik : integer; ocena : real; Begin ClrScr; Write('Podaj liczbe punktow: '); ReadLn(wynik); case wynik mod 10 of 9: ocena := 5.0; 8: ocena := 4.5; 7: ocena := 4.0; 6: ocena := 3.5; 5: ocena := 3.0; else ocena:=2.0 end; WriteLn; WriteLn('Ocena= ', ocena:2:1); readln; end.
Użytkownik B-L-I-z-Z-A-R-D edytował ten post 17 październik 2006, 15:37
Czy mi się wydaje, czy komentarz w drugiej linijce jest otwarty?
Czy mi się wydaje, czy komentarz w drugiej linijce jest otwarty?
Tak, jest otwarty, ale powinien sie domknac w nastepnej lini ;).
A moze daj ";" na koncu lini else ocena:=2.0; ... Moze cos da, a moze nie ;).
Użytkownik Ali240 edytował ten post 17 październik 2006, 17:58
Dzieki, racja zagapilem sie :) Temat mozna zamknac:)