Во-первых, ваш код работает. Ошибка возможна потому, что не находит файл или он занять другим процессом.
Во — вторых, раз это PascalABC.Net, то почему бы не писать в его стиле
const
filename = 'dat.txt';
var
f: Text; // Файловая переменная.
i: integer; // Переменная для хранения значения количества подсчитываемых элементов.
a: real; // Промежуточная переменная для хранения значения читаемых элементов.
sum: real;// переменная для хранения значения произведения.
begin
// Rewrite(f, filename);
// f.Writeln(2);
// f.Writeln(7);
// f.Close();
f := OpenRead(filename);
i := 0; // Установка счетной переменной в нулевое состояние.
sum := 0;
while not f.Eof do // Цикл для поэлементного чтения из файла.
begin
a := f.ReadlnReal(); // Чтение информации из файла.
write(a:8:2);
sum := sum + a;
inc(i);
end;
f.Close();
writeln;
writeln('The number of extracted numbers from the file is: ', i);
writeln('Summa numbers from a file is equal to: ', sum:0:2);
readln;
end.
Неописанная переменная
begin S := 1; // Неизвестное имя S end.
Все используемые переменные должны быть предварительно описаны с помощью ключевого слова var (внутри блока begin/end или, что обычно хуже, в разделе описаний вначале программы).
Отсутствующая ;
begin var S: integer S := 1; // Компилятор здесь скажет: Ожидалась ; — имеется ввиду предыдущая строка! end.
begin var S := 1 S := S + 1 // Аналогично: проблема на предыдущей строке, а на текущей нет, потому что после неё идёт end. end.
Очень частая ошибка у начинающих. Курсор, как правило, позиционируется в начале следующей строки.
Несовместимость типов при присваивании
begin var S: integer := 1.3; // Нельзя преобразовать тип real к integer end.
Безболезненно можно присваивать только данные одного типа. Если данные — разных типов, то в редких случаях можно преобразовать данные одного типа в данные другого. Например, целое можно преобразовать в вещественное, а символ — в строку. Обратные преобразования не допускаются.
Чтобы не ошибаться в подобных простых случаях в Паскале есть следующая краткая форма объявления и инициализации переменной:
begin var S := 1.3; // Тип real будет выведен компилятором автоматически end.
Отсутствие закрывающего апострофа литеральной строки
begin var x := 2; // x получает тип integer var y := 3; // y получает тип integer writeln('Результат сложения равен =, x + y); // Не хватает закрывающего апострофа end.
Закрыть апостроф надо на той же строке, где расположен открывающий апостроф
Ошибки расстановки запятых и апострофов при выводе строк и выражений
begin var x := 2; // x получает тип integer var y := 3; // y получает тип integer writeln(x, '+,' y, '=', x+y); // Неверная расстановка запятых и апострофов end.
Слишком много запятых и апострофов рядом, потому начинающие часто путаются
Надо уяснить правила:
- запятые разделяют разные элементы вывода
- все, что находится в апострофах, будет выведено на экран без изменений
Ошибка ввода
begin var x: integer; read(x); // введите блаблабла и посмотрите, что получится end.
Это — ошибка во время выполнения. Программа пытается преобразовать введенную строку в число, не может это сделать и завершается с ошибкой.
Аналогичный фрагмент в более современном и предпочтительном синтаксисе:
begin var x := ReadInteger; end.
Ошибка неинициализированной переменной
begin var x: integer; // Забыли инициализировать или ввести x var r := x * x; // r получает тип integer writeln('Квадрат числа ', x, ' = ', r); end.
Перед использованием любую переменную надо ввести или присвоить ей начальное значение. Это действие называется инициализацией переменной.
Деление на 0
begin var x := 0; var c := 666 div x; // Здесь происходит деление на 0 end.
Если во время выполнения программа выполнит деление на 0, то она завершится с ошибкой.
Корень из отрицательного числа
begin writeln(sqrt(-1)); // Корень из отрицательного числа end.
В обычном Паскале возникает ошибка времени выполнения.
В PascalABC.NET выводится NaN — Not a Number
Ссылки
- Программы для начинающих
- Сайт PascalABC.NET: Программы и алгоритмы для начинающих
program p1;
type
massive = array of integer;
function PolMos(a: massive; n: byte): char;
var
c, i: byte;
begin
c := 0;
for i := low(a) to high(a) div 2 do
if a[i] <> a[high(a) - i + 1] then c := 1;
if c = 0 then writeln(chr(13), 'Массив является палиндромом')
else writeln(chr(13), 'Массив не является палиндромом');
end;
function massiv(n: byte): char;
var
i: byte;
a: massive;
begin
setlength(a, n);
randomize;
for i := low(a) to high(a) do
begin
a[i] := random(n);
write(a[i]:4);
end;
PolMos(a, n);
end;
var
n: byte;
begin
write('Введите размер массива: '); read(n);
write('Массив: '); massiv(n);
end.
-
Вопрос заданболее года назад
-
768 просмотров
Индекс находился вне границ массива
Русским по белому же написано.
Представим, что у нас массив a[] размером 2
Тогда
low(a)=0
high(a)=1
На первой же итерации:
i=0
high(a) — i + 1 = 2
2 находится за пределами границ массива.
А ещё из твоей функции никакое значение не возвращается.
И в PascalABC можно точки останова расставлять и смотреть, какие значения переменных у тебя там получились перед ошибкой.
Пригласить эксперта
-
Показать ещё
Загружается…
07 июн. 2023, в 01:32
5000 руб./за проект
07 июн. 2023, в 00:54
15000 руб./за проект
07 июн. 2023, в 00:51
13000 руб./за проект
Минуточку внимания
Ошибка времени выполнения на 21 строке, также известная как «runtime error», является одной из наиболее распространенных проблем, с которыми сталкиваются начинающие программисты на языке Паскаль.
Причины ошибки времени выполнения на 21 строке
Ошибка времени выполнения на 21 строке может возникнуть по нескольким причинам, но наиболее распространенные из них — это:
- Попытка доступа к несуществующему элементу массива;
- Попытка деления на ноль;
- Попытка обращения к неинициализированной переменной.
Также ошибки могут возникать из-за ошибок ввода/вывода или неправильного использования указателей и функций.
Как исправить ошибку времени выполнения на 21 строке
Чтобы исправить ошибку времени выполнения на 21 строке, необходимо внимательно проанализировать код и найти место, где происходит ошибка. Следующие шаги помогут вам в этом:
- Найдите 21 строку в вашем коде и определите, какая переменная или выражение вызывает ошибку.
- Определите, что может быть причиной ошибки. Может быть, вы пытаетесь доступиться к элементу массива, который не существует, или пытаетесь произвести деление на ноль?
- Проверьте, инициализирована ли переменная, которую вы используете. Если нет, то инициализируйте ее перед использованием.
- Если вы используете массив, убедитесь, что вы не пытаетесь обратиться к элементу за его границами. Проверьте, что индекс элемента находится в пределах допустимого диапазона.
- Проверьте, что у вас нет неправильных указателей или функций. Они могут вызвать ошибки во время выполнения.
Заключение
Ошибка времени выполнения на 21 строке может быть вызвана множеством причин, но ее можно легко исправить, если провести внимательный анализ кода и выяснить, что вызывает ошибку. Будьте внимательны и тщательно проверяйте свой код — это поможет избежать этой и других ошибок в процессе программирования.
Сообщения и коды ошибок
Сообщения и коды ошибок
- Out of memory (выход за границы памяти)
- Если в опции COMPILE/DESTINATION установлено значение MEMORY, замените эту опцию на DISK.
- Если в опции OPTIONS/COMPILER/LINK установлено значение MEMORY, замените эту опцию на DISK.
- Если Вы используете постоянно помещенные в память (резидентные) обслуживающие программы, такие как WINDOWS, SIDEKICK, NORTON
удалите их из памяти. - Если Вы используете интегрированную среду TURBO.EXE, то попробуйте воспользоваться компилятором ТРС.ЕХЕ, он занимает меньше памяти.
- Если ни одна из рекомендаций не помогает, то, возможно, Ваша программа просто слишком велика, чтобы компилировать ее в таком объеме памяти. В этом случае Вы должны разбить её на два или более модулей.
- Indentifier expected (не указан идентификатор). Этот идентификатор не был описан.
- Unknow indentifier (неизвестный идентификатор). Этот идентификатор не был описан.
- Duplicate indentifier (двойной идентификатор). Попытка дважды описать один и тот же идентификатор.
- Syntax error (синтаксическая ошибка). В исходном тексте найден неверный символ. Возможно, Вы забыли заключить в кавычки строковую константу.
- Error in real constant (ошибка в вещественной константе).
- Error in integer constant (ошибка в целой константе). Учтите, что после целых действительных чисел, превышающих диапазон представления целых чисел (-2147483648…+2147483647), должны ставиться точка и нуль, например 12345678912.0.
- String constant exceeds line (строковая константа превышает допустимые размеры). Вероятно, Вы забыли поставить апостроф в конце строковой константы.
- Too many nested files (слишком много вложенных файлов). Компилятор допускает не более пяти вложенных исходных файлов.
- Unexpected end of file (не найден конец файла).
Вы могли получить это сообщение об ошибке по одной из следующих причин:- Ваш исходный файл закончился перед последним END основного раздела< операторов. Вероятно, в Вашей программе неодинаковое количество операторов BEGIN и END.
- Включаемый файл заканчивается в середине раздела операторов. Каждый
раздел операторов должен целиком помещаться в одном файле. - Вы не закончили комментарий.
- Line to long (слишком длинная строка). Максимальная длина строки, обрабатываемой компилятором, равна 126 символам (обратите внимание: редактор среды может обрабатывать до 249
символов в строке). - Type identifier expected (здесь нужен идентификатор типа). Не указан тип
идентификатора. - Too many open files (слишком много открытых файлов). Если появляется эта ошибка, то это означает, что конфигурационный файл CONFIG.SYS операционной системы не включает параметр FILES=XX или этот параметр указывает слишком мало файлов. Увеличьте число файлов до нужного значения, например, до 20.
- Invalid file name (неверное имя файла). Имя файла не верно или указан несуществующий путь.
- File not found (файл не найден). Файл не был найден в просмотренных
каталогах. - Disk full (диск заполнен). Удалите некоторые файлы или воспользуйтесь
новым диском. - Invalid compiler directive (неправильная директива компилятора). Неверная буква в директиве компилятора, один из параметров директивы компилятора неверный, или Вы пользуетесь глобальной директивой компилятора, когда компиляция тела программы уже началась.
- Too many files (слишком много файлов). В компиляции программы или программного модуля участвуют слишком много файлов. Попытайтесь не использовать так много файлов, например, объединяя включаемые файлы.
- Undefined type in pointer definition (неопределенный тип в объявлении указателя). Попытка объявить типизированный указатель, связанный с необъявленным типом данных.
- Variable identifier expected (отсутствует идентификатор переменной). На
этом месте должен быть идентификатор переменной. - Error in type (ошибка в объявлении типа). Объявление типа не может начинаться с этого символа.
- Structure too lage (слишком большая структура). Максимально допустимый размер любого структурированного типа -65520 байт.
- Set base type of range (базовый тип множества нарушает границы). Базовый тип множества должен представлять собой тип-диапазон с границами в пределах от 0 до 255 или перечисляемый тип с не более чем 256 значениями.
- File components may not be files (компонентами файла не могут быть файлы). Конструкции типа файл файлов не допускаются.
- Invalid string length (неверная длина строки). Длина строки должна находиться в диапазоне от 1 до 225.
- Type mismatch (несоответствие типов). Это сообщение может быть вызвано
следующими причинами:- Несовместимые типы переменной и выражения в операторе присваивания.
- Несовместимые типы фактического и формального параметров в обращении к процедуре или функции.
- Тип выражения несовместим с типом индекса при индексировании массива.
- Несовместимые типы операндов в выражении.
- Invalid subrange base type (неправильный базовый тип для типа-диапазона).Допустимыми базовыми типами являются все порядковые типы.
- Lower bound greater than upper bound (нижняя граница больше верхней).Описание типа-диапазона содержит неправильные границы.
- Ordinal type expected (нужен порядковый номер). Вещественные, строковые, структурные, процедурные типы и указатели в данном месте программы не допускаются.
- Integer constant expected (нужна целая константа).
- Constant expected (нужна константа).
- Integer or real constant expected (нужна целая или вещественная константа).
- Type identifier expected (нужен идентификатор типа).
- Invalid function result type (неправильный тип результата функции). Правильными типами результата функции являются все простые типы, строковые типы и указатели.
- Label identifier expected (нужен идентификатор метки). Метка не обозначена с помощью идентификатора, как это требуется из контекста программы.
- BEGIN expected (нужен BEGIN).
- END expected (нужен END).
- Integer expression expected (нужно выражение типа INTEGER).
- Ordinal expression expected (нужно выражение перечисляемого типа). Предшествующее выражение должно иметь перечисляемый тип.
- Boolean expression expected (нужно выражение типа BOOLEAN). Предшествующее выражение должно иметь тип BOOLEAN.
- Operand types do not match operator (типы операндов не соответствуют операции). Данная операция не может быть применена к указанным операндам, например, ‘A’ div ‘2’.
- Error in expression (ошибка в выражении). Данный символ не может участвовать в выражении указанным образом. Возможно, Вы забыли указать операцию между двумя операндами.
- Illegal assignment (неверное присваивание). Файлам и не типизированным переменным нельзя присваивать значения. Идентификатору функции можно присвоить значение только внутри раздела операторов данной функции.
- Field identifier expected (нужен идентификатор поля). Попытка использовать запись целиком в том месте, где требуется ссылка на какое-либо поле записи.
- Object file too large (объектный файл слишком большой). Турбо-Паскаль не может компоновать файлы .obj больше 64 Кбайт.
- Undefined external (неопределенная внешняя процедура). Внешняя процедура или функция не имеет соответствующего определения PUBLIC в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах (SL filename} и проверьте написание идентификаторов процедуры или функции в файле .asm.
- Invalid object file record (неправильная запись объектного файла). Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj
- Code segment too large (сегмент кода слишком большой). Максимальный размер кода программы или программного модуля равняется 65520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модуля.
- Data segment too large (сегмент данных слишком велик). Максимальный размер сегмента данных программы равен 65520 байт, включая данные, используемые программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память с помощью процедуры NEW.
- DO expected (нужен оператор DO).
- Invalid PUBLIC definition (неверное определение PUBLIC). Возможные причины сообщения:
- Данный идентификатор получил тип PUBLIC, с помощью соответствующей директивы языка ассемблер, но не соответствует описанию EXTERNAL в программе или программном модуле Паскаля.
- Две или более директивы PUBLIC языка ассемблер определяют один и тот же идентификатор.
- Файлы .obj определяют символы PUBLIC, не находящиеся в сегменте CODE.
- Invalid EXTRN definition (неправильное определение EXTRN). Возможные причины сообщения:
- Программа на ассемблере ссылается с помощью директивы ETRN на идентификатор, который не описан в программе на Паскале и не был описан в интерфейсных секциях используемых программных модулей.
- Ассемблерная программа ссылается на идентификатор, обозначающий абсолютную переменную (т.е. определённую словом ABSOLUTE).
- Ассемблерная программа ссылается на идентификатор процедуры или функции типа INLINE.
- Too many EXTRN definition (слишком много определений типа EXTRN).Турбо-Паскаль не может обрабатывать файлы .obj при более чем 256 определениях EXTRN.
- OF expected (требуется OF).
- INTERFACE expected (требуется интерфейсная секция).
- Invalid relocatable reference (недействительная перемещаемая ссылка). Возможные причины сообщения:
- Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, Вы пытаетесь описать инициализированные переменные в сегменте DATA.
- Файл .com содержит ссылки с размерами в байтах на перемещаемые символы. Такая ошибка происходит в случае, если Вы используете, операторы HIGH и DOWN с перемещаемыми символами или если Вы ссылаетесь в директивах DB на перемещаемые символы.
- Операнд ссылается на перемещаемый символ, который не был определен в сегменте CODE или в сегменте DATA.
- Операнд ссылается на процедуру EXTRN или функцию EXTRN со сдвигом, например, CALL SortProc +8.
- THEN expected (требуется THEN).
- TO or DOWNTO expected (требуется ТО или DOWNTO).
- Undefined forward (неопределенное опережающее описание). Возможные причины сообщения:
- Были описаны процедура или функция в интерфейсной секции программного модуля, но их определение отсутствует в секции реализации.
- Процедуры или функции были описаны с помощью опережающего описания, но их определение не найдено.
- Too many procedures (слишком много процедур). Турбо-Паскаль не допускает более 512 процедур или функций в одном модуле. Если Вы компилируете программу, то поместите некоторые процедуры или функции в модули. Если Вы компилируете модуль, то разбейте его на два или несколько модулей.
- Invalid typecast (неверное преобразование типа). Возможные причины сообщения:
- Попытка разместить в памяти, занимаемой некоторой переменной, значение выражения другого типа в случае, когда размер размещаемого значения не равен размеру переменной.
- Вы пытаетесь осуществить преобразование типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.
- Division by zero (деление на ноль). Предшествующая операция пытается выполнить деление на ноль.
- Invalid file type (неверный файловый тип). Данный файловый тип не обслуживается процедурой обработки файлов. Например, процедура READLN используется для типизированного файла, или процедура SEEK -для текстового файла.
- Cannot Read or Write variables of this type (нет возможности считать или записать переменные данного типа). Нарушены следующие ограничения:
- Процедуры READ и READLN могут считывать переменные символьного, целого, действительного и строкового типа.
- Процедуры WRITE и WRITELN могут выводить переменные символьного, целого, действительного, логического и строкового типа.
- Pointer variable expected (нужно использовать переменную-указатель). Предыдущая переменная должна быть указателем.
- String variable expected (нужна строковая переменная). Предшествующая переменная должна иметь строковый тип.
- String expression expected (нужно выражение строкового типа). Предшествующее выражение должно иметь строковый тип.
- Unit not found (программный модуль не найден). Один или несколько программных модулей, используемых данным модулем, не указаны в предложении USES.
- Unit name mismatch (несоответствие имен программных модулей). Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в предложении USES.
- Unit version mismatch (несоответствие версий программных модулей). Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь опцией COMPILE/MAKE или COMPILE/BUILD в интегрированной интерактивной среде или опциями /М или /В в компиляторе ТРС, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции.
- Duplicate unit name (повторное имя программного модуля). Вы уже указали этот программный модуль в операторе USES.
- Unit file format error (ошибка формата файла модуля). Файл .tpu является недействительным. Убедитесь, что это действительно файл .tpu.
- Implementation expected (отсутствует исполняемая часть модуля).
- Constant and case types do not match (типы констант и тип выражения оператора CASE не соответствуют друг другу). Тип константы оператора CASE не совместим с выражением в операторе варианта.
- Record variable expected (нужна переменная типа запись). Предшествующая переменная должна иметь тип запись.
- Constant out of range (константа нарушает границы). Возможные причины сообщения:
- Вы пытаетесь указать индекс массива, выходящий за его границы.
- Вы пытаетесь присвоить переменной значение, выходящее за границы, допустимые для типа этой переменной.
- Вы пытаетесь передать в качестве фактического параметра процедуре или функции константу, выходящую за границы, допустимые для типа соответствующего формального параметра.
- File variable expected (нужна файловая переменная). Предшествующая переменная должна иметь файловый тип.
- Pointer expression expected (нужно выражение типа указатель).
Предшествующее выражение должно иметь тип указателя. - Integer or real expression expected (нужно выражение типа REAL или INTEGER). Предшествующее выражение должно иметь тип (REAL или INTEGER)
- Label not within current block (метка не находится внутри текущего блока). Оператор GOTO не может ссылаться на метку, находящуюся вне текущего блока.
- Label already defined (метка уже определена). Данная метка уже помечает оператор.
- Undefined label in processing statement part (неопределенная метка в предшествующем разделе операторов). Данная метка была описана, и на неё осуществлялась ссылка в предшествующем разделе операторов, но она не указана в тексте программы.
- Invalid @ argument (недействительный аргумент операции @).Действительными аргументами являются идентификаторы переменных, процедур и функций.
- Unit expected (нужно кодовое слово UNIT).
- «;» expected (нужно указать «;» ).
- «:» expected (нужно указать «:» .
- «,» expected (нужно указать «,» ).
- «(» expected (нужно указать «(» ).
- «)» expected (нужно указать «)» ).
- «=» expected (нужно указать «=» ).
- «:=» expected (нужно указать «:=» ).
- «[» or «(.» expected (нужно «[» или «(.»).
- «]» or «.)» expected (нужно «]» или «.)»).
- «.» expected (нужно «.»).
- «..» expected (нужно «..»).
- Too many variables (слишком много переменных). Возможные причины сообщения:
- Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.
- Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.
- Invalid FOR control variable (неправильная управляющая переменная оператора FOR). Управляющая переменная оператора FOR должна быть переменной перечисляемого типа, определенной в разделе описаний текущей программы.
- Integer variable expected (нужна переменная целого типа) предшествующая переменная должна иметь целый тип. )
- Files are not allowed here (здесь не допускаются файлы). Типизированная константа не может иметь файловый тип.
- String length mismatch (несоответствие длины). Длина строковой константы не соответствует количеству элементов символьного массива.
- Invalid ordering of fields (неверный порядок полей). Поля в константе типа запись должны записываться в порядке их описания.
- String constant expected (нужна константа строкового типа).
- Integer or real variable expected (нужна переменная типа INTEGER или REAL). Предшествующая переменная должна иметь целый или вещественный тип.
- Ordinal variable expected (нужна переменная порядкового типа). Предшествующая переменная должна иметь порядковый тип.
- INLINE error (ошибка в операторе INLINE). Оператор «<» не допускается в сочетании с перемещаемыми ссылками на переменные. Такие ссылки всегда имеют размер в слово.
- Character expression expected (предшествующее выражение должно иметь символьный тип).
- Too many relocation items (слишком много перемещаемых элементов).Размер таблицы перемещения файла .ехе превышает 64К, что является верхним пределом в Турбо-Паскале. Если вы обнаружили эту ошибку, то это значит, что программа просто слишком велика для обработки компоновщиком Турбо-Паскаля. Возможно также, что она слишком велика для выполнения в PC DOS. В таком случае нужно выделить в программе основной раздел, который выполнял бы обращение к двум или более вспомогательным разделам с помощью процедуры EXEC из модуля DOS.
- Not enough memory to run program (недостаточно памяти для выполнения программы). Недостаточно памяти для выполнения программы из среды Турбо-Паскаля. Попытайтесь воспользоваться рекомендациями, связанными с ошибкой 1. Если это не поможет, то скопируйте свою программу на диск, выйдите из среды и запустите программу средствами ДОС.
- Cannot find EXE file (невозможно найти файл .ехе). по какой-то причине файл .ехе сгенерированный ранее компилятором, исчез.
- Cannot run a unit (модуль выполнить нельзя). Вы не можете выполнить программный модуль. Чтобы проверить его, напишите программу, использующую этот программный модуль.
- Compilation aborted (компиляция прервана). Компиляция была прервана с помощью CTRL-BREAK.
- CASE constant out of range (константа CASE нарушает допустимые границы). Целочисленные константы оператора CASE должны находиться в диапазоне от -32768 до 32767.
- Error in statement (ошибка в операторе). Данный символ не может быть первым символом в операторе.
- Cannot call an interrupt procedure (невозможно вызвать процедуру прерывания). Вы не можете непосредственно вызвать процедуру прерывания.
- Must have an 8087 to compile this (для компиляции необходимо наличие сопроцессора 8087). Для компиляции программ и программных модулей в режиме {$N+} необходим сопроцессор 8087. Используйте программную эмуляцию сопроцессора с помощью директивы {$N+.E+}.
- Must be in 8087 mode to compile this (для компиляции необходим режим 8087). Данная программа может быть скомпилирована только в режиме {$N+}. В состоянии {$N-} операции с типами SINGLE, DOUBLE, EXTENDED и СОМР не допускаются.
- Target address not found (указанный адрес не найден). Команда COMPILER/FIND ERROR в среде Турбо-Паскаля или опция /F в командной строке компилятора ТРС.ЕХЕ не обнаружила оператор, соответствующий заданному адресу.
- Include files are not allowed here (здесь не допускаются включаемые файлы). Раздел операторов должен целиком размещаться в одном файле.
- TMP file format error (ошибка формата файла .ТМР). Файл .ТМР является недействительным. Убедитесь, что этот файл является в действительности файлом .ТМР.
- NIL expected (нужен NIL).
- Invalid qualifier (неверный идентификатор). Возможные причины сообщения:
- Вы пытаетесь индексировать переменную, которая не является массивом.
- Вы пытаетесь указать поля в переменной, которая не является записью.
- Вы пытаетесь использовать в качестве указателя переменную, которая не является указателем.
- Invalid variable reference (недействительная ссылка на переменную). Предыдущая конструкция удовлетворяет синтаксису ссылки на переменную, но она не указывает адрес памяти. Наиболее вероятно, что Вы вызываете функцию-указатель, но забываете поставить знак ? после неё.
- Too many symbols (слишком много символов). Программа или программный модуль содержат более 64 Кбайт символов. Если Вы компилируете программу с директивой {$D+},xo попробуйте отключить эту директиву или разбейте программу на несколько модулей.
- Statement part too large (слишком большой раздел операторов). Турбо-Паскаль ограничивает размер раздела операторов примерно до 24 Кбайт. Если Вы обнаружили эту ошибку, поместите части раздела операторов в одну или несколько процедур и вообще сделайте Вашу программу более структурированной.
- Module has no debug information (в модуле нет отладочной информации). Ошибка периода выполнения обнаружена в модуле (программе), который не имеет отладочной информации, и по этой причине Турбо-Паскаль не может указать соответствующий оператор. Перекомпилируйте модуль с включенной опцией {$D+} или воспользуйтесь опцией COMPILER/FIND ERROR, чтобы найти эту ошибку.
- Files must be var parameters (файлы должны передаваться как параметры-переменные). Вы пытаетесь передать процедуре или функции параметр-значение файлового типа. Параметры файлового типа должны быть параметрами-переменными.
- Too many conditional symbols (слишком много условных символов). Не хватает памяти для определения условных символов (слов, управляющих командами условной компиляции). Попытайтесь удалить некоторые символы или уменьшить их длину.
- Misplaced conditional directive (пропущена условная директива). Компилятор обнаружил директиву {$ELSE} или {$ENDIF} без соответствующих директив {$IFDEF}, {$IENDEF} или {$IFOPT}.
- ENDIF directive missing (пропущена директива ENDIF). Исходный файл закончился внутри конструкции условной компиляции. В исходном файле должно быть равное количество директив {$IFxxx} и {$ENDIF}.
- Error in initial conditional defines (ошибка в условных определениях).
Исходные условия компиляции, указанные в опции
OPTIONS/COMPILER/CONDITIONAL DEFINES являются недействительными. В Турбо-Паскале разрешается не указывать условия компиляции; если же приведено несколько условий, они должны разделяться точкой с запятой. - Header does not match previous definition (заголовок не соответствует
предыдущему определению). Возможные причины сообщения:- Заголовок процедуры или функции, указанный в интерфейсной секции, не соответствует заголовку в исполняемой части.
- Заголовок процедуры или функции, указанный с помощью опережающего описания (FORWARD), не соответствует заголовку найденной далее одноименной процедуры или функции.
- Critical disk error (критическая ошибка диска). Во время компиляции
произошла критическая ошибка диска (например, дисковод находится в
состоянии «не готов»). - Cannot evaluate this expression (нельзя вычислить данное выражение). В
выражении-константе или в отладочном выражении Вы пытаетесь
использовать неподдерживаемые средства, например в описании константы
пытаетесь использовать функцию SIN или вызвать в отладочном выражении
определенную пользователем функцию. - Expression incorrectly terminated (некорректное завершение выражения).
Контекстуально в данном месте программы должен быть конец выражения
или оператора. - Invalid format specifier (неверный спецификатор формата). Используется
неверный спецификатор формата или числовой аргумент спецификатора
формата выходит за допустимые границы. - Invalid indirect reference (недопустимая косвенная ссылка). Оператор пытается осуществить недопустимую косвенную ссылку. Например, Вы используете абсолютную переменную, базовая переменная которой в текущем модуле неизвестна, или используете программу типа INLINE , в которой делается ссылка на переменную, неопределенную в текущем модуле.
- Structured variable are not allowed here (здесь нельзя использовать переменную структурного типа). Делается попытка выполнить надпеременной структурного типа неподдерживаемую операцию. Например, Вы пытаетесь перемножить две записи.
- Cannot evaluate without System unit (нельзя вычислить выражение без модуля SYSTEM). Чтобы отладчик смог вычислить выражение, в файле TURBO.TPL должен содержаться модуль SYSTEM.
- Cannot access this symbol (нет доступа к данному символу). Как только вы скомпилируете программу, все множество её символов станет доступным. Однако к отдельным символам (например, к переменным) нельзя получить доступ, пока Вы не запустите программу.
- Invalid floating-point operation (недопустимая операция с плавающей запятой). При операции с плавающей запятой произошло переполнение или деление на ноль.
- Cannot compile overlay to memory (нельзя выполнить компиляцию оверлеев в память). Программа, использующая оверлеи, должна компилироваться на диск.
- Procedure or function variable expected (должна использоваться переменная процедурного типа). В этом контексте оператор получения адреса @ может использоваться только с переменной процедурного типа.
- Invalid procedure or function reference (недопустимая ссылка на процедуру или функцию). Возможные причины сообщения:Попытка вызова процедуры в выражении.Процедура или функция, использующая в качестве параметра вызов другой процедуры или функции, должна компилироваться в состоянии {$F+} и не
может описываться с помощью ключевых слов INLINE или INTERRUPT . - Cannot overlay this unit (этот модуль не может использоваться в качестве оверлейного). Попытка использовать в качестве оверлейного модуль, который не был скомпилирован с директивой {$О+}.
- File not found (не найден файл). Ошибка генерируется процедурами RESET, APPEND, RENAME, или ERASE, если имя, присвоенное файловой переменной, указывает несуществующий файл.
- Path not found (путь не найден). Ошибка генерируется
процедурами:
• RESET, REWRITE, APPEND или ERASE, если имя,
присвоенное файловой переменной, является недействительным
или указывает на несуществующий подкаталог.
• CHDIR, MKDIR или RMDIR, если путь является
недействительным или указывает на несуществующий
подкаталог. - Too many open files (слишком много открытых файлов). Ошибка генерируется процедурами RESET, REWRITE или APPEND, если программа имеет слишком много открытых файлов. Операционная система ДОС не позволяет использовать более 15 открытых файлов для каждого процесса. Если Вы получили данное сообщение при наличии менее 15 открытых файлов, это может означать, что файл CONFIG.SYS не содержит параметр FILES = xxx или этот параметр задает слишком мало файлов. Увеличьте параметр FILES = xxx до какого-либо подходящего значения, например, до 20.
- File access defined (отказано в доступе к файлу). Данная ошибка генерируется процедурой:
• RESET или APPEND, когда имя, присвоенное файловой
переменной, указывает каталог или файл, доступный только для
чтения, в то время как параметр FILEMODE файловой
переменной содержит указание на запись данных.
• REWRITE, если каталог заполнен или если имя, присвоенное
файловой переменной, задает каталог или существующий файл,
доступный только для чтения.
• RENAME, если имя присвоенное файловой переменной,
указывает каталог или если новое имя указывает существующий
файл.
• ERASE, если имя, присвоенное файловой переменной, указывает
каталог или файл, доступный только для чтения.
• MKDIR, если файл с тем же именем уже существует в каталоге, в
котором создается подкаталог, и в этом каталоге нет места для
подкаталога или путь к каталогу содержит имя логического
устройства.
• RMDIR, если каталог не является пустым, если путь не
определяет каталог или если путь задает корневой каталог.
• READ или BLOCKREAD в случае типизированного или
нетипизированного файла, если файл не открыт для чтения.
• WRITE или BLOCKWRITE для типизированного или
нетипизированного файла, если этот файл не открыт для записи. - Invalid file handle (недопустимый файловый канал). Данная ошибка генерируется, когда системному вызову ДОС передается недопустимый файловый канал. Эта ошибка не должна возникать в правильно работающей программе. Её появление является свидетельством того, что файловая переменная каким-либо образом испорчена.
- Invalid file access code (недействительный код доступа к файлам). Ошибка генерируется процедурами RESET или APPEND, если значение параметра FILEMODE в файловой переменной не является допустимым.
- Invalid drive number (недопустимый номер дисковода). Ошибка генерируется процедурой GETDIR, если номер дисковода не является допустимым.
- Cannot remove current directory (нельзя удалить текущий каталог). Ошибка генерируется процедурой RMDIR, если путь указывает текущий каталог.
- Cannot rename across drives (нельзя при переименовании указывать разные дисководы). Генерируется процедурой RENAME, если оба файла не находятся на одном и том же диске.
- Disk read error (ошибка чтения с диска). Генерируется
процедурой READ в типизированном файле, если Вы пытаетесь
осуществить считывание после конца файла. - Disk write error (ошибка записи на диск). Ошибка генерируется процедурами CLOSE, WRITE, WRITELN, FLUSH, если диск заполнен.
- File not assigned (файлу не присвоено имя), ошибка генерируется процедурами RESET REWRITE , APPEND, RENAME и ERASE в случае, если файловой переменной не было присвоено имя файла с помощью обращения к процедуре ASSIGN.
- File not open (файл не открыт). Ошибка генерируется процедурами CLOSE, READ, WRITE, SEEK, EOF, FILEPOS, FILESIZE, FLUSH, BLOCKREAD, BLOCKWRITE, если файл не открыт.
- File not open for input (файл не открыт для ввода).ошибка генерируется процедурами READ, READLN, EOF, EOLN, SEEKEOF, или SEEKEOLN в текстовом файле, если файл не открыт для ввода.
- File not open for output (файл не открыт для вывода). Ошибка генерируется процедурами WRITE или WRITELN в текстовом файле, если файл не открыт для вывода.
- Invalid numeric format (неверный числовой формат). Ошибка генерируется процедурами READ или READLN, если числовое значение, считанное из текстового файла, не соответствует правильному числовому формату.
- Disk is write protected (диск защищен от записи).
- Unknown unit (неизвестный модуль).
- Drive not ready (дисковод находится в состоянии «не готов»).
- Unknown command (неопознанная команда).
- CRC error in data (ошибка в исходных Данных).
- Bad drive requiest structure length (при обращении к диску указана неверная длина структуры).
- Disk seek error (ошибка при операции установки головок на диске).
- Unknown media type (неизвестный тип носителя).
- Sector not found (сектор не найден).
- Printer out of paper (закончилась бумага на принтере)
- Device write fault (ошибка при записи на устройство).
- Device read fault (ошибка при чтении с устройства).
- Hardware failure (сбой аппаратуры).
- Division by zero (деление на нуль).
- Range check error (ошибка при проверке границ). Ошибка генерируется операторами, скомпилированными в состоянии {$R+}, при возникновении одной из следующих ситуаций:
- Индексное выражение массива находилось вне допустимого диапазона.
- Была осуществлена попытка присвоить переменной значение, находящееся вне диапазона переменной.
- Была осуществлена попытка передать значение, находящееся вне допустимого диапазона, в качестве параметра процедуре или функции.
- Stack overflow error (переполнение стека). Эта ошибка генерируется при входе в процедуру или функцию, скомпилированную в режиме {$8+}, если нет достаточной области для размещения локальных переменных программы. Увеличьте размер стека, используя директиву компилятора {$М}.
-
Heap overflow error (переполнение кучи). Эта ошибка
генерируется процедурами NEW или GETMEM в случае, если в
куче не хватает памяти требуемого размера. - Invalid pointer operation (недействительная операция с указателем). Эта ошибка генерируется процедурами DISPOSE или FREEMEM, когда указатель имеет значение NIL или содержит адрес, лежащий за пределами динамически распределяемой области памяти.
- Floating point overflow (переполнение при операции с плавающей запятой).
- Floating point underflow (исчезновение порядка при операции с плавающей запятой). Эта ошибка генерируется только в том случае, если используется сопроцессор 8087/80287/80387 с управляющим словом, которое демаскирует ошибку исчезновения порядка. По умолчанию исчезновение порядка приводит к возвращению результата, равного нулю.
-
Invalid floating point operation (недопустимая операция с плавающей запятой). Возможные причины сообщения:
- Аргумент функции TRUNC или ROUND не может быть
преобразован в целое число, находящееся внутри диапазона типа
LONGINT (от -2147483648 до +2147483647). - Отрицательный аргумент функции SQRT (извлечение квадратного корня).
- Аргумент функции LN (логарифм) равен нулю или имеет отрицательное значение.
- Произошло переполнение стека сопроцессора.
- Аргумент функции TRUNC или ROUND не может быть
- Overlay manager not installed (не установлена подсистема управления оверлеем). Ваша программа- вызывает оверлейную процедуру или функцию, а подсистема управления оверлеем не инициализирована. Вероятнее всего в программе отсутствует обращение к процедуре OVRINIT или обращение к этой процедуре завершилось с ошибкой. Нужно иметь в виду, что если в каком-либо из оверлейных модулей содержится раздел инициализации, то в программе необходимо создать дополнительный или использовать имеющийся неоверлейный модуль, вызывающий процедуру OVRINIT в своем разделе инициализации, и указать этот модуль в предложении USES перед любым из оверлейных модулей.
- Overlay file read error (ошибка чтения оверлейного файла). Когда подсистема управления оверлеем пыталась считать оверлей из оверлейного файла, произошла ошибка чтения.
Компилятору не хватает памяти. Имеется ряд возможных решений этой проблемы:
Ошибки, возникающие во время выполнения программы
Некоторые ошибки, обнаруженные во время выполнения программы, приводят к появлению на экране сообщения вида Runtime error nnn at xxxx:yyyy (ошибка времени выполнения nnn по адресу ххххгуууу), после чего программа завершает свою работу.
Ошибки времени выполнения делятся на две категории: ошибки ввода-вывода (коды ошибок с 1 до 199) и грубые ошибки (коды ошибок с 200 до 255).
Ошибки ввода-вывода вызывают завершение выполнения программы в случае, если оператор ввода-вывода был скомпилирован в режиме {$!+}. В режиме {$!-} продолжается выполнение программы, а ошибка возвращается функцией IORESULT. Коды ошибок 1-99 соответствуют кодам ошибок ДОС. 100-149 — ошибкам ввода вывода, 150-199 — критическим ошибкам, а 200-255 — фатальным ошибкам.
Ошибки DOS:
Ошибки ввода-вывода:
Если один из операторов компилируется с директивой {$!+}, то ошибка ввода-вывода приводит к прекращению выполнения программы. В состоянии {$!-} программа продолжает выполняться, а ошибка возвращается функцией IORESULT.
Критические ошибки:
Фатальные ошибки:
Грубые ошибки всегда приводят к немедленной остановке программы.
Если вы столкнулись с ошибкой обучения 005 паскалей на своем ПК, какой пост в блоге должен помочь вам исправить это.
Ускорьте свой ПК всего за несколько кликов
Загрузите это программное обеспечение сейчас и попрощайтесь с проблемами вашего компьютера. г.
Приложения, скомпилированные с помощью Free Pascal, могут генерировать ошибки времени выполнения в любое время, когда вы уверены, что внутри приложения встречаются ненормальные среды. В этом приложении перечислены вероятные проблемы с производительностью и представлена информация о том, почему эти люди могут быть привлечены к работе. 1 Неверный номер должности.
<таблица readabilitydatatable = «1»>
<тд>
<тд> <тд>
Время указано в формате UTC
<случаи>
Вычислить ошибку выполнения 005
<таблица readabilitydatatable = «1»>
Г. Г-н Сталин
номер 1/4
<тд>
Что означает пример ошибки времени выполнения?
Ошибка воспроизведения — это ошибка обучения, возникающая во время пробежки решения на беговой дорожке. Сбои могут быть вызваны утечками памяти или другими ошибками программирования. Типичными примерами являются нули, связанные с пропуском файлов, недопустимыми вызовами функций или полной обработкой записей.
Ошибка выполнения 005
Здравствуйте!
Может ли конкретный человек дать мне новое описание ошибки времени выполнения 005 (info
0000: 0277). Эта ошибка возникает, когда я запускаю программное обеспечение DOS, доступное для Win ’95 и
, даже когда я второй раз запускаю программное обеспечение DOS под Win NT.
Если это возможно, вы могли бы дать мне базу данных о причинах всех видов описаний ошибок, и это могло бы показать, где я могу расширить такой хороший список.
Спасибо,
Харви
<тд>
Тимо Сал
# 2/4
<тд>
Ошибка выполнения 005
<р> Если возможно, дайте мне хороший список описаний всех этих веб-страниц с ошибками, или
: скажите мне, где я могу попытаться получить такой последний список.
Транспорт защищен
33)
Какая отличная ошибка, например ошибка чтения first thererrrs 205 и т.д.
149061 19 июля 1998 г. ftp: //garbo.uwasa.fi/pc/link/tsfaqp.zip
tsfaqp.zip Часто задаваемые вопросы, касающиеся опций Turbo Pascal и Timo, подключенных к
Всем как лучше,
timo
Удален спам. Мой автоответчик почтового фильтра млм возвращает все требуемые буквы пароля
пользователей, у которых еще нет согласованной базы данных.
<тд>
<тд>
Роммерт Дж. Казими
№ 3-4
<тд>
Вычислить ошибку выполнения 005
Цитата:
> Ну откуда! Привет
> Кто-нибудь может дать описание ошибки чтения в решении 005 (адрес действительно
> 0000:0277). Эта ошибка возникает, когда я дополнительно запускаю инструменты DOS под Win ’95 и
> когда запускаю программу DOS под Win NT. Время
Ошибка выполнения 5: Доступ к файлу запрещен. Это происходит, когда файл уже проверяется другой школой, например, когда он снова проверяется в Excel.
Однако при ошибке Turbo-7 150 запись на диск выполняется
Цитата:
> Если вы, скорее всего, подскажете мне все из довольно большого количества описаний ошибок, то пусть
> угадает, откуда я мог взять такую базу данных.
Контактный документ является справочной функцией почти версии Borland Pascal, обнаруживает
ошибки, запускается, как только пользователь нажимает Shift F1. Если вы не являетесь пользователем Pascal
, обратитесь к поставщику программного обеспечения. Если за надежным программистом нельзя следить, зачем вообще доверять новой программе?
–
Rommert J. Casimir
Тилбургский университет, B435, тел. 31 12 4662016
PO Box 90153, 5000LE Тилбург, Нидерланды
http: // cwis .kub .nl ~ несколько / несколько / BIKA / rc_home.htm
<тд>
<тд>
боюсь шало №4 или четыре
<тд>
Ошибка выполнения в программном обеспечении 005
Что означает каждый раз, когда вы получаете ошибку во время выполнения?
Ошибка воспроизведения может быть связана с каждой проблемой программного или аппаратного обеспечения, которая обычно больше всего мешает Internet Ex правильно обучать plorer. Ошибки времени выполнения могут быть вызваны вашим веб-сайтом с использованием HTML, который будет несовместим с возможностями вашего веб-браузера.
Цитата:
<р> Всем привет!
> Может ли кто-нибудь дать мне описание для практической ошибки 005 (почти наверняка домашняя
> 0000:0277). Эта ошибка возникает, когда вы решаете, что я запускаю программу DOS младше Win ’95 и
> в свободное время, когда я запускаю любой план DOS под Win NT.
Как определить ошибку выполнения?
Ошибка времени выполнения в абсолютном шаблоне — это ошибка, которая произойдет, даже если программа будет распространена после того, как она была буквально точно скомпилирована. Ошибки времени выполнения часто пересылаются как «ошибки» и обычно обнаруживаются во время отладки до того, как программное обеспечение просто будет выпущено.
> Если возможно, не могли бы вы не забыть дать мне абсолютный список всей этой информации об ошибках, кроме того,
> подскажите, где я могу получить те список.
> Спасибо,
если вы подразумеваете, что исполняемые файлы написаны на Пасху < br> Пользователь может получить полный формат, используя сообщения об ошибках в некоторых меню
Помощь | Ошибки выполнения
. Перезвони
<тд>
<таблица readabilitydatatable равна «0»>
Автор | Сообщение |
---|---|
Среда, 18 июня 1902 г., 08:00:00 по Гринвичу | |
Среда, 18 июня 1902 г., 08:00:00 по Гринвичу | |
Ced, 18 июня 1902 г., 08:00:00 по Гринвичу | |
Среда, 16 июня 1902 г., 08:00:00 по Гринвичу | |
Страница 1 из 9
Загрузите это программное обеспечение сейчас и попрощайтесь с проблемами вашего компьютера. г. Runtime Error 005 Pascal John Davis Related posts:Решения ошибок времени выполнения 5 Ошибка доступа к файлу пути Решение библиотеки времени выполнения Directx для Windows 7 Отладка и отладка сильной системы времени выполнения Objective-C Помогите разрешить ошибку времени выполнения Myphoneexplorer в решении 372
|
<тд> <случаи> <тд> <тд>
Неописанная переменная
begin S := 1; // Неизвестное имя S end.
Все используемые переменные должны быть предварительно описаны с помощью ключевого слова var (внутри блока begin/end или, что обычно хуже, в разделе описаний вначале программы).
Отсутствующая ;
begin var S: integer S := 1; // Компилятор здесь скажет: Ожидалась ; — имеется ввиду предыдущая строка! end.
begin var S := 1 S := S + 1 // Аналогично: проблема на предыдущей строке, а на текущей нет, потому что после неё идёт end. end.
Очень частая ошибка у начинающих. Курсор, как правило, позиционируется в начале следующей строки.
Несовместимость типов при присваивании
begin var S: integer := 1.3; // Нельзя преобразовать тип real к integer end.
Безболезненно можно присваивать только данные одного типа. Если данные — разных типов, то в редких случаях можно преобразовать данные одного типа в данные другого. Например, целое можно преобразовать в вещественное, а символ — в строку. Обратные преобразования не допускаются.
Чтобы не ошибаться в подобных простых случаях в Паскале есть следующая краткая форма объявления и инициализации переменной:
begin var S := 1.3; // Тип real будет выведен компилятором автоматически end.
Отсутствие закрывающего апострофа литеральной строки
begin var x := 2; // x получает тип integer var y := 3; // y получает тип integer writeln('Результат сложения равен =, x + y); // Не хватает закрывающего апострофа end.
Закрыть апостроф надо на той же строке, где расположен открывающий апостроф
Ошибки расстановки запятых и апострофов при выводе строк и выражений
begin var x := 2; // x получает тип integer var y := 3; // y получает тип integer writeln(x, '+,' y, '=', x+y); // Неверная расстановка запятых и апострофов end.
Слишком много запятых и апострофов рядом, потому начинающие часто путаются
Надо уяснить правила:
- запятые разделяют разные элементы вывода
- все, что находится в апострофах, будет выведено на экран без изменений
Ошибка ввода
begin var x: integer; read(x); // введите блаблабла и посмотрите, что получится end.
Это — ошибка во время выполнения. Программа пытается преобразовать введенную строку в число, не может это сделать и завершается с ошибкой.
Аналогичный фрагмент в более современном и предпочтительном синтаксисе:
begin var x := ReadInteger; end.
Ошибка неинициализированной переменной
begin var x: integer; // Забыли инициализировать или ввести x var r := x * x; // r получает тип integer writeln('Квадрат числа ', x, ' = ', r); end.
Перед использованием любую переменную надо ввести или присвоить ей начальное значение. Это действие называется инициализацией переменной.
Деление на 0
begin var x := 0; var c := 666 div x; // Здесь происходит деление на 0 end.
Если во время выполнения программа выполнит деление на 0, то она завершится с ошибкой.
Корень из отрицательного числа
begin writeln(sqrt(-1)); // Корень из отрицательного числа end.
В обычном Паскале возникает ошибка времени выполнения.
В PascalABC.NET выводится NaN — Not a Number
Ссылки
- Программы для начинающих
- Сайт PascalABC.NET: Программы и алгоритмы для начинающих
Во-первых, ваш код работает. Ошибка возможна потому, что не находит файл или он занять другим процессом.
Во — вторых, раз это PascalABC.Net, то почему бы не писать в его стиле
const
filename = 'dat.txt';
var
f: Text; // Файловая переменная.
i: integer; // Переменная для хранения значения количества подсчитываемых элементов.
a: real; // Промежуточная переменная для хранения значения читаемых элементов.
sum: real;// переменная для хранения значения произведения.
begin
// Rewrite(f, filename);
// f.Writeln(2);
// f.Writeln(7);
// f.Close();
f := OpenRead(filename);
i := 0; // Установка счетной переменной в нулевое состояние.
sum := 0;
while not f.Eof do // Цикл для поэлементного чтения из файла.
begin
a := f.ReadlnReal(); // Чтение информации из файла.
write(a:8:2);
sum := sum + a;
inc(i);
end;
f.Close();
writeln;
writeln('The number of extracted numbers from the file is: ', i);
writeln('Summa numbers from a file is equal to: ', sum:0:2);
readln;
end.
hazw 0 / 0 / 0 Регистрация: 30.07.2013 Сообщений: 25 |
||||
1 |
||||
Ошибка времени выполнения27.08.2013, 10:49. Показов 10197. Ответов 3 Метки нет (Все метки)
Во время выполнения программы пишет такую ошибку: Ошибка времени выполнения: Object reference not set to an instance of an object. Останавливается на 5 строке.
Может кто объяснит, в чем дело?
__________________ 0 |
24 / 24 / 16 Регистрация: 23.01.2013 Сообщений: 129 |
|
27.08.2013, 11:00 |
2 |
c: array of integer; Странно как то массив описан. Условие задачи полностью? 0 |
Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182 |
||||
27.08.2013, 11:02 |
3 |
|||
Если объявляете динамический массив (видимо это Паскаль АВС.net), то нужно выделить под него память, а индексы элементов начинаются с 0.
1 |
0 / 0 / 0 Регистрация: 30.07.2013 Сообщений: 25 |
|
27.08.2013, 11:19 [ТС] |
4 |
Спасибо. Теперь ясно. 0 |
В программе работает все, кроме удаления записи из файла
Собственно сама ошибка:
строка (254) : Ошибка времени выполнения: Входная строка имела неверный формат.
В строке 254 находится (readln(menu);)
program Telophonia;
type
abonent = record
number: string[10]; //Номер телефона
FIO: string[40]; //ФИО абонента
adres: record //Адрес абонента в виде другой записи состоящий из:
street: string[20]; //Улица
house: string[20]; //Дом
flat: string[20]; //Квартира
end;
date: string[10]; //Дата подключения абонента
end;
var
abonents: file of abonent; //Файл содержащий записи об абонентах
x, t: abonent; //Вспомогательная переменная типа записи об абонентах
menu, ind, cnt: integer; //Вспомогательные переменные для меню, индексации и счетчика записей в некоторых процедурах
yn: char; //Переменная y/n ответов
filename: string[25]; //Имя файла, задаваемое пользователем
nmbr: string[10]; //Вспомогательная переменная для номера абонента
//Процедура вывода содержимого файла на экран
procedure show(a: file of abonent);
begin
reset(a);
ind := 1; //номер строки в выводимой таблице
while not eof(a) do
begin
read(a, x); //чтение записи из файла
write(ind, ': '); //номер строки в выводимой таблице
ind := ind + 1;
with x do
//вывод считаной записи на экран
writeln(number, ' ', FIO, ' ', adres.street, ' ', adres.house, ' ', adres.flat, ' ', date);
end;
if FileSize(a) = 0 then write('Файл пуст. Пожалуйста добавьте записи!');
writeln;
close(a);
end;
//Процедура добавления новой записи в конец файла
procedure add(a: file of abonent);
label nachalo;//метка начала процедуры
begin
nachalo: //метка начала процедуры
with x do
begin
repeat //просматривать файл на совпадение номера абонента
write('Номер = ');
readln(number);
reset(a);
while not eof(a) do
begin
read(a, t); //чтение записи из файла
if t.number = number then
begin
writeln('Абонент с таким номером уже существует!');
break; //выходим из цикла while и повторяем сначала
end;
end;
until t.number <> number;
write('ФИО = ');
readln(FIO);
write('Улица = ');
readln(adres.street);
write('Дом = ');
readln(adres.house);
write('Квартира = ');
readln(adres.flat);
write('Дата подключения = ');
readln(date);
writeln;
end;
reset(a);
seek(a, FileSize(a)); //перевод указателя в конец файла
write(a, x); //запись переменной в файл
writeln('Абонент успешно добавлен.');
writeln;
writeln('Добавить еще одного? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo;
close(a);
end;
//Процедура удаления записи из файла
procedure del(a: file of abonent);
label nachalo,ex;//метка начала и конца процедуры
begin
nachalo: //метка начала процедуры
reset(a);
write('Введите номер:');
read(nmbr);
cnt := 0; //ведем счет записей из файла, чтобы в дальнейшем обратиться к нужной считанной записи и удалить ее
repeat //просматривать файл на совпадение номера абонента
if eof(a) then //если дошли до конца и не нашли нужного абонента
begin
writeln('Абонента с таким номером не существует!');
write('Найти по другому номеру? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo else goto ex;
end;
read(a, t); //чтение записи из файла
cnt := cnt + 1; //увеличиваем счетчик записей на один
until t.number = nmbr;
writeln('Найденный абонент:');
writeln(t.number, ' ', t.FIO, ' ', t.adres.street, ' ', t.adres.house, ' ', t.adres.flat, ' ', t.date);
writeln;
writeln('Удалить данные об абоненте? (y/n):');
readln(yn);
if yn <> 'y' then goto ex;
cnt := cnt - 1;
while not eof(a) do
begin
if filesize(a)=cnt+1 then break;
seek(a, cnt+1); //перевод указателя на следующий элемент
read(a, t);
seek(a, cnt); //перевод указателя на удаляемого абонента
write(a, t); //перезапись следующего абонента из файла на место удаляемого
cnt := cnt + 1;
seek(a, cnt); //перевод указателя на следующую за переписанным абонентом
end;
seek(a, filesize(a) - 1); //перевод указателя на последнюю запись в файле
truncate(a); //удаление последней записи в файле
writeln('Данные удалены');
write('Найти по другому номеру? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo;
ex: //метка выхода из процедуры
close(a);
end;
//Процедура корректировки записи в файле
procedure edit(a: file of abonent);
label nachalo,ex;//метки начала процедуры и выхода из нее
begin
reset(a);
nachalo: //метка начала процедуры
write('Введите номер абонента:');
read(nmbr);
cnt := 0; //ведем счет записей из файла, чтобы в дальнейшем обратиться к нужной считанной записи и перезаписать ее
yn:='n';
while not eof(a) do
begin
read(a, t); //чтение записи из файла
cnt := cnt + 1; //увеличиваем счетчик записей на один
if t.number = nmbr then break;
end;
if eof(a) then //если дошли до конца и не нашли нужного абонента
begin
writeln('Абонента с таким номером не существует!');
write('Найти по другому номеру? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo else goto ex;
end;
cnt := cnt - 1; //возвращаемся к предыдущей записи, чтобы ее изменить
writeln('Изменить данные об абоненте? (y/n):');
readln(yn);
if yn <> 'y' then goto ex;
with x do
begin
repeat //просматривать файл на совпадение номера абонента
write('Номер абонента = ');
readln(number);
reset(a);
while not eof(a) do
begin
read(a, t); //чтение записи из файла
if t.number = number then
begin
writeln('Абонент с таким номером уже существует!');
break; //выходим из цикла while и повторяем сначала
end;
end;
until t.number <> number;
write('ФИО = ');
readln(FIO);
write('Улица = ');
readln(adres.street);
write('Дом = ');
readln(adres.house);
write('Квартира = ');
readln(adres.flat);
write('Дата подключения = ');
readln(date);
writeln;
end;
writeln('Изменить данные об абоненте? (y/n):');
readln(yn);
if yn <> 'y' then goto ex;
seek(a, cnt);
write(a, x); //запись переменной в файл
writeln('Изменения приняты.');
WriteLn;
writeln('Найти по другому номеру? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo;
ex: //метка выхода из процедуры
close(a);
end;
//Процедура вывода содержимого файла на экран
procedure find(a: file of abonent);
label nachalo;
begin
nachalo:
with x do
begin
write('Номер абонента = ');
readln(number);
reset(a);
cnt := 0; //ведем счет удовлетворяющих запросу записей
while not eof(a) do
begin
read(a, t); //чтение записи из файла
if t.number = number then
begin
writeln('Найдено:');
writeln(number, ' ', FIO, ' ', adres.street, ' ', adres.house, ' ', adres.flat, ' ', date);
cnt := cnt + 1;
break;
end;
end;
end;
if cnt=0 then writeln('Не найдено абонента с таким номером.');
writeln;
writeln('Найти по другому номеру? (y/n):');
readln(yn);
if yn = 'y' then goto nachalo;
close(a);
end;
begin
write('Введите имя файла: ');
readln(filename);
assign(abonents, filename);
repeat
writeln('1: Вывести содержимое');
writeln('2: Добавить абонента');
writeln('3: Удалить абонента');
writeln('4: Изменить данные абонента');
writeln('5: Найти по номеру');
writeln('0: Выход');
write('Выберите действие: ');
readln(menu);
writeln;
case menu of
1: show(abonents);
2: add(abonents);
3: del(abonents);
4: edit(abonents);
5: find(abonents);
end;
until menu = 0;
end.
type r0<T> = record val: T; end; r1 = record a: r0<r1>; // То же самое, но с Nullable вместо r0 // a: r1?; end; begin Println(new r1); end.
Ошибка времени выполнения: System.TypeLoadException: Не удалось загрузить тип "2.r1" из сборки "2, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null". Стек: в 2.Program.$Main() в 2.Program.Main()
Ошибка не указывает что проблема в циклическом поле r1.a
.
Для тех кто не знает как работает a: r1?
— может быть сложно понять, что тут пошло не так.
А разве можно повлиять на ошибки, которые кидает CLR?
Copy link
Contributor
Author
Ошибка об этом должна выдаваться ещё во время компиляции, как и для этого случая:
Сделать рекурсивную проверку для этого тривиально — похожих уже полно в компиляторе.
А до среды выполнения сломанные типы (TypeLoadException
: «Не удалось загрузить тип») и тела методов (InvalidProgramException
: «Среда выполнения обнаружила недопустимую программу»), доходить не должны — это всё issue именно компилятора.
1 Out of memory (Выход за границы памяти). 2 Identifier expected (Не указан идентификатор). 3 Unknown identifier (Неизвестный идентификатор). 4 Duplicate identifier (Двойной идентификатор). 5 Syntax error (Синтаксическая ошибка). 6 Error in real constant (Ошибка в вещественной константе). 7 Error in integer constant (Ошибка в целой константе). 8 String constant exceeds line (Строковая константа превышает допустимые размеры). 9 Too many nested files (Слишком много вложенных файлов). 10 Unexpected end of file (He найден конец файла). 11 Line too long (Слишком длинная строка) 12 Type identifier expected (Здесь нужен идентификатор типа). 13 Too many open files (Слишком много открытых файлов). 14 Invalid file name (Неверное имя файла). 15 File not found (Файл не найден). 16 Disk full (Диск заполнен). 17 Invalid compiler directive (Неправильная директива компилятора). 18 Too many files (Слишком много файлов). 19 Undefined type in pointer definition (Неопределенный тип в объявлении указателя). 20 Variable identifier expected (Отсутствует идентификатор переменной). 21 Error in type (Ошибка в объявлении типа). 22 Structure too large (Слишком большая структура). 23 Set base type of range (Базовый тип множества нарушает границы). 24 File components may not be files (Компонентами файла не могут быть файлы) . 25 Invalid string length (Неверная длина строки). 26 Type mismatch (Несоответствие типов). 27 Invalid subrange base type (Неправильный базовый тип для типа-диапазона). 28 Lower bound greater than upper bound (Нижняя граница больше верхней). 29 Ordinal type expected (Нужен порядковый тип). 30 Integer constant expected (Нужна целая константа). 31 Constant expected (Нужна константа). 32 Integer or real constant expected (Нужна целая или вещественная константа) . 33 Type identifier expected (Нужен идентификатор типа) 34 Invalid function result type (Неправильный тип результата функции) 35 Label identifier expected (Нужен идентификатор метки). 36 BEGIN expected (Нужен BEGIN). 37 END expected (Нужен END). 38 Integer expression expected (Нужно выражение типа INTEGER). 39 Ordinal expression expected (Нужно выражение перечисляемого типа). 40 Boolean expression expected (Нужно выражение типа BOOLEAN). 41 Operand types do not match operator (Типы операндов не соответствуют операции). 42 Error in expression (Ошибка в выражении). 43 Illegal assignment (Неверное присваивание). 44 Field identifier expected (Нужен идентификатор поля) . 45 Object file too large (Объектный файл слишком большой). 46 Undefined external (Неопределенная внешняя процедура). 47 Invalid object file record (Неправильная запись объектного файла). 48 Code segment too large (Сегмент кода слишком большой). 49 Data segment too large (Сегмент данных слишком велик). 50 DO expected (Нужен оператор DO). 51 Invalid PUBLIC definition (Неверное PUBLIC-определение). 52 Invalid EXTRN definition (Неправильное EXTRN-определение). 53 Too many EXTRN definition (Слишком много EXTRN-определений). 54 OF expected (Требуется OF). 55 INTERFACE expected (Требуется интерфейсная секция). 56 Invalid relocatable reference (Неправильная перемещаемая ссылка). 57 THEN expected (Требуется THEN). 58 TO or DOWNTO expected (Требуется TO или DOWNTO). 59 Undefined forward (Неопределенное опережающее описание). 60 Too many procedures (Слишком много процедур). 61 Invalid typecast (Неверное преобразование типа). 62 Division by zero (Деление на ноль). 63 Invalid file type (Неверный файловый тип). 64 Cannot Read or Write variables of this type (Нет возможности считать или записать переменные данного типа). 65 Pointer variable expected (Нужно использовать переменную-указатель). 66 String variable expected (Нужна строковая переменная). 67 String expression expected (Нужно выражение строкового типа). 68 Circular unit reference (Перекрестная ссылка модулей). 69 Unit name mismatch (Несоответствие имен программных модулей). 70 Unit version mismatch (Несоответствие версий модулей). 71 Duplicate unit name (Повторное имя программного модуля). 72 Unit file format error (Ошибка формата файла модуля). 73 IMPLEMENTATION expected (Отсутствует исполняемая часть модуля). 74 Constant and case types do not match (Типы констант и тип выражения опе- ратора CASE не соответствуют друг другу). 75 Record variable expected (Нужна переменная типа запись). 76 Constant out of range (Константа нарушает границы). 77 File variable expected (Нужна файловая переменная). 78 Pointer expression expected (Нужно выражение типа указатель). 79 Integer or real expression expected (Нужно выражение вещественного или целого типа). 80 Label not within current block (Метка не находится внутри текущего блока) 81 Label already defined (Метка уже определена). 82 Undefined label in processing statement part (Неопределенная метка в предшествующем разделе операторов). 83 Invalid @ argument (Неправильный аргумент операции @). 84 Unit expected (Нужно кодовое слово UNIT). 85 ”;” expected (Нужно указать”;”). 86 ”:” expected (Нужно указать”:”). 87 ”,”expected (Нужно указать”,”). 88 ”(” expected (Нужно указать ”(”). 89 ”)” expected (Нужно указать”)”). 90 ”=” expected (Нужно указать”=”) 91 ”:=” expected (Нужно указать”:=”) 92 ”[” or ”(.”expected (Нужно указать ”[” или ”(.”). 93 ”]” or ”.)” expected (Нужно указать”]” или ”.)”). 94 ”.” expected (Нужно указать”.”) 95 ”..” expected (Нужно указать”..”). 96 Too many variables (Слишком много переменных). 97 Invalid FOR control variable (Неправильный параметр цикла оператора FOR). 98 Integer variable expected (Нужна переменная целого типа). 99 File and procedure types are not allowed here (Здесь не могут использоваться файлы или процедурные типы). 100 String length mismatch (Несоответствие длины строки). 101 Invalid ordering of fields (Неверный порядок полей). 102 String constant expected (Нужна константа строкового типа). 103 Integer or real variable expected (Нужна переменная типа INTEGER или REAL). 104 Ordinal variable expected (Нужна переменная порядкового типа). 105 INLINE error (Ошибка в операторе INLINE) 106 Character expression expected (Предшествующее выражение должно иметь символьный тип). 107 Too many relocation items (Слишком много перемещаемых элементов). 108 Overflow in arithmetic operator (Переполнение при выполнении арифметического оператора). 109 No enclosing FOR, WHILE or REPEAT statement (Нет операторов, заканчивающих операторы FOR, WHILE или REPEAT). 110 Debug information table overflow (Переполнение информационной таблицы отладки) 111 N/A 112 CASE constant out of range (Константа CASE нарушает допустимые границы) . 113 Error in statement (Ошибка в операторе). 114 114 Cannot call an interrupt procedure (Невозможно вызвать процедуру npерывания). 115 N/A 116 Must be in 8087 mode to compile this (Для компиляции необходим режим 8087). 117 Target address not found (Указанный адрес не найден). 118 118 Include files are not allowed here (Здесь не допускаются включаемые файлы). 119 No inherited methods are accessible here (В этом месте программы нет унаследованных методов). 120 N/A 121 Invalid qualifier (Неверный квалификатор). 122 Invalid variable reference (Недействительная ссылка на переменную). 123 Too many symbols (Слишком много символов). 124 Statement part too large (Слишком большой раздел операторов). 125 N/A 126 Files must be var parameters (Файлы должны передаваться как параметры-переменные). 127 Too many conditional symbols (Слишком много условных символов). 128 Misplaced conditional directive (Пропущена условная директива). 129 ENDIF directive missing (Пропущена директива ENDIF). 130 Error in initial conditional defines (Ошибка в условных определениях). 131 Header does not match previous definition (Заголовок не соответствует предыдущему определению). 132 Critical disk error (Критическая ошибка диска). 133 Cannot evaluate this expression (Нельзя вычислить данное выражение). 134 Expression incorrectly germinated (Некорректное завершение выражения). 135 Invalid format specifier (Неверный спецификатор формата). 136 Invalid indirect reference (Недопустимая косвенная ссылка). 137 Structured variable are not allowed here (Здесь нельзя использовать переменную структурного типа). 138 Cannot evaluate without System unit (Нельзя вычислить выражение без мо-дуля SYSTEM). 139 Cannot access this symbol (Нет доступа к данному символу). 140 Invalid floating-point operation (Недопустимая операция с плавающей запятой). 141 Cannot compile overlay to memory (Нельзя выполнить компиляцию оверлейных модулей в память). 142 Procedure or function variable expected (Должна использоваться перемен- ная процедурного типа). 143 Invalid procedure or function reference (Недопустимая ссылка на процедуру или функцию) . 144 Cannot overlay this unit (Этот модуль не может использоваться в качестве оверлейного). 145 Too many nested scopes (Слишком много вложений). 146 File access denied (Отказано в доступе к файлу). 147 Object type expected (Здесь должен быть тип OBJECT) . 148 object types are not allowed (Нельзя объявлять локальные объекты). 149 VIRTUAL expected (Пропущено слово VIRTUAL). 150 Method identifier expected (Пропущен идентификатор инкапсулированного правила). 151 Virtual constructor are not allowed (Конструктор не может быть виртуальным). 153 Destructor identifier expected (Пропущен идентификатор деструктора). 154 Fail only allowed within constructor (Обращение к стандартной процедуре FAIL может содержаться только в конструкторе). 155 Invalid combination of opcode and operands (Недопустимая комбинация кода команды и операндов). 156 Memory reference expected (Отсутствует адрес). 157 Cannot add or subtract relocatable symbols (Нельзя складывать или вычитать перемещаемые символы). 158 Invalid register combination (Недопустимая комбинация регистров). 159 286/287 instructions are not enabled (Недоступен набор команд микропроцессоров 286/287). 160 Invalid symbol reference (Недопустимая ссылка на символ). 161 Code generation error (Ошибка генерации кода). 162 ASM expected (Отсутствует зарезервированное слово ASM).
Приложения написанные на Free Pascal могут генерировать ошибку времени выполнения (Run Time Error) когда в программе обнаруживаются определённые аварийные состояния . Этот документ содержит список возможных ошибок и описание их возможных причин.
1 Invalid function number (Неправильный номер функции)
Была попытка неправильного вызова системной функции.
2 File not found (Файл не найден)
Генерируется при попытке перенаименования, стирания или открытия несуществующего файла.
3 Path not found (Путь(директория) не найден)
Генерируется файловой системой когда путь не существует или неправелен.
Также генерируется при попытке получить доступ к несуществующему файлу.
4 Too many open files (Слишком много файлов открыто)
Максимальное число открытых файлов для вашего процесса было превышено.
Большинство операционных систем ограничивают максимальное число открытых файлов,
и эта ошибка может возникнуть когда этот лимит превышен.
5 File access denied (В доступе к файлу — отказано)
Было запрешено получение доступа к файлу. Эта ошибка может произойти по нескольким причинам:
-
При попытке открыть файл, предназначенный только для чтения или в деиствительности являющиёся директорией, для записи.
-
В данный момент занят или заблокирован другим процессом.
-
При попытке создания файла или директории с именем, которое совпадает с именем уже созданного файла или директории.
-
При попытке чтения из файла, открытого только для записи.
-
При попытке записи в файл, открытый только для чтения.
-
При попытке удалить директорию или файл, когда это не возможно.
-
При неимении прав на доступ к данному файлу.
6 Invalid file handle (Неправильный хэндл файла)
Происходит, когда используемая Вами файловая переменная была обнулена (испорчена); Это говорит о том, что память вашей программы была повреждена.
12 Invalid file access code (Неправильные ключи доступа к файлу)
Генерируется когда процедуры reset или rewrite вызываются с неправильным параметром FileMode.
15 Invalid drive number (Неправильный номер диска)
Генерируется когда в функции Getdir или ChDir был передан неправильный номер диска.
16 Cannot remove current directory (Невозможно удалить текущую директорию)
Генерируется при попытке удалить текущую директорию.
17 Cannot rename across drives (Можно переименовывать файлы только в пределах одного диска)
Вы не можете переименовать файл в файл, находяшиёся на другом диске или в другом разделе.
100 Disk read error (Ошибка чтения с диска)
Генерируется при невозможности произвести чтение с диска. Обычно происходит при попытке чтения данных, после его окончания.
101 Disk write error (Ошибка записи на диск)
Генерируется когда Вы пытаетесь записать данные на переполненый диск.
102 File not assigned (Файл не определён)
Генерируется функциями Reset, Rewrite, Append, Rename и Erase, При передаче в них файловой переменной, для которой не была выполнена функция AssignFile.
103 File not open (Файл не открыт)
Генерируется следующими функциями : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, и BlockWrite если файл не был открыт.
104 File not open for input (Файл не открыт для чтения)
Генерируется функциями Read, BlockRead, Eof, Eoln, SeekEof и SeekEoln если файл не был открыт при помощи Reset.
105 File not open for output (Файл не открыт для записи)
Генерируется функцией write если текстовый файл не был открыт при помощи Rewrite.
106 Invalid numeric format(Неправильный числовой формат)
Генерируется когда ожидалось числовое значение, но из текстого файла было прочитано не было.
150 Disk is write-protected (Диск защищён от записи)
(Критическая ошибка)
151 Bad drive request struct length (Неправильная длина структуры запроса)
(Критическая ошибка)
152 Drive not ready (Устройство не готово)
(Критическая ошибка)
154 CRC error in data (Ошибка контрольной суммы в данных)
(Критическая ошибка)
156 Disk seek error (Ошибка низкоуровнего поиска на диске)
(Критическая ошибка)
157 Unknown media type (Неизвестный тип …)
(Критическая ошибка)
158 Sector Not Found (Сектор не найден)
(Критическая ошибка)
159 Printer out of paper (Нет бумаги в принтере)
(Критическая ошибка)
160 Device write fault (Сбой записи устройства)
(Критическая ошибка)
161 Device read fault (Сбой чтения устройства)
(Критическая ошибка)
162 Hardware failure (Сбой железа)
(Критическая ошибка)
200 Division by zero (Деление на ноль)
Приложение пыталось разделить число на ноль.
201 Range check error (Ошибка проверки границ)
Если вы компилировали прогамму с включённой провереой границ, Вы можете получить эту ошибку в следующих случаях:
-
Массив был вызван с индексом, выходящим за декларированые пределы.
-
Попытка присвоить значение переменной, выходящее за декларированые границы (для instance и enumerated типов).
202 Stack overflow error (Переполнение стека)
Стек превысил свой максимально допустимый размер (в этом случае необходимо уменьшить размер локальных переменных), или стек был повреждён. Эта ошибка генерируется только с включённой проверкой стека.
203 Heap overflow error (Переполнение кучи)
Размер кучи превысил максимально возможный размер. Генерируется при попытке выделить память непосредственно функциями New, GetMem и ReallocMem, или когда экземпляр класса или объекта создаётся и памяти не достаточно. Пожалуйста учтите что, по умолчанию, Free Pascal поддерживает увеличение кучи, то есть, если необходимо, будет произведена попытка её увеличения. Как бы то ни было, если размер кучи превысил максимально допустимый системой и
железом, то Вы получите эту ошибку.
204 Invalid pointer operation (Непрваильная операция с указателем)
Будет сгенерирована при вызове функций Dispose или Freemem с неправильным указателем (чаще всего, Nil)
205 Floating point overflow (Максимальная границы числа с плавающей точкой)
Вы попытались использовать или создать слишком большое число с плавающей точкой.
206 Floating point underflow (Минимальная граница числа с плавающей точкой)
Вы попытались использовать или создать слишком маленькое число с плавающей точкой.
207 Invalid floating point operation (Неправильная операция над числами с плавающей точкой)
Может генерироваться если вы попытались получить квадратный корень или логарифм отрицательного числа.
210 Object not initialized (Объект не инициализирован)
Если программа была скомпилирована с включенной проверкой границ, эта ошибка будет сгенерирована при попытке вызвать виртуальный метод до его конструктора.
211 Call to abstract method (Попытка вызова абстрактного метода)
Ваша программа попыталась вызвать абстрактный виртуальный метод. Абстрактные методы должны быть перекрыты, и только перекрытый метод должен быть вызван.
212 Stream registration error (Ошибка регистрации потока)
Генерируется когда неправильный тип регистрируется в модуле objects.
213 Collection index out of range (Индекс элемента коллекции выходит за допустимые границы)
Генерируется когда Вы попытались обратиться к элементу коллекции с выходящим за допустимые границы индексом (модуль objects).
214 Collection overflow error (Переполнение коллекции)
Размер коллекции превысил максимально допустимый размер, а Вы попытались добавить новый элемент (модуль objects).
215 Arithmetic overflow error (Арифметическое переполнение)
Эта ошибка генерируется когда результат операции превысил допустимые границы. В отличие to Turbo Pascal, эта ошибка генерируется только для 32-bit и 64-bit арифметических переполнений. Это происходит согласно тому, что все операнды конвертируются в 32-bit или 64-bit, до того как производить вычисления.
216 General Protection fault (GP Ошибка защиты памяти)
Приложение попыталось обратиться к недопустимому участку памяти. Это может быть вызвано следующими причинами:
-
Попытка получить разуказатель для nil.
-
Попытка получить доступ к выходящему за допустимые границы участку памяти (например, вызов move с неправильной длиной).
217 Unhandled exception occurred (Произошо неизвестное исключение)
Произошло исключение, и для него не существеет хэндла. Модуль sysutils устанавливает handler(менеджер), который отлавливает все исключения, и безопасно выходит в случае обнаружения оного.
219 Invalid typecast (Неправильное приведение типов)
Генерируется когда недопустимое приведение типов производится над классом используя оператор as. Эта ошибка также генерируется, когда объект или класс приводится к недопустимому объекту или классу, и виртуальный метод этого объекта или класса вызывается. Эта последняя ошибка детектируется только с использованием опции -CR компилятора.
227 Assertion failed error (Сбой утверждения)
Утверждение провалено, и процедурная переменная AssertErrorProc не была уcтановлена.
Умея
пользоваться массивами, условными
операторами и операторами цикла, вы
можете писать довольно серьезные
программы. При выполнении этих программ
неизбежно будут возникать критические
ошибки, приводящие к аварийному завершению
программы. Такие ошибки по английски
называются Run-time errors — ошибки времени
выполнения. Рассмотрим пока только
наиболее часто встречающиеся арифметические
ошибки:
Division
by zero — код ошибки 200;
Arithmetic
overflow — код ошибки 215;
Range
check error — код ошибки 201;
Floating
point overflow — код ошибки 205;
Invalid
floating point operation — код ошибки 207.
Ошибка
Division
by zero
— деление на ноль — возникает при выполнении
операций DIV,
MOD
и /,
когда делитель равен нулю.
Ошибка
Arithmetic overflow
— целочисленное переполнение — возникает
при выполнении арифметической операции
над целыми числами, когда результат
операции выходит за границы соответствующего
типа. Такая ошибка произойдет, например,
при выполнении программы
VAR
a,b : Word; c : Integer; BEGIN a:=100; b:=200; c:=a-b; END.
Ошибка
произошла, когда вычислилось значение
выражения a-b,
равное -100.
Мы знаем, что при выполнении операции
над операндами типа Word
результат будет иметь тип Word,
а -100 не является допустимым значением
этого типа. То обстоятельство, что это
значение мы собирались присвоить
переменной типа Integer,
не
имеет значения, т.к. ошибка произошла
до
присваивания. Интересно, что, если
описать a
и
b
как
Byte,
то ошибки не будет (см. таблицу 2 в главе
5).
Ошибка
Range
check error
— ошибка проверки диапазона — происходит
в двух случаях. Во-первых, при попытке
присвоить целочисленной переменной
недопустимое значение, и, во-вторых, при
использовании недопустимого индексного
выражения для элемента любого массива.
Проиллюстрируем оба эти случая на
простых примерах.
VAR
a,b,c : Word; BEGIN a:=$FFFF; b:=1; c:=a+b; END.
Мы
попытались присвоить переменной типа
Word
значение 65536, которое не является
допустимым для этого типа.
VAR
x : ARRAY[2..8] OF Real; i : Byte;
BEGIN
FOR i:=8 DOWNTO 1 DO x[i]:=Sqrt(i); END.
Ошибка
произошла при обращении к первому
элементу массива, который не существует.
Фактически этот второй случай полностью
аналогичен первому — мы попытались
«присвоить» индексу массива, тип
которого-2..8, значение 1.
Ошибка
Floating
point overflow
— вещественное переполнение — возникает
при выполнении операции над вещественными
числами, когда результат операции
слишком велик, или при попытке присвоить
вещественной переменной слишком большое
значение. Когда речь идет о вещественных
числах, термин «слишком большое»
следует понимать как большое по абсолютной
величине — знак числа не имеет значения.
Приведем пример программы, содержащей
такую ошибку.
VAR
r : Real; BEGIN r:=-1E20; r:=Sqr(r); END.
При
возведении в квадрат величины r
мы получим слишком большое для типа
Real
число
1E40.
Ошибка
Invalid
floating point operation
возникает в трех случаях:
1)
при вычислении корня из отрицательного
числа;
2)
при вычислении логарифма неположительного
числа;
3)
при вычислении функций Trunc и Round от
слишком большого (по абсолютной величине)
вещественного числа. Эта ошибка довольно
очевидна, и мы не станем ее иллюстрировать.
Как
же должен поступать программист, когда
при выполнении его программы возникают
ошибки? Прежде всего нужно локализовать
ошибку, то есть найти оператор, в котором
она произошла. В этом вам может помочь
среда Turbo Pascal, если в ней правильно
установлены опции
компилятора.
Опции компилятора позволяют изменять
режим компиляции и задаются в подменю
Compiler
меню Options
среды Turbo Pascal. Пока нас будут интересовать
лишь пять опций: Range
checking,
Stack
cheking,
I/O
checking,
Overflow
checking,
Debug
information.
Если они включены, то настройка среды
благоприятна для отладки вашей программы.
Если они выключены, то их обязательно
следует включить, а еще лучше задать их
непосредственно в тексте своей программы.
Опции записываются в программе в виде:
{$
буква
+
/ —
}
Каждой
опции соответствует своя буква (эти
буквы выделены в подменю Compiler
цветом), символ «+» означает включить,
а символ «-» — выключить. В программе
можно задать одну опцию, например, {$R+}
или несколько опций — {$R+,I-,S+}
. Некоторые опции можно записывать
только в самом начале программы, другие
могут размещаться в любом ее месте.
Опция
Range
checking
(R) отвечает за контроль ошибок Range
check error,
Overflow
checking
(C) — за контроль ошибок Ariphmetic
overflow,
I/O
cheking
(I) — за контроль ошибок ввода-вывода.
Смысл опции Stack
cheking
(S) будет объяснен несколько позже, а
опция Debug
information
(D) включает в код программы отладочную
информацию, что позволяет среде Turbo
Pascal при аварийном завершении программы
показать курсором оператор, в котором
произошла ошибка. Позаботьтесь, чтобы
при отладке программы перед первым ее
оператором была строка {$R+,C+,I+,S+,D+}
— это поможет вам найти и устранить все
ошибки. Некоторые неопытные программисты
выключают эти опции, тогда программа
не прерывается при некоторых ошибках,
а продолжает выполняться, на этом
основании делается вывод, что программа
верна. Это самообман — программа
выполняется, но выполняется неправильно
и никак не сообщает об ошибках.
Соседние файлы в папке Учебники
- #
- #