+ Error w Pascalu

Junkers · Post autor: **Junkers** » 01 grudnia 2007, 17:28

Witam napisałem dzisiaj programik... dość spory (jak na początkującego) bo mający 80 linii kodu
podczas pracy wszystko było ok ponieważ sprawdzałem sobie błędy od razu przy pisaniu tzn usuwałem wszyskie niedoróbki oprócz

Kod: Zaznacz cały

Error 10: Unexpected end of file

ponieważ ten błąd odnosił się do końca programu którego jeszcze nie napisałem. Po końcowym end. i kompilacji moim oczom ukazało się zło...

Kod: Zaznacz cały

Error 113: Error in statement

i tyczy się on rzeczonego end. :-/ :-/ :-/

Co ja miałem niby tam pomylić ?!

ruun · Post autor: **ruun** » 01 grudnia 2007, 18:31

Podaj więcej informacji albo zaraz ktoś rzuci Ci tekst o "popsutej szklanej kuli"

Czy ten błąd jest sygnalizowany dla jakiegoś konkretnego wiersza? Czym kompilujesz? Jeśli to możliwe, załącz kod źródłowy.

Lorenzo · Post autor: **Lorenzo** » 01 grudnia 2007, 20:23

sprawdź zasadę zachowania liczby nawiasów ;-)

Junkers · Post autor: **Junkers** » 01 grudnia 2007, 20:47

ruun pisze: Jeśli to możliwe, załącz kod źródłowy.

mówisz masz :mrgreen:

błąd tyczy się ostatniej linijki czyli >>end.<<
pisze w Borland Pascalu

Kod: Zaznacz cały

uses
 Crt] of string [30];
 TSamochod = record
  producent:String [20];
  marka:String [20];
  typ:TTyp;
  kolor:TKolor;
  tablica:String [7];
  nadwozie:String [30];
  silnik:String [30];
  przebieg:Longint;
  wyposazenie:TWyposazenie;
 end;
var
samochod:TSamochod;
znak:char;
I:byte;
wypos:string [30];
begin
ClrScr;
write('Podaj Prorucenta: ');
readln(Samochod.producent);
write('Podaj Mark

ruun · Post autor: **ruun** » 02 grudnia 2007, 12:46

Błąd był w pierwszej pętli repeat

Kod: Zaznacz cały

  repeat 
    write('podaj typ (''O'' - osobowy, ''C'' - ci

Junkers · Post autor: **Junkers** » 02 grudnia 2007, 21:07

Dziękuje bardzo !!! Wszystko jest ok :-D Zmyliło mnie to, że wskazywało błąd w ostatniej linii.