Требуется дописать компилятор. ЧО то он у мя ругается на строчку в лесическом модуле: (lex.pas)
if eof(f) then LineError:=LineError+1; (если символ перевода строки то увел +1) выдаёт следующее EInOutError I/O=6.
Прикрепленные файлы
KOMPIL.ZIP ( 87.02 килобайт )
Кол-во скачиваний: 207
Потому что:
procedure Abort(s: string);
begin
Error(s);
close(f);
close(output); // <--- Это тебя кто научил делать?
readln;
Halt;
end;
eof - это конец файла
Конец строки - eoln