Ошибка 121 ошибочный спецификатор - Ремонт и установка крупной бытовой техники

Cyborg Drone

Модератор

9625 / 4936 / 3261

Регистрация: 17.08.2012

Сообщений: 15,424

05.06.2015, 09:04

Нет, точно, надо мне прекращать по ночам в компьютер пялиться. У Вас же массив. data[i].surname, естественно. Ну и остальное по подобию.

Добавлено через 1 час 9 минут
Однако, программа молчит, как партизанен яйки подвешен, вместо того, чтобы подсказывать, что там ей вводить. Это не есть хороший стиль. И нет проверки данных при вводе, просто табу недостаточно. Поиск максимума можно попроще сделать, переменная max явно лишняя. То, что в программе есть массив записей, который фактически не нужен, спишем на процесс обучения и дальнейшую переработку программы для будущих заданий. Вот, как по-людски примерно должна выглядеть программа, извините, но на скорую руку, для любого паскаля, и, естественно, программа протестирована:

Pascal

type student = record
                 surname:string[20];
                 nfn:string[4];
                 num: 10..99
               end;
var n, i, k, maxi: integer;
    data: array [1..2000] of student;
    school: array [10..99] of integer;
    s: string;
begin
  for i := 10 to 99 do school[i]:=0;
  repeat
    write('Введите число участников (1..2000): ');
    readln(n)
  until (n >= 1) and (n <= 2000);
  for i := 1 to n do
    with data[i] do
      begin
        writeln('Участник ', i, ':');
        repeat
          write('Фамилия, не более 20 символов: ');
          readln(s)
        until length(s) <= 20;
        surname := s;
        repeat
          write('Инициалы, не более 4 символов: ');
          readln(s)
        until length(s) <= 4;
        nfn := s;
        repeat
          write('Номер школы (10..99): ');
          readln(k)
        until (k >= 10) and (k <= 99);
        num := k;
        inc(school[num])
      end;
  maxi := 10;
  for i := 11 to 99 do if school[i] > school[maxi] then maxi := i;
  write('Максимум участников из школы номер ', maxi);
  readln
end.

Источник

Всем доброго времени суток! Не могу понять, в чем проблема — не получается обратиться к подтипу.
Задача такова: олимпиада, в ней не менее 1000 и не более 2000 человек приняли участие, о каждом есть информация в формате: фамилия(surname), инициалы(name) и номер школы(num). Все параметры обязательны, именно поэтому приходится использовать type. Необходимо выявить номер школы, из которой участие в олимпиаде приняло наибольшее число учеников.
Моё понимание решения: делаю тип student, делаю массив data, состоящий из student, создаю массив school с номерами школ и , считывая номера школ учеников из data, к соответствующему элементу school прибавляю 1. В итоге просто сравниваю элементы в school. Но что-то идет не так… Паскаль вызверяется на точку после data.

uses crt;
type student = record
 surname:string[20];
 name:string[4];
 num: 10..99;
 end;
var  n,i,k,max,maxi: integer; data: array[1..2000] of student;
      school:array[10..99] of integer;
begin
clrscr;
for i:=10 to 99 do school[i]:=0;
writeln('ввод числа участников');
readln(n)
for i:=1 to n do
 begin
 readln(data.surname);
 readln(data.name);
 readln(data.num);
 school[data.num]:=school[data.num]+1;
 end;
max:=school[10];
maxi:=10;
for i:=11 to 99 do
 begin
 if school[i]>max then begin max:=school[i]; maxi:=i; end;
 end;
writeln('максимум участников из школы номер ',maxi);
readkey;
end.

Источник

Step 1 – Solve Pascal Error 121 Invalid Qualifier

Is Pascal Error 121 Invalid Qualifier appearing? Would you like to safely and quickly eliminate Pascal Error 121 which additionally can lead to a blue screen of death?

When you manually edit your Windows Registry trying to take away the invalid keys you’re taking a authentic chance. Unless you’ve got been adequately trained and experienced you’re in danger of disabling your computer system from working at all. You could bring about irreversible injury to your whole operating system. As very little as just 1 misplaced comma can preserve your Pc from even booting every one of the way by!

Troubleshooting Windows XP, Vista, 7, 8 & 10

Simply because this chance is so higher, we hugely suggest that you make use of a trusted registry cleaner plan like CCleaner (Microsoft Gold Partner Licensed). This system will scan and then fix any Pascal Error 121 Invalid Qualifier complications.

Registry cleaners automate the entire procedure of finding invalid registry entries and missing file references (including the Invalid error) likewise as any broken hyperlinks inside of your registry.

Issue with

Backups are made immediately prior to each and every scan providing you with the choice of undoing any changes with just one click. This protects you against doable damaging your pc. Another advantage to these registry cleaners is that repaired registry errors will strengthen the speed and performance of one’s procedure drastically.

http://putka.upm.si/langref/turboPascal/01AA.html
http://computer-programming-forum.com/29-pascal/d08a3eb331768c3f.htm
http://tpdn.ru/guide/errors/detail.php?id=5725
https://www.programmersheaven.com/discussion/213520/invalid-qualifier-what-does-this-mean

Cautionary Note: Yet again, for those who are not an state-of-the-art consumer it’s very encouraged that you simply refrain from editing your Windows Registry manually. If you make even the smallest error within the Registry Editor it can result in you some serious issues that may even call for a brand new set up of Windows. Not all difficulties attributable to incorrect Registry Editor use are solvable.

Fixed:

Symptoms of Pascal Error 121 Invalid Qualifier
“Pascal Error 121 Invalid Qualifier” appears and crashes the energetic method window.
Your Personal computer routinely crashes with Pascal Error 121 Invalid Qualifier when running the exact same system.
“Pascal Error 121 Invalid Qualifier” is shown.
Windows operates sluggishly and responds little by little to mouse or keyboard input.
Your computer periodically “freezes” for the number of seconds in a time.

Will cause of Pascal Error 121 Invalid Qualifier

Corrupt obtain or incomplete set up of Windows Operating System software program.

Corruption in Windows registry from a new Windows Operating System-related application adjust (install or uninstall).

Virus or malware infection which has corrupted Windows method documents or Windows Operating System-related application data files.

Another method maliciously or mistakenly deleted Windows Operating System-related files.

Mistakes this sort of as “Pascal Error 121 Invalid Qualifier” can be brought about by several different elements, so it really is important that you troubleshoot every of the achievable brings about to forestall it from recurring.

Simply click the beginning button.
Variety “command” inside the lookup box… Will not hit ENTER nonetheless!
Although keeping CTRL-Shift in your keyboard, hit ENTER.
You’re going to be prompted that has a authorization dialog box.
Click on Of course.
A black box will open having a blinking cursor.
Variety “regedit” and hit ENTER.
Within the Registry Editor, choose the connected key (eg. Windows Operating System) you wish to back again up.
Within the File menu, choose Export.
Inside the Preserve In list, pick out the folder in which you wish to save the Windows Operating System backup key.
Inside the File Title box, sort a reputation for the backup file, these types of as “Windows Operating System Backup”.
From the Export Vary box, ensure that “Selected branch” is selected.
Click on Help you save.
The file is then saved by using a .reg file extension.
You now use a backup within your related registry entry.

Solution to your problem

There are actually some manual registry editing measures that can not be talked about in this article due to the high chance involved for your laptop or computer method. If you want to understand more then check out the links below.

Additional Measures:

One. Conduct a Thorough Malware Scan

There’s a probability the Error 121 Invalid Qualifier Pascal error is relevant to some variety of walware infection. These infections are malicious and ready to corrupt or damage and possibly even delete your ActiveX Control Error files. Also, it’s attainable that your Pascal Error 121 Invalid Qualifier is actually connected to some element of that malicious plan itself.

2. Clean Disk Cleanup

The a lot more you employ your computer the extra it accumulates junk files. This comes from surfing, downloading packages, and any sort of usual computer system use. When you don’t clean the junk out occasionally and keep your program clean, it could turn into clogged and respond slowly. That is when you can encounter an Invalid error because of possible conflicts or from overloading your hard drive.

Once you clean up these types of files using Disk Cleanup it could not just remedy Pascal Error 121 Invalid Qualifier, but could also create a dramatic change in the computer’s efficiency.

Tip: While ‘Disk Cleanup’ is definitely an excellent built-in tool, it even now will not completely clean up Pascal Error discovered on your PC. There are numerous programs like Chrome, Firefox, Microsoft Office and more, that cannot be cleaned with ‘Disk Cleanup’.

Since the Disk Cleanup on Windows has its shortcomings it is extremely encouraged that you use a specialized sort of challenging drive cleanup and privacy safety application like CCleaner. This system can clean up your full pc. If you run this plan after each day (it could be set up to run instantly) you are able to be assured that your Pc is generally clean, often operating speedy, and always absolutely free of any Pascal error associated with your temporary files.

How Disk Cleanup can help

1. Click your ‘Start’ Button.
2. Style ‘Command’ into your search box. (no ‘enter’ yet)
3. When holding down in your ‘CTRL-SHIFT’ important go ahead and hit ‘Enter’.
4. You will see a ‘permission dialogue’ box.
5. Click ‘Yes’
6. You will see a black box open up plus a blinking cursor.
7. Variety in ‘cleanmgr’. Hit ‘Enter’.
8. Now Disk Cleanup will start calculating the amount of occupied disk space you will be able to reclaim.
9. Now a ‘Disk Cleanup dialogue box’ seems. There will be a series of checkboxes for you personally to pick. Generally it will likely be the ‘Temporary Files’ that consider up the vast majority of your disk area.
10. Verify the boxes that you want cleaned. Click ‘OK’.

How to repair

3. System Restore can also be a worthwhile device if you ever get stuck and just desire to get back to a time when your computer system was working ideal. It will work without affecting your pics, paperwork, or other crucial information. You can discover this option with your User interface.

Pascal Error

Manufacturer

Device

Operating System

Pascal Error 121 Invalid Qualifier

4 out of
5

based on
31 ratings.

Источник

СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ

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

Пользователь прервал исполнение программы

П3.
СООБЩЕНИЯ И КОДЫ ОШИБОК

П3.1. СООБЩЕНИЯ
ОБ ОШИБКАХ ПЕРИОДА КОМПИЛЯЦИИ

Среда Турбо Паскаля дает исчерпывающую
информацию о характере и месте обнаруженной
компилятором ошибки. При обнаружении
ошибки среда автоматически загружает
в окно редактора исходный файл и помещает
курсор около того места, где в исходном
тексте обнаружена ошибка. При этом в
верхней строке редактора появляется
диагностическое сообщение. После нажатия
на любую клавишу (кроме FI) верхняя строка
восстанавливает свой первоначальный
вид и среда переходит к режиму
редактирования. Если после появления
сообщения об ошибке нажать F1, на экране
появится окно справочной службы с
детальной информацией об ошибке и
рекомендациями по ее устранению.
Некоторые ошибки в исходном тексте
обнаруживаются не сразу, а в ходе
продолжающегося контекстного разбора.
Например, несоответствие типов в
операторе присваивания не может быть
обнаружено до тех пор, пока не будет
вычислено целиком выражение в правой
части этого оператора. В таких случаях
ищите ошибку слева от курсора или в
предыдущей строке текста.

Ниже приводятся сообщения об ошибках
в том виде, в каком они появляются в
верхней строке редактора, а также перевод
сообщений справочной службы.

На экране после кода ошибки (цифры) нет
точки, поэтому ее нет и в соответствующем
месте текста.

1 Out of memory (Выход
за границы памяти).

Компилятору не хватает памяти. Имеется
ряд возможных решений этой проблемы:

если в опции COMPILE/DESTINATION установлено
значение MEMORY, замените эту опцию на
DISK;
если в опции OPTIONS/LINKER/LINK BUFFER установлено
значение MEMORY, замените эту опцию т DISK;
если Вы используете резидентные
обслуживающие программы, такие как
SIDEKICK, NORTON, удалите их из памяти;
если Вы используете интегрированную
среду TVRBO.EXE, то попробуйте воспользоваться
компилятором ТРС.ЕХЕ — он занимает
меньше памяти.

Если ни одна из рекомендаций не помогает,
то, возможно, Ваша программа просто
слишком велика, чтобы компилировать ее
в таком объеме памяти. В этом случае Вы
должны разбить ее на два или более
модулей.

2 Identifier
expected (He указан
идентификатор).

В этом месте должен находиться
идентификатор. Возможно, Вы пытаетесь
использовать в качестве идентификатора
зарезервированное слово.

3 Unknown identifier (Неизвестный
идентификатор).

Этот идентификатор не был описан.

4 Duplicate identifier (Двойной
идентификатор).

Попытка дважды описать один и тот же
идентификатор.

5 Syntax error (Синтаксическая
ошибка).

В исходном тексте найден недопустимый
символ. Возможно, Вы забыли заключить
в апострофы строковую константу.

6 Error in real constant (Ошибка
в вещественной константе).

Синтаксис констант вещественного типа
описан в гл.4.

7 Error in integer constant
(Ошибка в целой константе).

Синтаксис констант целого типа описан
в гл.4. Учтите, что после целых действительных
чисел, превышающих диапазон представления
целых чисел (-2147483648..+2147483647), должны
ставиться точка и ноль, например,
12345678912.0.

8 String constant exceeds line
(Строковая константа превышает допустимые
размеры).

Вероятно, Вы забыли поставить апостроф
в конце строковой константы.

9 Too many nested files (Слишком
много вложенных файлов).

Компилятор допускает не более пяти
уровней вложенности включаемых файлов
(т.е. в исходном файле есть ссылка на
включаемый файл, в котором есть ссылка
на еще один включаемый файл и т.д.).

10 Unexpected end of file (He
найден конец файла).

Вы могли получить это сообщение об
ошибке по одной из следующих причин:

Ваш исходный файл закончился перед
последним END основного раздела операторов;
вероятно, в Вашей программе неодинаковое
количество операторов BEGIN и END;
включаемый файл заканчивается в середине
раздела операторов; каждый раздел
операторов должен целиком помещаться
в одном файле;
Вы не закончили комментарий.

11 Line too long (Слишком
длинная строка).

Максимальная длина строки, обрабатываемой
компилятором, равна 126 символам (обратите
внимание: редактор среды может обрабатывать
строки практически неограниченной
длины).

12 Type identifier expected
(Здесь нужен идентификатор типа).

Не указан тип идентификатора.

13 Too many open files (Слишком
много открытых файлов).

Появление этой ошибки означает, что
конфигурационный файл CONFIG.SYS операционной
системы не включает параметр FlLES=xx или
этот параметр указывает слишком мало
файлов. Увеличьте число файлов до нужного
значения, например, до 80.

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 (Слишком
большая структура).

Максимально допустимый размер любого
структурного типа составляет 65520 байт.

23 Set base type of range
(Базовый тип множества нарушает границы).

Базовый тип множества должен представлять
собой тип-диапазон с границами в пределах
от 0 до 255 или перечисляемый тип с не
более чем 256 значениями.

24 File components may not be files (Компонентами файла
не могут быть файлы) .

Конструкции типа 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 Tуре 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 (Типы операндов не соответствуют
операции).

Данная операция не может быть применена
к указанным операндам, например, ‘ А’ div
‘ 2 ‘ .

42 Error in expression (Ошибка
в выражении).

Данный символ не может участвовать в
выражении указанным образом. Возможно,
Вы забыли указать операцию между двумя
операндами.

43 Illegal assignment (Неверное
присваивание).

Файлам и нетипизированным переменным
нельзя присваивать значения. Идентификатору
функции можно присвоить значение только
внутри раздела операторов данной
функции.

44 Field identifier expected
(Нужен идентификатор поля).

Попытка использовать запись целиком в
том месте, где требуется ссылка на
какое-либо поле записи.

45 Object file too large
(Объектный файл слишком большой).

Турбо Паскаль не может компоновать
файлы .OBJ больше 64 Кбайт.

46 Undefined external
(Неопределенная внешняя процедура).

Внешняя процедура или функция не имеет
соответствующего определения PUBLIC в
объектном файле. Убедитесь, что Вы
указали все объектные файлы в директивах
{$L <имя .OBJ-файлa>} и проверьте написание
идентификаторов процедуры или функции
в файле . ASM.

47 Invalid object file record
(Неправильная запись объектного файла).

Файл .OBJ содержит неверную объектную
запись. Убедитесь, что данный файл
является действительно файлом .OBJ.

48 Code segment too large
(Сегмент кода слишком большой).

Максимальный размер кода программы или
программного модуля равняется 65520
байтам. Разбейте Вашу программу или
модуль на два или более модулей.

49 Data segment too large
(Сегмент данных слишком велик).

Максимальный размер сегмента данных
программы равен 65520 байтам, включая
данные, используемые программными
модулями. Если Вам нужно большее
количество глобальных данных, опишите
большие структуры с помощью указателей
и выделяйте для них память динамически
с помощью процедуры NEW.

50 DO expected (Нужен
оператор DO).

51 Invalid PUBLIC definition
(Неверное PUBLIC-определение).

Возможные причины сообщения:

данный идентификатор получил тип PUBLIC
с помощью соответствующей директивы
языка ассемблера, но не соответствует
описанию EXTERNAL в программе или программном
модуле Паскаля;
две или более директивы PUBLIC языка
ассемблера определяют один и тот же
идентификатор;
файлы .OBJ определяют символы PUBLIC, не
находящиеся в сегменте CODE.

52 Invalid EXTRN definition
(Неправильное EXTRN-определение).

Возможные причины сообщения:

программа на ассемблере ссылается с
помощью директивы EXTRN на идентификатор,
который не описан в программе на Паскале
и не был описан в интерфейсных секциях
используемых программных модулей;
ассемблерная программа ссылается на
идентификатор, обозначающий абсолютную
переменную (т.е. определенную словом
ABSOLUTE);
ассемблерная программа ссылается на
идентификатор процедуры или функции
типа INLINE.

53 Too many EXTRN definition
(Слишком много EXTRN-определений).

Турбо Паскаль не может обрабатывать
файлы .OBJпри более чем 256 определениях
EXTRN.

54 OF expected (Требуется
OF).

55 INTERFACE expected (Требуется
интерфейсная секция).

56 Invalid relocatable reference
(Неправильная перемещаемая ссылка).

Возможные причины сообщения:

файл .OBJ содержит данные и перемещаемые
ссылки в сегментах, отличных от CODE.
Например, Вы пытаетесь описать
инициализированные переменные в
сегменте DATA;
файл .OBJ содержит ссылки с размерами в
байтах на перемещаемые символы. Такая
ошибка происходит в случае, если Вы
используете операторы HIGH и LOW с
перемещаемыми символами или если Вы
ссылаетесь в директивах DB на перемещаемые
символы;
операнд ссылается на перемещаемый
символ, который не был определен в
сегменте CODE или в сегменте DATA;
операнд ссылается на процедуру EXTRN или
функцию EXTRN со сдвигом, например, CALL
SortProc+8.

57 THEN expected (Требуется
THEN).

58 TO or DOWNTO expected
(Требуется ТО или DOWNTO).

59 Undefined forward
(Неопределенное опережающее описание).

Возможные причины сообщения:

была рписана процедура или функция в
интерфейсной секции программного
модуля, но ее определение отсутствует
в секции реализации;
процедуры или функции были описаны с
помощью опережающего описания, но их
определение не найдено.

60 Too many procedures (Слишком
иного процедур).

Турбо Паскаль допускает не более 512
процедур или функций в одном модуле.
Если Вы компилируете программу, то
поместите некоторые процедуры или
функции в модули. Если Вы компилируете
модуль, то разбейте его на два или
несколько модулей.

61 Invalid typecast (Неверное
преобразование типа).

Возможные причины сообщения:

Вы пытаетесь разместить в памяти,
занимаемой некоторой переменной,
значение выражения другого типа э
случае, когда размер размещаемого
значения не равен размеру переменной;
Вы пытаетесь осуществить преобразование
типа выражения, когда разрешается
только ссылка на переменную, процедуру
или функцию.

62 Division by zero (Деление
на ноль).

Предшествующая операция пытается
выполнить деление на ноль.

63 Invalid file type (Неверный
файловый тип).

Данный файловый тип не обслуживается
процедурой обработки файлов. Например,
процедура READLN используется для
типизированного файла или процедура
SEEK — для текстового файла.

64 Cannot Read or Write variables
of this type (Нет возможности считать или
записать переменные данного типа).

Нарушены следующие ограничения:

процедуры READ и READLN могут считывать
переменные символьного, целого,
действительного и строкового типов;
процедуры WRITE и WRITELN могут выводить
переменные символьного, целого,
действительного, булевского и строкового
типов.

65 Pointer variable expected
(Нужно использовать переменную-указатель).

Предыдущая переменная должна быть
указателем.

66 String variable expected
(‘Нужна строковая переменная) .

Предшествующая переменная должна иметь
строковый тип.

67 String expression expected
(Нужно выражение строкового типа).

Предшествущее выражение должно иметь
строковый тип.

68 Circular unit reference
(Перекрестная ссылка модулей).

Два модуля ссылаются друг на друга:

Unit A;
Unit В;

Uses В;
Uses А;

…..
…..

69 Unit name mismatch
(Несоответствие имен программных
модулей).

Имя программного модуля, найденное в
файле .TPU, не соответствует имени,
указанному в предложении USES.

70 Unit version mismatch
(Несоответствие версий модулей).

Один или несколько программных модулей,
используемых данной программой, были
изменены после их компиляции. Воспользуйтесь
опцией COMPILE/MAKE или COMPILE/BUILD в интегрированной
среде или опциями /М или /В в компиляторе
ТРС, что позволит автоматически
скомпилировать программные модули,
нуждающиеся в перекомпиляции.

71 Duplicate unit name (Повторное
имя программного модуля).

Вы уже указали этот программный модуль
в операторе USES.

72 Unit file format error (Ошибка
формата файла модуля).

Файл .TPU не соответствует стандарту
Турбо Паскаля.

73 IMPLEMENTATION expected
(Отсутствует исполняемая часть модуля).

74 Constant and case types do not
match (Типы констант и тип выражения
оператора 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.

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).

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 (Слишком
много переменных).

Нарушены следующие ограничения:

общий размер глобальных переменных,
описанных в программе или программном
модуле, не может превышать 64 Кбайт;
размер локальных переменных, описанных
в процедуре или функции, не может
превышать 64 Кбайт. .

97 Invalid FOR control
variable(Неправильный параметр цикла
оператора FOR).

Параметр цикла оператора 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
(Слишком много перемещаемых Элементов).

Размер таблицы перемещения файла .ЕХЕ
превышает 64 Кбайта, что является верхним
пределом в Турбо Паскале. Если Вы
обнаружили эту ошибку, то это значит,
что программа просто слишком велика
для обработки компоновщиком Турбо
Паскаля. Возможно также, что она слишком
велика для выполнения в MS-DOS. В таком
случае нужно выделить в программе
основной раздел, который выполнял бы
обращение к двум или более вспомогательным
разделам с помощью процедуры ЕХЕС из
модуля DOS (см. гл.11).

108 Overflow in arithmetic
operator (Переполнение при выполнении
арифметического оператора).

Результат предыдущей арифметической
операции не лежит в диапазоне -2 146 483
648…+2 147 483 647. Исправьте операцию или
используйте вещественные типы вместо
целочисленных.

109 No enclosing FOR, WHILE or
REPEAT statment (Нет операторов, заканчивающих
операторы FOR, WHILE или REPEAT) .

Процедуры BREAK и CONTINUE не могут вызываться
вне тела оператора цикла.

110 Debug information table
overflow (Переполнение информационной
таблицы отладки).

Возможно, программа содержит более
65536 имен или 65536 строк. Отключите генерацию
таблиц отладки директивой компилятора
{$D-} или исправьте один или более модулей.

111

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

112 CASE constant out of
range(Константа CASE нарушает допустимые
границы).

Целочисленные константы оператора CASE
должны находиться в диапазоне от -32768
до 32767.

113 Error in
statement (Ошибка
в
операторе).

Данный символ не может быть первым
символом в операторе.

114 Cannot call an interrupt
procedure (Невозможно вызвать процедуру
прерывания) .

Вы не можете непосредственно вызвать
процедуру обработки прерывания.

115

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

116 Must be in
8087 mode to compile this (Для
компиляции
необходим
режим
8087) .

Данная программа может быть скомпилирована
только в режиме {$N+}. В состоянии {SN-}
операции с типами SINGLE, DOUBLE, EXTENDED и СОМР
не допускаются.

117 Target address not found
(Указанный адрес не найден).

Команда COMPILE/FIND ERROR в среде Турбо Паскаля
(или поиск с помощью опции /F в командной
строке компилятора ТРС.ЕХЕ) не обнаружила
оператор, соответствующий заданному
адресу.

118 Include
files are not allowed here (Здесь
не
допускаются
включаемые
файлы)
.

Раздел операторов должен целиком
размещаться в одном файле.

119 No inherited methods are
accessible here (В этом месте программы нет
унаследованных методов).

Вы используете зарезервированное слово
INHERITED вне метода объекта или в методе,
который не унаследован от родительского
объекта.

120

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль. .

121 Invalid qualifier (Неверный
квалификатор).

Возможные причины сообщения:

Вы пытаетесь индексировать переменную,
которая не является массивом;
Вы пытаетесь указать поля в переменной,
которая не является записью;
Вы используете в качестве указателя
переменную, которая не является
указателем.

122 Invalid variable reference
(Недействительная ссылка на переменную).

Предыдущая конструкция удовлетворяет
синтаксису ссылки на переменную, но она
не указывает адрес памяти. Возможно Вы
вызываете функцию-указатель, но забываете
сослаться на результат с помощью знака
^.

123 Too many symbols'(Слишком
много символов) .

Программа или программный модуль
содержат более 64 Кбайт символов. Если
Вы компилируете программу с директивой
{$D+}, то попробуйте отключить эту директиву
или разбейте программу на несколько
модулей.

124 Statement part too large
(Слишком большой раздел операторов).

Турбо Паскаль ограничивает размер
раздела операторов до величины примерно
24 Кбайта. Если Вы обнаружили эту ошибку,
поместите части раздела операторов в
одну или несколько процедур и вообще
сделайте Вашу программу более
структурированной.

125

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

126 Files must be var parameters
(Файлы должны передаваться как
параметры-переменные) .

Вы пытаетесь передать процедуре или
функции параметр-значение файлового
типа. Параметры файлового типа должны
быть параметрами-переменными.

127 Too many conditional symbols
(Слишком много условных символов).

Недостаточно памяти для определения
условных символов (слов, управляющих
командами условной компиляции).
Попытайтесь удалить некоторые символы
или уменьшить их длину.

128 Misplaced conditional
directive (Пропущена условная директива).

Компилятор обнаружил директиву {$ELSE}
или {$ENDIF} без соответствующих директив
{$IFDEF}, {$IFNDEF} или {$IFOPT}.

129 ENDIF
directive missing (Пропущена
директива
ENDIF).

Исходный файл закончился внутри
конструкции условной компиляции. В
исходном файле должно быть равное
количество директив {$IFxxx} и {$ENDIF}.

130 Error in
initial conditional defines (Ошибка
в
условных
определениях).

Исходные условные символы.указанные в
опции OPTIONS/COMPILER /CONDITIONAL DEFINES являются
недействительными. Турбо Паскаль требует
нуля или более идентификаторов,
разделенных пробелами, запятыми или
точками с запятой.

131 Header does not match
previous definition (Заголовок не соответствует
предыдущему определению).

Возможные причины сообщения:

заголовок процедуры или функции,
указанный в интерфейсной секции, не
соответствует заголовку в исполняемой
части.
заголовок процедуры или функции,
указанный с помощью опережающего
описания FORWARD, не соответствует заголовку
найденной далее одноименной процедуры
или функции.

132 Critical disk error
(Критическая ошибка диска).

Во время компиляции произошла критическая
ошибка диска (например, дисковод находится
в состоянии «не готов»).

133 Cannot
evaluate this expression (Нельзя
вычислить
данное
выражение).

В выражении-константе или в отладочном
выражении Вы пытаетесь использовать
неподдерживаемые средства, например,
в описании константы пытаетесь
использовать функцию SIN или вызвать в
отладочном выражении определенную
пользователем функцию.

134 Expression incorrectly
terminated (Некорректное завершение
выражения).

Контекстуально в данном месте программы
должен быть конец выражения или оператора.

135 Invalid format specifier
(Неверный спецификатор формата).

Используется неверный спецификатор
формата или числовой аргумент спецификатора
формата выходит за допустимые границы.

136 Invalid indirect reference
(Недопустимая косвенная ссылка).

Оператор пытается осуществить недопустимую
косвенную ссылку. Например, Вы используете
абсолютную переменную, базовая переменная
которой в текущем модуле неизвестна,
или используете программу типа INLINE, в
которой делается ссылка на переменную,
неопределенную в текущем модуле.

137 Structured variable are not
allowed here (Здесь нельзя использовать
переменную структурного типа).

Делается попытка выполнить над переменной
структурного типа неподдерживаемую
операцию. Например, Вы пытаетесь
перемножить две записи.

138 Cannot evaluate without
System unit (Нельзя вычислить выражение без
модуля SYSTEM).

Чтобы отладчик смог вычислить выражение,
в файле TURBO.TPL должен содержаться модуль
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 (Недопустимая
ссылка
на
процедуру
или
функцию).

Возможные причины сообщения:

Вы пытаетесь вызвать процедуру в
выражении;
процедура или функция, использующаяся
в качестве параметра вызова другой
процедуры или функции, должна
компилироваться в состоянии {$F+} и не
может описываться с помощью
зарезервированных слов INLINE или INTERRUPT.

144 Cannot overlay this unit
(Этот модуль не может использоваться в
качестве оверлейного).

Попытка использовать в качестве
оверлейного модуль, который не был
скомпилирован с директивой {$O+}.

145 Too many nested scopes
(Слишком много вложений).

В программе не может быть больше 512
вложений с не более чем 128 вложениями в
каждом модуле. Вложениями считаются:

каждый модуль в предложении USES;
каждая вложенная запись в типе RECORD;
каждый вложенный оператор WITH.

146 File access denied (Отказано
в доступе к файлу).

Возможные причины:

Вы пытаетесь использовать файл с
атрибутом «только для чтения» в качестве
выводного файла;
Вы используете имя каталога вместо
имени выводного файла.

147 Object
type expected (Здесь
должен
быть
тип
OBJECT).

Источник

Форум программистов Vingrad

Модераторы: Poseidon

Поиск:

[Pascal] Создание функций из программы, Разделение программы на функции

Опции темы

Weman

Дата 4.12.2009, 19:36 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Здравствуйте!!! Нужна Ваша помошь!
Дали такое задание: используя подпрограммы-функции в массивах Х и У найти минимумы с учетом повторений и поменять их местами.

Вроде ничего сложного. Написал код, все работает!
Но никак не пойму, как переделать программу, чтобы получились функции…

Код программы:

Код


Program MinXY;
Uses Crt;
Const
     MSize=10;
     n=2;
     m=3;
Var
   x,y:array[1..n, 1..m] of Integer;
   {n,m:Integer;}
   tmp:Integer;
   i,j:Integer;
   PosXx, PosXy:Integer;
   PosYx, PosYy:Integer;
   ValX, ValY:Integer;
{Function SearchMin:Integer;}
Begin
     ClrScr;
     {********************************************}
     Writeln('Ввод массива Х!!!');
     for i:=1 to n do
         for j:=1 to m do
         begin
              Write('x[',i,'][',j,'] -> ');
              Readln(x[i][j]);
         end;
     Writeln;
     Writeln('Ввод масива Y!');
     for i:=1 to n do
         for j:=1 to m do
         begin
              Write('y[',i,'][',j,'] -> ');
              Readln(y[i][j]);
         end;
     {********************************************}
     Writeln;
     Writeln('Массив Х!');
     for i:=1 to n do
     begin
         for j:=1 to m do
             Write(x[i][j],' ');
         Writeln;
     end;
     Readln;
     Writeln('Массив Y!');
     for i:=1 to n do
     begin
         for j:=1 to m do
             Write(y[i][j],' ');
         Writeln;
     end;
     Readln;
     {********************************************}
     ValX:=x[1,1];
     PosXx:=1;
     PosXy:=1;
     for i:=1 to n do
     begin
         for j:=1 to m do
             if x[i,j]<=ValX then
             begin
                  ValX:=x[i,j];
                  PosXx:=i;
                  PosXy:=j;
             end;
     end;
     Writeln('Найден Минимимум в массиве Х!');
     Writeln('Значение минимума: ',ValX);
     Writeln('Строка ',PosXx);
     Writeln('Столбец ', PosXy);
     Readln;
     ValY:=y[1,1];
     PosYx:=1;
     PosYy:=1;
     for i:=1 to n do
     begin
         for j:=1 to m do
             if y[i,j]<=ValY then
             begin
                  ValY:=y[i,j];
                  PosYx:=i;
                  PosYy:=j;
             end;
     end;
     Writeln('Найден Минимимум в массиве Y!');
     Writeln('Значение минимума: ',ValY);
     Writeln('Строка ',PosYx);
     Writeln('Столбец ', PosYy);
     Readln;
     {********************************************}
     tmp:=x[PosXx,PosXy];
     x[PosXx,PosXy]:=y[PosYx,PosYy];
     y[PosYx,PosYy]:=tmp;
     {********************************************}
     Writeln;
     Writeln('Массив Х!');
     for i:=1 to n do
     begin
         for j:=1 to m do
             Write(x[i][j],' ');
         Writeln;
     end;
     Readln;
     Writeln('Массив Y!');
     for i:=1 to n do
     begin
         for j:=1 to m do
             Write(y[i][j],' ');
         Writeln;
     end;
     Readln; 
End.

Я так понимаю должно наверно быть три функции:
1. Ввод массива (Х и У),
2. Поиск минимумов в массивах Х и Y
3. Замена минимумов местами

Подскажите, как можно переделать, а то не совсем разорбрался с функциями…
Заранее огромное спасибо!!!!!

———————

mr.Anderson

Дата 4.12.2009, 20:04 (ссылка)

(нет голосов)

Загрузка …

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Правильно понимаешь. Это как вариант. Можно поменьше функций, можно побольше. Вот вариант (набросан на коленке, не проверял):

Код


Program MinXY;
Uses Crt;
Const
  n=2;
  m=3;
procedure FillArray(var A: Array Of Integer; Message: String);
var
  I, J: Integer;
begin
  WriteLn(Message);
  for I := 1 to n do
    for J := 1 to m do
    begin
      Write('Enter [', I, '][', J, '] -> ');
      ReadLn(A[I, J]);
    end;
  WriteLn;
end;
procedure PrintArray(A: Array Of Integer; Message: String);
var
  I, J: Integer;
begin
  WriteLn(Message);
  for I := 1 to n do
    for J := 1 to m do
      Write(A[I][J], ' ');
  Write('Нажмите <Enter>...');
  ReadLn;
end;
function SearchMin(A: Array Of Integer; var PosX, PosY: Integer): Integer;
var
  I, J: Integer;
begin
  SearchMin := A[1,1];
  PosX := 1;
  PosX := 1;
  for I := 1 to n do
    for J := 1 to m do
      if A[I, J] <= SearchMin then
      begin
        SearchMin := A[I, J];
        PosX := I;
        PosX := J;
      end;
end;
Var
   x,y:array[1..n, 1..m] of Integer;
   tmp:Integer;
   PosXx, PosXy:Integer;
   PosYx, PosYy:Integer;
   ValX, ValY:Integer;
Begin
     ClrScr;
     FillArray(x, 'Ввод массива X');
     FillArray(y, 'Ввод массива Y');
     PrintArray(x, 'Массив X');
     PrintArray(y, 'Массив Y');
     ValX := SearchMin(X, PosXx, PosXy);
     Writeln('Найден Минимимум в массиве Х!');
     Writeln('Значение минимума: ', ValX);
     Writeln('Строка ', PosXx);
     Writeln('Столбец ', PosXy);
     Readln;
     ValY := SearchMin(Y, PosYx, PosYy);
     Writeln('Найден Минимимум в массиве Y!');
     Writeln('Значение минимума: ', ValY);
     Writeln('Строка ', PosYx);
     Writeln('Столбец ', PosYy);
     Readln;
     // обмен
     tmp:=x[PosXx,PosXy];
     x[PosXx,PosXy]:=y[PosYx,PosYy];
     y[PosYx,PosYy]:=tmp;
     // вывод массивов
     PrintArray(x, 'Массив X');
     PrintArray(y, 'Массив Y');
     Readln; 
End.

———————

user posted image

Weman

Дата 4.12.2009, 20:30 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

mr.Anderson, огромное спасибо Вам!!!

Вроде все понятно! В функции передается соответствующий массив и сообщение.
Начинаю компилировать (Turbo Pascal 7.0) и почему-то ему не нравится строчка ReadLn(A[I, J]);:

Код


procedure FillArray(var A: Array Of Integer; Message: String);
var
  I, J: Integer;
begin
  WriteLn(Message);
  for I := 1 to n do
    for J := 1 to m do
    begin
      Write('Enter [', I, '][', J, '] -> ');
      ReadLn(A[I, J]);
    end;
  WriteLn;
end;

И во всех функциях ниже… Именно не нравится запись A[I,J].
Выдает 121 ошибку — ошибочный спецификатор.

Я конечно понимаю, что программа написана на коленке (как Вы выразились), но немогли бы Вы уделить этой программе еще немножко времени…

Не пойму, что ему не нравится….

———————

mr.Anderson

Дата 4.12.2009, 20:33 (ссылка)

(нет голосов)

Загрузка …

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Ошибочный спецификатор… Хм… Ща подумаем…

Добавлено через 1 минуту
Вроде бы синтаксически все верно… Турбо паскаля у меня нет, попробую сейчас под дельфой прогнать…

Добавлено через 3 минуты и 9 секунд
Ааа, блин… Нашел. Ща поправим.

———————

user posted image

Weman

Дата 4.12.2009, 20:38 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Посмотрите, пожалуйста!

———————

mr.Anderson

Дата 4.12.2009, 20:41 (ссылка)

(нет голосов)

Загрузка …

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Мда. Не получилось у меня. Вообще, достаточно заменить в каждом заголовке функции Array Of Integer на Array Of Array Of Integer (двумерный массив же). Но таким образом у меня в дельфе не прокатило, через дополнительный тип тоже проблемы остались… Сейчас подумаю, как можно обойти…

Добавлено через 3 минуты и 52 секунды
Что-то у меня не думается… Я не знаю, скомпилится ли у тебя в турбо паскале, попробуй так. Заведи дополнительный тип (после const раздела пропиши):

Код


type
  TDoubleArray = Array Of Array Of Integer;

И в каждом заголовке функций и процедур поменяй

Код


A: Array Of Integer;

на

Код


A: TDoubleArray;

И попробуй запустить.

———————

user posted image

Weman

Дата 4.12.2009, 20:57 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Ага, получилось!!!

Но еще одна ошибка выскачила!!!

Код


function SearchMin(A: AR; var PosX, PosY: Integer): Integer;
var
  I, J: Integer;
begin
  SearchMin := A[1,1];
  PosX := 1;
  PosX := 1;
  for I := 1 to n do
    for J := 1 to m do
      if A[I, J] <= SearchMin then
      begin
        SearchMin := A[I, J];
        PosX := I;
        PosX := J;
      end;
end;

Ругается на строчку if A[I, J] <= SearchMin then
Пишет, что после SearchMin должна быть «(» (скобка).
Ведь это переменная, какая нафиг скобка…

———————

mr.Anderson

Дата 4.12.2009, 21:20 (ссылка)

(нет голосов)

Загрузка …

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Гм, надо же. А в дельфе не компилит. Да, тут напряжно малясь. Эту функцию замени на такую:

Код


function SearchMin(A: AR; var PosX, PosY: Integer): Integer;
var
  I, J: Integer;
  Res: Integer;
begin
  Res := A[1,1];
  PosX := 1;
  PosX := 1;
  for I := 1 to n do
    for J := 1 to m do
      if A[I, J] <= Res then
      begin
        Res := A[I, J];
        PosX := I;
        PosX := J;
      end;
  SearchMin := Res;
end;

———————

user posted image

Weman

Дата 4.12.2009, 21:22 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Так уже попробовал!!!
В этом случае ругается на последнюю строчку такой же ошибкой: SearchMin := Res;

Мистика….

Добавлено через 6 минут и 25 секунд
mr.Anderson, Огромное Вам спасибо!!!
Все заработало!!!! Все отлично считает!!!!!
Я счастлив! smile

———————

mr.Anderson

Дата 4.12.2009, 21:56 (ссылка)

(нет голосов)

Загрузка …

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Да не за что, а как хоть заработало-то? Не должно было ругаться на эту строчку.

Это сообщение отредактировал(а) mr.Anderson — 4.12.2009, 21:58

———————

user posted image

Weman

Дата 4.12.2009, 22:14 (ссылка)

(нет голосов)

Загрузка …

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Да руки у меня наверно немного кривоваты)))
До того, как Вы написали код программы, где SearchMin был заменен на Res, я подобную идею пытался сам сделать. Вылезала ошибка.
Потом все-такие решил скопировать ваш код и, как по волшебству, все заработало! Волшебство smile

———————

Правила форума «Центр помощи»

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!

Название темы должно отражать её суть! (Не следует добавлять туда слова «помогите», «срочно» и т.п.)
При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
В названии темы не нужно указывать происхождение задачи (например «школьная задача», «задача из учебника» и т.п.), не нужно указывать ее сложность («простая задача», «легкий вопрос» и т.п.). Все это можно писать в тексте самой задачи.
Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку «Код»). Не забывайте выбирать при этом соответствующий язык.
Помните: один топик — один вопрос!
В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
Если вопрос решён, то воспользуйтесь ссылкой «Пометить как решённый», которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)

0 Пользователей:

« Предыдущая тема | Центр помощи | Следующая тема »

Источник

Step 1 – Solve Pascal Error 121 Invalid Qualifier

Troubleshooting Windows XP, Vista, 7, 8 & 10

Issue with

Fixed:

Solution to your problem

2. Clean Disk Cleanup

How Disk Cleanup can help

How to repair

Возможно, вам также будет интересно: