Язык:
Русский
English
End (зарезервированное слово)
Зарезервированное слово End используется с:
- Begin - для создания составного оператора
- Case - для создания оператора варианта
- Record - при объявлении записи
- Object - при объявлении объекта
- Asm - для вызова встроенного ассемблера
Примеры
(* Begin *)
If First < Last Then
Begin
Temp:=First;
First:=Last;
Last:=Temp;
End;
(* Case *)
Case Ch Of
'A'..'Z', 'a'..'z' : WriteLn('Буква');
'0'..'9' : WriteLn('Цифра');
'+', '-', '*', '/' : WriteLn('Оператор');
Else WriteLn('Специальный символ');
End;
(* Record *)
Type Class = (Num, Dat, Str);
Date = Record
D, M, Y : Integer;
End;
Facts = Record
Name : String[10];
Case Kind : Class Of
Num : (N : Real);
Dat : (D : Date);
Str : (S : String);
End;
(* Object *)
Type LocationPtr = ^Location;
Location = Object
X, Y : Integer;
Procedure Init (PX, PY : Integer);
Function GetX : Integer;
Function GetY : Integer;
End;
(* Asm *)
Asm
mov ax, 01h
mov cx, 00h
int 10h
End;