Ожидался порядковый тип паскаль ошибка что значит

damka_00

0 / 0 / 0

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

Сообщений: 94

1

Ошибка: ожидался порядковый тип

27.04.2016, 20:22. Показов 44773. Ответов 3

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Помогите исправить

Pascal 
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

  program Hw;
const
    m = 3;
 
var
    A: array[1..3] of real;
    B: array[1..3] of real;
    C: array[1..3] of real;
    D: array[1..3] of real;
    S: real;
    W: real;
    O: real;
    R: real;
    summA:real;
    summB:real;
    summC:real;
    summD:real;
    i: real;
    srtA:real;
    srtB:real;
    srtC:real;
    srtD:real;
 
begin
    for i := 1 to m do begin
    S:=random(11);
    W:=random(13);
    while W = S do W:=random(13);
    O:=random(14);
    while O = S or W do O:=random(14);
    R:=random(10);
    while R = S or W or O do R:=random(10);
    
        A[i]:=-10+S;
        write (A[i]:4,'   ');
        B[i]:=-10+W;
        write (B[i]:4,'   ');
        C[i]:=-10+O;
        write (C[i]:4,'   ');
        D[i]:=-10+R;
        writeln (D[i]:4,'   ');
        
      
    end;
    for i := 1 to m do
    summA:=summA+A[i];
    srtA:=summA/4;
    write (' ',summA);
    summB:=summB+B[i];
    srtB:=summB/4;
    write ('     ',summB);
    summC:=summA+C[i];
    srtC:=summC/4;
    write ('     ',summC);
    summD:=summD+D[i];
    srtD:=summD/4;
    write ('     ',summD);
 
end.



0

Хитрая блондиночка $)

1471 / 986 / 399

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

Сообщений: 3,785

27.04.2016, 20:34

2

Цитата
Сообщение от damka_00
Посмотреть сообщение

for i := 1 to m do begin

В этот цикл нельзя счетчиком передавать вещественное число. Либо делай i целочисленным, либо не используй for.



0

damka_00

0 / 0 / 0

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

Сообщений: 94

27.04.2016, 20:55

 [ТС]

3

Я уже и сам додумался сделать i целочисленным ,но спасибо за ответ.И как закрыть тему?

Добавлено через 13 минут
Другая проблема,он вычисляет неверное среднее значение

Pascal 
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
116
117
118
119
120
121
122
123
124

 program Hw;
const
    m = 3;
 
var
    A: array[1..3] of integer;
    B: array[1..3] of integer;
    C: array[1..3] of integer;
    D: array[1..3] of integer;
    S: integer;
    W: integer;
    O: integer;
    R: integer;
    summA:real;
    summB:real;
    summC:real;
    summD:real;
    i: integer;
    srtA:real;
    srtB:real;
    srtC:real;
    srtD:real;
 
begin
    for i := 1 to m do begin
    S:=random(12);
    W:=random(57);
    while W = S do W:=random(57);
    O:=random(14);
    while O = S or W do O:=random(14);
    R:=random(10);
    while R = S or W or O do R:=random(10);
    
        A[i]:=S;
        write (A[i]:4,'   ');
        B[i]:=W;
        write (B[i]:4,'   ');
        C[i]:=O;
        write (C[i]:4,'   ');
        D[i]:=R;
        writeln (D[i]:4,'   ');
        
      
    end;
    for i := 1 to m do
    summA:=summA+A[i];
    srtA:=summA/3;
    write (' ',srtA);
    summB:=summB+B[i];
    srtB:=summB/3;
    write ('     ',srtB);
    summC:=summA+C[i];
    srtC:=summC/3;
    write ('     ',srtC);
    summD:=summD+D[i];
    srtD:=summD/3;
    write ('     ',srtD);
 
end.
 
[size="1"][color="grey"][I]Добавлено через 24 секунды[/I][/color][/size]
Другая проблема,он вычисляет неверное среднее значение  
 
 
 
 program Hw;
const
    m = 3;
 
var
    A: array[1..3] of integer;
    B: array[1..3] of integer;
    C: array[1..3] of integer;
    D: array[1..3] of integer;
    S: integer;
    W: integer;
    O: integer;
    R: integer;
    summA:real;
    summB:real;
    summC:real;
    summD:real;
    i: integer;
    srtA:real;
    srtB:real;
    srtC:real;
    srtD:real;
 
begin
    for i := 1 to m do begin
    S:=random(12);
    W:=random(57);
    while W = S do W:=random(57);
    O:=random(14);
    while O = S or W do O:=random(14);
    R:=random(10);
    while R = S or W or O do R:=random(10);
    
        A[i]:=S;
        write (A[i]:4,'   ');
        B[i]:=W;
        write (B[i]:4,'   ');
        C[i]:=O;
        write (C[i]:4,'   ');
        D[i]:=R;
        writeln (D[i]:4,'   ');
        
      
    end;
    for i := 1 to m do
    summA:=summA+A[i];
    srtA:=summA/3;
    write (' ',srtA);
    summB:=summB+B[i];
    srtB:=summB/3;
    write ('     ',srtB);
    summC:=summA+C[i];
    srtC:=summC/3;
    write ('     ',srtC);
    summD:=summD+D[i];
    srtD:=summD/3;
    write ('     ',srtD);
 
end.



0

capricornus CF

318 / 208 / 162

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

Сообщений: 863

27.04.2016, 22:35

4

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal 
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

program Hw;
 
const
  m = 3;
 
var
  A, B, C, D: array[1..3] of integer;
  S, W, O, R, i: integer;   
  summA, summB, summC, summD, srtA, srtB, srtC, srtD: real;
 
begin
  for i := 1 to m do 
  begin
    S := random(12);
    W := random(57);
    while W = S do W := random(57);
    O := random(14);
    while O = S or W do O := random(14);
    R := random(10);
    while R = S or W or O do R := random(10);
    
    A[i] := S;
    write(A[i]:4, '   ');
    B[i] := W;
    write(B[i]:4, '   ');
    C[i] := O;
    write(C[i]:4, '   ');
    D[i] := R;
    writeln(D[i]:4, '   ');    
  end;
  
  for i := 1 to m do
  begin
    summA := summA + A[i];
    summB := summB + B[i];
    summC := summC + C[i];
    summD := summD + D[i];
  end;
  
  srtA := summA / 3;
  write(' ', srtA);  
  srtB := summB / 3;
  write('     ', srtB);  
  srtC := summC / 3;
  write('     ', srtC);  
  srtD := summD / 3;
  write('     ', srtD);
  
end.



0
Источник

Сообщение компилятора об ошибках

Если
ошибка возникает при компиляции внутри
TP,
Турбо Паскаль активизирует окно
редактирования и помещает курсор на
место ошибки в исходной программе.

Если
ошибка возникает при использовании
командно-строчного компилятора, Турбо
Паскаль выдает сообщение об ошибке,
выводит на экран исходную строку
программы с ошибкой и ее номер; символ
^ в выдаваемой исходной строке указывает
местоположение ошибки. Ошибки
подразделяются на:

  • ошибки
    при компилировании программы;

  • ошибки
    на уровне DOS;

  • ошибки
    ввода-вывода.

Ошибки при компилировании

1
Out of memory (Выход за пределы памяти)

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

2
Identifier expected (Ожидается идентификатор)

В этом месте должен
находиться идентификатор.

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

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

4
Duplicate Identifier (Повторение идентификатора)

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

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

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

Ошибка в синтаксисе
константы вещественного типа.

7
Error In Integer constant (Ошибка
в
константе
целого
типа)

Ошибка
в синтаксисе константы целого типа
(Учтите, что после чисел, превышающих
диапазон представления целых чисел,
должны ставиться точка и нуль, например
12345678912.0.).

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

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

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

Компилятор допускает
не более 15 вложенных исходных файлов и
не более 4 включаемых файлов.

10
Unexpected end of file (Неожиданный
конец
файла)

Данное сообщение
может появиться по одной из следующих
причин:

В Вашей программе,
вероятнее всего, неодинаковое количество
операторов BEGIN и END.

Включаемый
файл заканчивается в середине раздела
операторов (Каждый раздел операторов
должен целиком помещаться в одном
файле).

В Вашем файле не
закрыты скобки комментария.

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

Максимальная длина
строки не может превышать 127 символов.

12
Type Identifier expected (Ожидается идентификатор
типа)

В определенном
месте не указан тип идентификатора.

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

В
файле CONFIG.SYS не установлен параметр
FILES = N, где N — представляет собой целое
число без знака. Установите в файле
CONFIG.SYS значение параметра FILES = N >= 30.

14
Invalid file name (Недопустимое имя файла)

Имя файла неверно
или указан несуществующий путь.

15
File not found (Файл
не
найден)

Файл
не найден ни в одном из каталогов,
предназначенных для хранения файлов
данного типа.

16
Disk full (Диск заполнен)

Удалите
с диска ненужные Вам файлы (например
файлы с расширением .ВАК или .ТМР) или
попробуйте сохранить текст программы
на другом диске, который имеет достаточный
объем свободной памяти.

17
Invalid compiler directive (Недопустимая директива
компилятора)

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

18
Too many files (Слишком много файлов)

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

19
Undefined type la pointer definition (Неопределенный
тип в описании указателя)

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

20
Variable Identifier expected (Ожидается идентификатор
переменной)

В указанном курсором
месте ожидается идентификатор переменной.

21
Error in type (Ошибка в определения типа)

Определение типа
не может начинаться с этого символа.

22
Structure too large (Слишком длинная структура)

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

23
Set base type of range (Количество элементов в
множестве превышает допустимое значение)

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

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

Тип
компонентов файла не может быть объектным
типом, файловым типом или любым другим
структурированным типом, содержащим
компоненты типа файла или объекта.

25Invalid
string length (Неверная длина строки)

Длина описываемой
строки должна находиться в пределах
от 1 до 255.

26
Type mismatch (Несоответствие типов)

Причины, вызвавшие
появление данного сообщения, могут быть
следующими:

Несовместимы типы
переменной и выражения в операторе
присваивания.

Несовместимые
типы фактического и формального
параметров в обращении к процедуре или
функции.

Тип выражения
несовместимый с типом индекса при
индексировании массива.

Несовместимые
типы операндов в выражении.

27
Invalid subrange base type (Неправильный базовый
тип для интервала)

28Lower
bound greater than upper bound (Нижний
граница
превышает
верхнюю)

При
описании интервального типа данных Вы
объявили нижнюю границу диапазона
больше верхней.

29
Ordinal type expected (Ожидается перечисляемый
тип)

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

30
Integer constant expected (Ожидается константа
целого типа)

31
Constant expected (Ожидается константа)

32
Integer or real constant expected (Ожидается константа
целого или вещественного типа)

33Pointer
type Identifier expected (Ожидается идентификатор
типа указатель)

Указанный курсором
идентификатор не является указателем.

34
Invalid function result type (Недопустимый тип
результата функция)

Правильными типами
результата функции являются все простые,
строковые и ссылочные типы.

35
Label Identifier expected (Ожидается идентификатор
метки)

Обнаружена ссылка
на метку, не описанную в разделе LABEL.

36
BEGIN expected (Ожидается оператор BEGIN)

37
END expected (Ожидается оператор END)

38
Integer expression expected (Ожидается выражение
целого типа)

39
Ordinal expression expected (Ожидается выражение
перечисляемого типа)

40
Boolean expression expected (Ожидается выражение
логического типа)

41
Operand types do not match operator (Несоответствие
типов
операнду)

Данная
операция не может применяться к операндам
этого типа. Такое сообщение будет
вызвано, например, при попытке выполнить
следующую операцию:’ 9′ DIV ‘G’ .

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

Данный
идентификатор не может участвовать в
выражении указанным образом.

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

43
Illegal assignment (Запрещенное присваивание)

Это сообщение
может появиться по следующим причинам:

  • файлам
    и нетипизированным переменным нельзя
    присваивать значения;

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

44
Field Identifier expected (Ожидается идентификатор
поля)

Данный идентификатор
не соответствует полю предшествующей
переменной типа RECORD или OBJECT.

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

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

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

Внешняя процедура
или функция не имеет соответствующего
определения PUBLIC в объектном файле.
Убедитесь, что вы указали все объектные
файлы в директивах {$L <имя ОВJ-файла>),
и проверьте написание идентификаторов
процедуры или функции в файле .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 на идентификатор, который не был
описан в тексте Паскаль-программы.

Идентификатор
обозначает абсолютную переменную.

Идентификатор
обозначает процедуру или функцию типа
INLINE.

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

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

54
OF expected (Ожидается
оператор
OF)

55
INTERFACE expected (Ожидается
оператор
INTERFACE)

56
Invalid relocatable reference (Недопустимая
перемещаемая
ссылка)

Появление этого
сообщения возможно по следующим причинам:

  • OBJ-файл
    содержит данные и перемещаемые ссылки
    в сегментах, отличных от CODE, например,
    при попытке описать инициализированные
    переменные в сегменте DATA.

  • ORJ-файл
    содержит ссылки с размерами в байтах
    на перемещаемые символы. Такая ошибка
    происходит в случае использования
    операторов HIGH и DOWN с перемещаемыми
    символами или, если Вы ссылаетесь в
    директивах DB на перемещаемые символы.

  • Операнд
    ссылается на перемещаемый символ,
    который не был определен в сегментах
    CODE или DATA.

  • Операнд
    ссылается на процедуру EXTRN или функцию
    EXTRN со смещением, например CALL SortProc+8.

Источник

Формулировка задачи:

Program1.pas(6) : Ожидался порядковый тип 

program name;
var
y,x,k : real;
begin
var a:=1.45;
for x:=1 to x<=1.8 do
if (a<=x) then
begin 
for k:=1 to k<10 do
y:=exp(k*ln(a))*exp(k*ln(x));
Inc(k);
end;
x:=x+0.1;
end.

Как решить такую проблему? Срочно нужно решить. Спасибо заранее)

Код к задаче: «Ошибка: Ожидался порядковый тип»

textual

const a=1.45;
var y,x : real;
    k:integer;
begin
x:=1;
while x<=1.8 do
 begin
  if a<=x then
   begin
    for k:=1 to 10 do
    y:=exp(k*ln(a))*exp(k*ln(x));
   end;
  x:=x+0.1;
 end;
end.

Полезно ли:

5   голосов , оценка 4.400 из 5

Источник

1) Fill in the right
preposition

37. Hey! Give me …
my skateboard!

38. Lilly gave … fencing two years ago because of a
bad injury.

   39. Mark gave his stamp collection … to
his younger brothers.

40. Please, go …telling your story.

41. Did you hear the story about the flying turtle? Listen …. it!

2)

.
Openthebrackets

1.     
Where’s
Jane?  She (take) a shower.

2.     
My lesson
(start) at 8.30 am.

3.     
Robotic
housemaids (help) us with the cleaning in the future.

4.     
The boy
(come) home from school an hour ago.

5.     
Computers
(talk) in 100 years’ time?

6.     
When my
mother came home, I (do) my homework.

7.     
When he
was a baby, he (like) to eat porridge.

8.     
The
children (not be) interested in reading science-fiction.

9.     
Tonight
my brother (move) to another flat.

10.  I am the type of person who never (give) up hope.

11.  Fiona (write) amazing stories when she was 25.

12.  Stephen (cope) well with every day stress when he was
young.

13.   I have enough
money. I (buy) a new CD.

14.  While I (read) an interesting article, my mother
(watch) a chat show.

15.  If I (not study) hard, I (fail) the exam.

Источник

строке перед х. Исправьте ошибку пожалуйста, я сам не могу понять, где она…….. program zadanie3; var x:real; begin x:=0; for x:=15 to 30 do begin x:=x+0.5; end; writeln(‘x=’,x); end.

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

Источник

Понравилась статья? Поделить с друзьями:

Не пропустите эти материалы по теме:

  • Яндекс еда ошибка привязки карты
  • Одна ошибка и ты ошибся кличко
  • Одна ошибка и снежный ком часть 3
  • Одна ошибка и снежный ком рассказ
  • Одна ошибка и снежный ком оригинал

    • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии