1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 |
program number2; Uses CRT; type Team = record Number: integer; Name: string[15]; Surname: string[15]; Patronymic: string[15]; Year: integer; Month: integer; Date: integer; Points: byte; end; FOT = file of Team; var t: Team; TF: FOT; n: byte; maxpo, maxpo2, maxpo3: integer; s: string; check: boolean; function ToString: string; begin Result:= string.Format('Number: {0},#13#10, Name: {6}, SurName: {1}, Patronymic: {2}, DOB: {5}.{4}.{3}, Number of points: {7}', t.number, t.surname, t.patronymic, t.year, t.month, t.date, t.name, t.Points); end; procedure Outputonpo(var po: integer); begin Reset(TF); while not eof(TF) do begin read(TF, t); if (t.Points = po ) then writeln(ToString); end; Close(tf); end; begin check := true; Write('Enter name of file: '); ReadLn(s); s := 'C:UsersÊèðèëëDesktop' + s + '.dat'; Assign(TF, s); Rewrite(TF); n := 1; maxpo := 0; maxpo2 := 0; maxpo3 := 0; repeat t.number := n; Write('Enter Name:' ); ReadLn(t.Name); Write('Enter SurName:' ); ReadLn(t.Surname); Write('Enter Patronymic:'); ReadLn(t.Patronymic); Write('Enter Year:'); ReadLn(t.Year); Write('Enter Month:'); ReadLN(t.Month); Write('Enter Date:'); ReadLn(t.Date); Write('Enter the number of points:'); ReadLn(t.Points); Write(TF, t); n := n + 1; Writeln; WriteLn('EXIT (y/n)?'); ReadLn(s); if s = 'y' Then check := false else if s = 'n' then check := true; until check = false; Close(tf); Reset(TF); while not eof(TF) do begin read(TF, t); if t.Points > maxpo then maxpo := t.Points; end; Close(tf); Outputonpo(maxpo); Reset(TF); while not eof(TF) do begin read(TF, t); if t.Points = maxpo then t.Points := 1; if t.Points > maxpo2 then maxpo2 := t.Points; end; Close(TF); Outputonpo(maxpo2); Reset(TF); while not eof(TF) do begin read(TF, t); if t.Points = maxpo then t.Points := 1; if t.Points = maxpo2 then t.Points := 1; if t.Points > maxpo3 then maxpo3 := t.Points; end; Close(TF); Outputonpo(maxpo3); end. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
program proverki ; type point = record x , y : integer ; end; var a : array [1..30] of point ; i , j , n , m : integer ; xa1, xa2, xa3, xa4, xa5, ya1, ya2, ya3, ya4, ya5, sc1, sc2, sc3, sc4, sc5, sc6 : integer ; dlin1 , dlin2 , dlin3 , dlin4 , dlin5: real ; cosFi1 , cosFi11 , cosFi12 , cosFi2 , cosFi21 , cosFi22 , fi1 , fi11 , fi12 , fi2 , fi21 , fi22 , s1 , s2 ,p1,p2: real ; left, sv:boolean; fi:real; begin writeln('vvedite kolichestvo vershin'); readln(n); writeln('vvedite koordinaty'); for i:=1 to n do readln(a[i].x,a[i].y); i:=1; j:=i+3; xa1 := a[i+2].x - a[i].x; ya1 := a[i+2].y - a[i].y; xa2 := a[j].x - a[i].x; ya2 := a[j].y - a[i].y; xa3 := a[i+1].x - a[i].x; ya3 := a[i+1].y - a[i].y; xa4 := a[i+2].x - a[i+1].x; ya4 := a[i+2].y - a[i+1].y; xa5 := a[j].x - a[i+1].x; ya5 := a[j].y - a[i+1].y; dlin1 := sqrt(sqr(xa1)+sqr(ya1)); dlin2 := sqrt(sqr(xa2)+sqr(ya2)); dlin3 := sqrt(sqr(xa3)+sqr(ya3)); dlin4 := sqrt(sqr(xa4)+sqr(ya4)); dlin5 := sqrt(sqr(xa5)+sqr(ya5)); sc1 := xa1 * xa3 + ya1 * ya3 ; sc2 := xa1 * xa2 + ya1 * ya2 ; sc3 := xa2 * xa3 + ya2 * ya3 ; sc4 := xa3 * xa4 + ya3 * ya4 ; sc5 := xa3 * xa5 + ya3 * ya5 ; sc6 := xa4 * xa5 + ya4 * ya5 ; cosFi1 := sc1/(dlin1*dlin3); cosFi11 := sc2/(dlin1*dlin2); cosFi12 := sc3/(dlin2*dlin3); cosFi2 := sc4/(dlin3*dlin4); cosFi21 := sc5/(dlin3*dlin5); cosFi22 := sc6/(dlin4*dlin5); fi1 := arctan(sqrt(1-cosFi1*cosFi1)/cosFi1); fi11 := arctan(sqrt(1-cosFi11*cosFi11)/cosFi11); fi12 := arctan(sqrt(1-cosFi12*cosFi12)/cosFi12); fi:= fi11+fi12; fi2 := arctan(sqrt(1-cosFi2*cosFi2)/cosFi2); fi21 := arctan(sqrt(1-cosFi21*cosFi21)/cosFi21); fi22 := arctan(sqrt(1-cosFi22*cosFi22)/cosFi22); s1:=dlin1*dlin3*sin(fi1); s2:=dlin1*dlin2*sin(fi2); p1:=dlin1*dlin3*s1*cosFi1*sin(fi1); p2:=dlin1*dlin2*s2*cosFi2*sin(fi2); writeln; if p1>0 then left:=true else left:=false; if fi1:=fi11+fi12 and fi2:=fi21+fi22 then sv:=false else sv:=true;//-----в этой строке ругается. что не правильно? end. |
СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ
1
Out of memory
Выход за границы памяти
Компилятор выполняется вне допустимых границ памяти. Имеется ряд возможных решений проблемы:
§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.
§ Возможно программа слишком велика, чтобы компилироваться в таком объеме памяти. Следует разбить ее на два или более модуля.
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
Строковая константа превышает размеры строки
Вероятно, отсутствует кавычка в конце строковой константы.
10
Unexpected end of file
Неожиданный конец файла
Причины:
§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);
§ включаемый файл заканчивается в середине раздела операторов. Каждый раздел операторов должен целиком помещаться в одном файле;
§ незаконченный комментарий.
11
Line too long
Строка слишком длинная
Максимальная длина строки может равняться 126 символам. Возможно, отсутствует апостроф в конце строковой константы.
12
Type identifier expected
Нужен идентификатор типа
Не указан типа идентификатора, как это должно быть.
13
Too many open files
Слишком много открытых файлов
Файл CONFIG.SYS не содержит параметра FILES=xx или этот параметр указывает слишком много файлов. Следует увеличить число файлов.
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
Слишком большая структура
Максимально допустимый размер структурного типа 65 535 байт.
23
Set base type of range
Базовый тип множества выходит за допустимые границы
Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимого типа, допускающим не более чем 256 значений.
24
File components may not be files or objects
Элементы файла не могут быть файлами или объектами
Тип компоненты файлового типа не может быть объектным или файловым типом и не может быть структурным типом с компонентами файлового или объектного типа: конструкции file of file или file of object не допускаются.
25
Invalid string length
Неверная длина строки
Длина строки должна находиться в диапазоне от 1 до 255.
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
Pointer type identifier expected
Нужен идентификатор типа указателя
Данный идентификатор не обозначает тип указателя, как это требуется.
34
Invalid function result type
Неправильный тип результата функции
Правильными типами результата функции являются все простые типы, а также строковые и ссылочные типы.
35
Label identifier expected
Нужен идентификатор метки
Метка не обозначена с помощью идентификатора, как это требуется.
36
BEGIN expected
Нужен BEGIN
37
END expected
Нужен END
Следует проверить соответствие ключевых слов BEGIN и END.
38
Integer expression expected
Нужно выражение типа INTEGER
Предыдущее выражение должно иметь целочисленный тип INTEGER
39
Ordinal expression expected
Нужно выражение порядкового типа
Предшествующее выражение должно иметь порядковый тип.
40
Boolean expression expected
Нужно выражение типа BOOLEAN
Предшествующее выражение должно иметь тип BOOLEAN
41
Operand types do not math operator
Типы операндов не соответствуют оператору
Данный оператор не может быть применен к операндам этого типа, например, нельзя ‘A’ разделить на ‘2’.
42
Error in expression
Ошибка в выражении
Данный идентификатор не может участвовать в выражении указанным образом.
43
Illegal assignment
Неверное присваивание
§ Нетипизированным файлам и переменным нельзя присваивать значения.
§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.
44
Field identifier expected
Нужен идентификатор поля
Данный идентификатор не является полем предшествующей переменной типа «запись».
45
Object file too large
Объектный файл слишком большой
Нельзя компоновать файлы .obj, превышающие 64 Кбайт.
46
Undefined external
Не определена внешняя процедура
Внешняя процедура или функция не имеет соответствующего определения Public в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах {$L имя_файла}, и проверьте написание идентификаторов процедуры или функции в файле .asm.
47
Invalid object file record
Неправильная запись объектного файла
Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj.
48
Code segment too large
Сегмент кода слишком большой
Максимальный размер кода программы или программного модуля равняется 65 520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модулей.
49
Data segment too large
Сегмент данных слишком велик
Максимальный размер сегмента данных равен 65 520 байт, включая данные, описываемые используемыми программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память динамически с помощью процедуры New.
50
DO expected
Нужен оператор DO
51
Invalid PUBLIC definition
Неверное определение PUBLIC
§ Две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор.
§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.
52
Invalid EXTRN definition
Неверное определение EXTRN
§ На идентификатор имеется ссылка в директиве EXTRN на языке ассемблера, но он не описан в программе или модуле на Паскале или в интерфейсной части какого-либо из используемых модулей.
§ Идентификатор обозначает абсолютную переменную.
§ Идентификатор обозначает процедуру или функцию типа inline.
53
Too many EXTRN definition
Слишком много определений EXTRN
Невозможно обработать файлы .obj, если имеется более чем 256 EXTRN.
54
OF expected
Требуется OF
55
INTERFACE expected
Требуется интерфейсный раздел
56
Invalid relocatable reference
Недопустимая перемещаемая ссылка
§ Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, вы пытаетесь описать инициализированные переменные в сегменте DATA.
§ Файл .com содержит ссылки с размерами в байтах на перемещаемые идентификаторы. Такая ошибка происходит в случае, если вы используете операторы HIGH и DOWN с перемещаемыми идентификаторами или если вы ссылаетесь в директивах DB на перемещаемые идентификаторы.
§ Операнд ссылается на перемещаемый идентификатор, который не был определен в сегменте CODE или в сегменте DATA.
§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.
57
Then expected
Требуется THEN
В нужном месте отсутствует слово then.
58
TO or DOWNTO expected
Требуется TO или DOWNTO
В нужном месте отсутствует ключевое слово TO или DOWNTO.
59
Undefined forward
Не определено опережающее описание
§ Процедура или функция были описаны в интерфейсном разделе программного модуля, но их определение отсутствует в разделе реализации.
§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.
61
Invalid typecast
Неверное преобразование типа
§ Размеры ссылки на переменную и тип результата отличаются друг от друга при изменении типа переменной.
§ Вы пытаетесь осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.
62
Division by zero
Деление на нуль
Предшествующая операция пытается выполнить деление на нуль.
63
Invalid file type
Неверный файловый тип
Данный файловый тип не обслуживается процедурой обработки файлов. Например, вы пытаетесь использовать процедуру Readln для типизированного файла или процедуру Seek для текстового.
64
Cannot Read or Write variables of this type
Нельзя считать или записать переменные данного типа
Процедуры Read и Readln могут считывать переменные символьного, целого, вещественного и строкового типа.
65
Pointer variable expected
Нужно использовать переменную-указатель
Предыдущая переменная должна иметь тип «указатель».
66
String variable expected
Нужна строковая переменная
Предшествующая переменная должна иметь строковый тип.
67
String expression expected
Нужно выражение строкового типа
Предшествующее выражение должно иметь строковый тип.
68
Circular unit reference
Циклическая ссылка на модуль
Два модуля не могут ссылаться друг на друга в разделе interface, но могут это делать в разделе implementation. Переупорядочите операторы uses таким образом, чтобы циклические ссылки имели место только в разделе implementation.
69
Unit name mismatch
Несоответствие имен программных модулей
Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в операторе uses.
70
Unit version mismatch
Несоответствие версий программных модулей
Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь командой Compile?Make или Compile?Build в интегрированной интерактивной среде программирования, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции.
71
Internal stack overflow
Переполнение внутреннего стека
Внутренний стек компилятора исчерпан из-за слишком большого уровня вложенности операторов. Переорганизуйте исходный код и уменьшите уровень вложенности. Например, переместите внутренние уровни вложенных операторов в отдельную процедуру.
72
Unit file format error
Ошибка формата файла программного модуля
Файле .tpu является недействительным. Возможно, он создан с помощью старой версии Turbo Pascal или Borland Pascal. В этом случае нужно перекомпилировать исходный код модуля и создать новый модуль.
73
Implementation expected
Требуется раздел реализации
Ключевое слово Implementation отсутствует там, где оно должно быть. Возможно, вы включили реализацию процедуры, функции или метода в интерфейсную часть модуля.
74
Constant and case types do not math
Типы констант и выражения оператора Case не соответствуют друг другу
Тип константы оператора Case несовместим с выражением селектора в операторе выбора
75
Record variable expected
Нужна переменная типа запись
Предшествующая переменная должна иметь тип «запись».
76
Constant out of range
Константа выходит за допустимые границы
§ Вы пытаетесь указать массив с константами, нарушающими границы.
§ Вы пытаетесь присвоить константу вне диапазона переменной.
§ Вы пытаетесь передать константу вне диапазона в качестве параметра процедуре или функции.
77
File variable expected
Нужна файловая переменная
Предшествующая переменная должна иметь файловый тип.
78
Pointer expression expected
Нужно выражение типа указатель
Предшествующая переменная должна иметь ссылочный тип.
79
Integer or real expression expected
Нужно выражение типа real или integer
Предшествующее выражение должно иметь тип real или integer.
80
Label not within current block
Метка не находится внутри текущего блока
Оператор goto не может ссылаться на метку, находящуюся вне текущего блока.
81
Label already defined
Метка уже определена
Данная метка уже помечает оператор.
82
Undefined label in processing statement part
Неопределенная метка в предшествующем разделе операторов
Данная метка была описана, и на нее осуществлялась ссылка в предшествующем разделе операторов, но она не определена.
83
Invalid @ argument
Недействительный аргумент оператора @
Действительными аргументами являются ссылки на переменные и идентификаторы процедур или функций.
84
Unit expected
Нужно ключевое слово Unit
Не указано ключевое слово Unit, как это требуется.
85
«;» expected
Нужно указать «;»
Не указана, где это требуется, точка с запятой.
86
«:» expected
Нужно указать «:»
Не указана, где это требуется, двоеточие.
87
«,» expected
Нужно указать «,»
Не указана, где это требуется, запятая.
88
«(» expected
Нужно указать «(»
Не указана, где это требуется, открывающаяся круглая скобка.
89
«)» expected
Нужно указать «)»
Не указана, где это требуется, закрывающаяся круглая скобка.
90
«=» expected
Нужно указать «=»
Нужно указать знак равенства.
91
«:=» expected
Нужно указать «:=»
Требуется использовать операцию присваивания.
92
«[» or «(.» expected
Нужно «[» or «(.»
Требуется указать квадратную скобку или «(. ».
93
«]» or «.)» expected
Нужно «]» or «.)»
Требуется указать квадратную скобку или «.) ».
94
«.» expected
Нужно «.»
Требуется указать точку. Убедитесь, что тип не используется как переменная или что именем программы не переопределяется важный идентификатор другого модуля.
95
«..» expected
Нужно «..»
Требуется указать точки. Там, где это нужно, не указан диапазон.
96
Too many variables
Слишком много переменных
Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.
Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.
97
Invalid for control variable
Недопустимая управляющая переменная оператора for
Управляющая переменная оператора for должна быть переменной перечисляемого типа, определенной в разделе описаний текущей подпрограммы.
98
Integer variable expected
Нужна переменная целого типа
Предшествующая переменная должна иметь тип integer.
99
Files 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
Character expression
Ожидается символьные выражения
105
Compilation aborted
Компиляция прервана
106
Error in statement
Ошибка в операторе
107
Error in type
Ошибка в типе
108
Expected
Ожидается имя
109
Invalid floating point operation
Неправильная операция для вещественных операндов
110
Ordinal variable expected
Ожидается переменная целого или символьного типа
111
Too many symbols
Слишком много символов
112
Undefined type
Неопределенный тип
113
Abnormal program termination
Ненормальное окончание программы
114
Ctrl-Break to quit
нажмите CTRL и Break для входа
115
Disk is write-protected
Диск защищен от записи
116
Disk read error
Ошибка записи на диск
117
Disk write error
Ошибка записи на диск
118
Drive not ready
дисковод не готов (нет дискеты)
119
Error on execute
Ошибка исполнения
120
Floating point overflow
Вещественное переполнение
121
Hardware failure
Ошибка оборудования
122
Heap overflow error
Не хватает основной памяти
123
I/O checking
Ошибка ввода/вывода
124
Invalid Breakpoint
Неправильная точка останова
125
Invalid format specifier
Неправильный формат
126
No debug info
Не задана информация для отладки
127
Not enough memory
Не хватает памяти
128
Press any key
Нажмите любую клавишу
129
Program terminated
Исполнение программы прекращено
130
Range check error
Выход индекса за пределы массива
131
Runtime error
Ошибка во время исполнения
132
Stack overflow error
Ошибка по переполнению стека
133
Too many breakpoints
Слишком много точек останова
134
Type EXIT to return to Turbo Pascal
Введите Exit для возврата в Турбо Паскаль
135
User Break
Пользователь прервал исполнение программы
program test; var myfile: text; begin assign(myfile, "test1.txt");//Здесь ошибка close(myfile); end. Текст ошибки: «Ошибка: неверное выражение».
Pascal abc, в интернете ничего не нашёл.
Помогите
задан 12 янв 2013 в 12:37
1
Не верное определение типа
var myfile: text; Должно быть textfile
ответ дан 12 янв 2013 в 12:40
RsecomuaRsecomua
4,24312 серебряных знаков17 бронзовых знаков
Все, разобрался. Нужны не двойные кавычки, а обычные. Т.е. ‘test1.txt’
ответ дан 12 янв 2013 в 12:42
RoanRoan
3975 серебряных знаков17 бронзовых знаков
Неверная расстановка begin end
var x,y: integer; v: integer; begin write('Введите x,y: '); readln(x,y); begin // ошибка: операторные скобки должны использоваться по ветке then оператора if if x>y then v := x; x := y; y := v end; writeln('Результат упорядочения по возрастанию: ',x,' ',y); end.
Операторные скобки должны находиться внутри другого оператора (например, оператора if), а не окаймлять его.
Отсутствие begin end
var x,y: integer; v: integer; begin write('Введите x,y: '); readln(x,y); if x>y then v := x; // ошибка: операторные скобки отсутствуют, поэтому по ветке then выполняется только этот оператор x := y; // эти операторы выполняются ПОСЛЕ оператора if в любом случае y := v // writeln('Результат упорядочения по возрастанию: ',x,' ',y); end.
Операторные скобки begin-end служат для объединения нескольких операторов в один. В данном случае ими следует окружить 3 оператора по ветке then. Если этого не сделать, то по ветке then будет выполняться только один оператор — v := x; последующие операторы будут выполняться после оператора if всегда, что неверно.
Неверная расстановка скобок в сложном логическом выражении
var x: integer; begin readln(x); if x>1 and x<10 then // ошибка: отсутствуют скобки write(x); end.
В языке Паскаль операция and имеет более высокий приоритет, чем операции > и <, поэтому будет сделана попытка выполнить ее в первую очередь, что неверно.
Ссылки
- Программы для начинающих
- Сайт PascalABC.NET: Программы и алгоритмы для начинающих
Не баг, а фича («неверные» результаты арифметических выражений в Pascal)
Только что объяснял человеку, вот и запишу по горячим следам. Начинающие «паскалисты» нередко не понимают строгой типизированности этого языка, из-за чего находят в нём несуществующие «баги». Вот простейший пример.
var a,b:integer; r:longint; begin a:=1000; b:=200; r:=a*b; writeln (r); end.
Эта программа выдаст отнюдь не 200000, как может показаться. Ответ будет равен 3392 (результат переполнения). Никакого бага нет. Тип выражения в Паскале определяется только типом входящих в него переменных, но не типом переменной, куда записывается результат. То есть, мы вычислили с переполнением произведение двух переменных типа Integer, а потом «испорченный» результат переписали в переменную типа Longint. Ничего не изменит и
r:=Longint(a*b);
Здесь тоже сначала вычислен результат с переполнением, затем преобразован к типу Longint. А вот
r:=Longint(a)*b;
рулит, получите свои 200000 Указанная ошибка часто встречается в программах начинающих. Чтобы её не повторять, помните — выражение в Паскале должно быть приведено к нужному типу в процессе его вычисления, а не после его окончания или при присваивании.
P.S. В ряде компиляторов, как во Free Pascal, ошибка не всплывёт, но это не значит, что её не нужно учитывать
02.02.2010, 15:34 [10021 просмотр]
К этой статье пока нет комментариев, Ваш будет первым
Сообщения и коды ошибок
- 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.
Критические ошибки:
Фатальные ошибки:
Грубые ошибки всегда приводят к немедленной остановке программы.
program asd;
var a ,s ,d ,f ,z ,x ,c ,v :integer;
begin
writeln('введите 4 целых числа');
readln(a ,s ,d ,f);
if (a<s) then begin
z:=s;
x:=a;
end
else begin
z:=a;
x:=s;
end;
if (d<f) then begin
c:=f;
v:=d;
end
else begin
c:=d;
v:=f;
end;
if (z<c) then writeln('больше', c)
else writeln('больше', z);
if (x<v) then writeln('меньше', x)
else writeln('меньше', v);
end.
Не баг, а фича («неверные» результаты арифметических выражений в Pascal)
Только что объяснял человеку, вот и запишу по горячим следам. Начинающие «паскалисты» нередко не понимают строгой типизированности этого языка, из-за чего находят в нём несуществующие «баги». Вот простейший пример.
var a,b:integer;
r:longint;
begin
a:=1000;
b:=200;
r:=a*b;
writeln (r);
end.
Эта программа выдаст отнюдь не 200000, как может показаться. Ответ будет равен 3392 (результат переполнения). Никакого бага нет. Тип выражения в Паскале определяется только типом входящих в него переменных, но не типом переменной, куда записывается результат. То есть, мы вычислили с переполнением произведение двух переменных типа Integer, а потом «испорченный» результат переписали в переменную типа Longint. Ничего не изменит и
r:=Longint(a*b);
Здесь тоже сначала вычислен результат с переполнением, затем преобразован к типу Longint. А вот
r:=Longint(a)*b;
рулит, получите свои 200000 
Указанная ошибка часто встречается в программах начинающих. Чтобы её не повторять, помните — выражение в Паскале должно быть приведено к нужному типу в процессе его вычисления, а не после его окончания или при присваивании.
P.S. В ряде компиляторов, как во Free Pascal, ошибка не всплывёт, но это не значит, что её не нужно учитывать
02.02.2010, 15:34 [10217 просмотров]
К этой статье пока нет комментариев, Ваш будет первым
СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ
§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.
§ Возможно программа слишком велика, чтобы компилироваться в таком объеме памяти. Следует разбить ее на два или более модуля.
§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);
§ включаемый файл заканчивается в середине раздела операторов. Каждый раздел операторов должен целиком помещаться в одном файле;
§ незаконченный комментарий.
§ несовместимые типы переменной и выражения в операторе присваивания;
§ несовместимые типы фактического и формального параметров в обращении к процедуре или функции;
§ тип выражения, несовместимый с типом индекса при индексировании массива;
§ несовместимые типы операндов в выражении.
§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.
§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.
§ Идентификатор обозначает абсолютную переменную.
§ Идентификатор обозначает процедуру или функцию типа inline.
§ Файл .com содержит ссылки с размерами в байтах на перемещаемые идентификаторы. Такая ошибка происходит в случае, если вы используете операторы HIGH и DOWN с перемещаемыми идентификаторами или если вы ссылаетесь в директивах DB на перемещаемые идентификаторы.
§ Операнд ссылается на перемещаемый идентификатор, который не был определен в сегменте CODE или в сегменте DATA.
§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.
§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.
§ Вы пытаетесь осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.
§ Вы пытаетесь присвоить константу вне диапазона переменной.
§ Вы пытаетесь передать константу вне диапазона в качестве параметра процедуре или функции.
Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.
Неописанная переменная
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: Программы и алгоритмы для начинающих