Паскаль ошибка ожидался идентификатор

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

Если
ошибка возникает при компиляции внутри
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.

Источник

ilyashis

2 / 0 / 0

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

Сообщений: 137

1

Ошибка: ожидался идентификатор

13.12.2011, 20:11. Показов 45582. Ответов 16

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

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

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

var
  a:array of array of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
   SetLength(a,n,n);
   x:=n;
 
   for i:=0 to n-1 do
    begin
      for j:=0 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i-1;
    end;
   for i:=0 to n-1 do
   begin
     for j:=0 to n-1 do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
Readln;
end.



0

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

 13.12.2011, 20:11

Ответы с готовыми решениями:

Ошибка:Ожидался идентификатор
type
PTClient = ^TClient;
TClient = object;

constructor create(value: integer);
…

Ошибка «ожидался идентификатор»
Шифр состоит из двух частей: зашифрованного сообщения и ключа к нему. Зашифрованное сообщение и…

Встречено ‘for’, а ожидался идентификатор
Помогите пожалуйста найти и исправить ошибки в приведенном коде. Написанный от руки код мне дали,…

Ожидался идентификатор, но C не обнаружено
Program M;
Type
product=(milk,sugar,tea,salt,butter,eggs,marmalade,bacon);
mnprod=set of…

16

Steacher

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:16

2

a:array of array of Integer;

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

Pascal 
1

a:array[1..100,1..100] of integer;

а ваша запись является неверной, также неверна запись

Pascal 
1
2
3

for i:=0 to n-1 do
    begin
      for j:=0 to n do

должно быть так, я думаю

Pascal 
1
2
3

for i:=1 to n-1 do
    begin
      for j:=1 to n do



1

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 20:20

 [ТС]

3

да
но появилась ошиька — неверное количество фактических параметров (вот здесь) — SetLength(a,n,n);



0

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:23

4

попробуйте удалить эту строчку



0

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 20:25

 [ТС]

5

»*Ошибка: 0 — выход за границы диапазона изменения индекса 1..1000 (p.pas, строка 27)



0

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

13.12.2011, 20:27

6

Steacher, отсчет элементов массива может быть и от 0, и даже от отрицательного числа, главное, чтобы индексы были целыми, хотя, конечно, традиционным считается отсчет от 1

Добавлено через 1 минуту
ilyashis, было бы легче, если бы выложили задание…



0

Steacher

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:31

7
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

var
  a:array[1..100,1..100] of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
 
   x:=n;
 
   for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i-1;
    end;
   for i:=1 to n do
   begin
     for j:=1 to n do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
end.

вам вот так нужно?

Добавлено через 1 минуту
КонецСвета, не знал, т.е если я буду задавать массив a:array[-10..10] of integer; он будет работать?



0

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 20:34

 [ТС]

8

сформировать квадратную матрицу n по заданному образцу

Изображения

 



0

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:35

9

добавил решение в последнее сообщение.



0

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

13.12.2011, 20:35

10

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

КонецСвета, не знал, т.е если я буду задавать массив a:array[-10..10] of integer; он будет работать?

легко, это одно из типичных заданий, но не здесь, еще встретишь…



0

Steacher

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:35

11

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

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

var
  a:array[1..100,1..100] of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
 
   x:=n;
 
   for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i;
    end;
   for i:=1 to n do
   begin
     for j:=1 to n do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
end.



0

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 20:42

 [ТС]

12

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

ну тогда решение, 2 сообщениями выше.

там же с 0 начинается

Добавлено через 3 минуты
С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов).
Имя файла должно иметь расширение DAT.
Написать программу, которая:
1)выводит текст на экран дисплея;
2)определяет количество предложений текста и количество слов в каждом предложении;
3)по нажатию произвольной клавиши поочередно выделяет предложение текста, а в выделенном предложении — поочередно все слова.

Добавлено через 19 секунд
помогите вот с этим



0

КонецСвета

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

13.12.2011, 20:42

13

ilyashis, разреши предложить тебе другое решение первой задачи (а вот со второй не помогу…)

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

uses crt;
var a: array [1..100,1..100] of integer;
   n,i,j: integer;
begin
write('n=');
readln(n);
a[1,1]:=n;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=j then a[i,j]:=n else
           if (i>1) and (i>j) then a[i,j]:=a[i-1,j]-1 else
              a[i,j]:=0;
        write(a[i,j]:3);
        end;
    writeln;
    end;
end.



1

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 20:44

 [ТС]

14

спасибо
почему со второй не поможешь?



0

КонецСвета

13.12.2011, 20:48

Не по теме:

файлы, как и прочая «высшая математика» пока за пределами моей компетенции…



0

Steacher

13 / 13 / 13

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

Сообщений: 35

13.12.2011, 20:51

16

Имя файла должно иметь расширение DAT.
Написать программу, которая:
1)выводит текст на экран дисплея;
2)определяет количество предложений текста и количество слов в каждом предложении;
3)по нажатию произвольной клавиши поочередно выделяет предложение текста, а в выделенном предложении — поочередно все слова.

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

uses crt;
var f1:text; S:string;  i,c:integer;
begin
assign(f1,'D:Documents and SettingsAdminРабочий столТекстовый документ (2).txt'); // тут свой пусть к файлу
reset(f1);
readln(f1,s);
writeln(s);
writeln;
for i:=1 to length(s) do
  if s[i]='.' then c:=c+1;
close(f1);
write('В тексте ',c,' предложений');
 
end.

последний пункт что то не получается сделать.



0

2 / 0 / 0

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

Сообщений: 137

13.12.2011, 21:03

 [ТС]

17

спасибо

Добавлено через 4 минуты
было б круто если 3-й пункт была



0
Источник

Начало. Возможные ошибки

Все используемые переменные должны быть предварительно описаны с помощью ключевого слова var (внутри блока begin/end или, что обычно хуже, в разделе описаний вначале программы).

Отсутствующая ;

Очень частая ошибка у начинающих. Курсор, как правило, позиционируется в начале следующей строки.

Несовместимость типов при присваивании

Безболезненно можно присваивать только данные одного типа. Если данные — разных типов, то в редких случаях можно преобразовать данные одного типа в данные другого. Например, целое можно преобразовать в вещественное, а символ — в строку. Обратные преобразования не допускаются.

Чтобы не ошибаться в подобных простых случаях в Паскале есть следующая краткая форма объявления и инициализации переменной:

Отсутствие закрывающего апострофа литеральной строки

Закрыть апостроф надо на той же строке, где расположен открывающий апостроф

Ошибки расстановки запятых и апострофов при выводе строк и выражений

Слишком много запятых и апострофов рядом, потому начинающие часто путаются  :) Надо уяснить правила:

  • запятые разделяют разные элементы вывода
  • все, что находится в апострофах, будет выведено на экран без изменений

Ошибка ввода

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

Аналогичный фрагмент в более современном и предпочтительном синтаксисе:

Ошибка неинициализированной переменной

Перед использованием любую переменную надо ввести или присвоить ей начальное значение. Это действие называется инициализацией переменной.

Деление на 0

Если во время выполнения программа выполнит деление на 0, то она завершится с ошибкой.

Ожидается идентификатор

Оператор в качестве своего операнда требует идентификатор какого-либо элемента (класса, интерфейса, переменной и т.п.).

Способ устранения

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

Пример

При компиляции указанного кода на строке «i := Integer.;» будет сгенерирована ошибка «Ожидается идентификатор». Для разрешения ошибки необходимо дописать допустимый идентификатор метода, например «Parse».

Что значит ожидался идентификатор в паскале

Регистрация на форуме тут, о проблемах пишите сюда — alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите восстановить пароль

Поиск по форуму
Расширенный поиск

Страница 1 из 3 1 2 3 Следующая >
psycho-coder
Посмотреть профиль
Найти ещё сообщения от psycho-coder

ЛЮДИ решите, плиз, а то я не совсем это понимаю

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

Жека-старший
Посмотреть профиль
Найти ещё сообщения от Жека-старший

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

Жека-старший
Посмотреть профиль
Найти ещё сообщения от Жека-старший

ещё 2
200. Даны целые числа a, n, x1. xn (n>0). Определить, каким
по счету идет в последовательности x1. xn член равный а. Если
такого члена нет, то ответом должно быть число 0.

201а. Даны натуральное число n, действительные числа а1. аn.
Получить max(a1. an).

Источник
uses
  sysutils; 
var
  code, key : string;
  n : byte;
procedure Init;
var
  fin : text; tmp : string;
  y:integer;
begin
  Assign(fin, 'input3.txt'); reset(fin);
  readln(fin, n);
  for y := 1 to n do
    begin
      readln(fin, tmp);
      code := code + tmp;
    end;
  for y := 1 to n do
    begin
      readln(fin, tmp);
      key := key + tmp;
    end;
  close(fin);
end;
 
procedure Solve;
var
  res: string; fout: text;
  i:integer;
begin
  Setlength(res, n*n);
  for i := 1 to n*n do
    begin
      if key[i] in ['0'..'9'] then
        res[StrToInt(key[i])+1] := code[i];
      if key[i] in ['A'..'Z'] then
        res[ord(key[i])-ord('A')+11] := code[i];
    end;
  assign(fout, 'otput3.txt');ReWrite(fout);
  writeln(fout, res); Close(fout);
end;
 
BEGIN
  Init;Solve;
END.

Источник

паскаль выдаёт ошибку «ожидался идентификатор»…

program
var x1,y1,x2,y2,x3,y3,a,b,c,p,h,m,s:real;
begin
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=(a+b+c)/2;
h:=2*sqrt(p*(p-a)*(p-b)*p-c))/2;
m:=sqrt(2*sqr(b)+2*sqr(c)-sqr(a))/2;
s:=sqrt(p*(p-a)*(p-d)*(p-c));
end.

  • ошибка
  • паскаль
Источник

Понравилась статья? Поделить с друзьями:
  • Паскаль ошибка ожидается оператор
  • Паскаль ошибка неожиданный символ
  • Паскаль ошибка неизвестное имя
  • Паскаль ошибка не является меткой
  • Паскаль ошибка времени выполнения файл не открыт