Друзья
Друзья


арезервированное слово End используется с:
- Begin - для создания составного оператора
- Case - для создания оператора варианта
- Record - при объявлении записи
- Object - при объявлении объекта
- Asm - для вызова встроенного ассемблера


Примеры: view source

print
?01 (* Begin *)
02 If First < Last Then
03 Begin
04 Temp:=First;
05 First:=Last;
06 Last:=Temp;
07 End;
08
09 (* Case *)
10 Case Ch Of
11 'A'..'Z', 'a'..'z' : WriteLn('Буква');
12 '0'..'9' : WriteLn('Цифра');
13 '+', '-', '*', '/' : WriteLn('Оператор');
14 Else WriteLn('Специальный символ');
15 End;
16
17 (* Record *)
18 Type Class = (Num, Dat, Str);
19 Date = Record
20 D, M, Y : Integer;
21 End;
22 Facts = Record
23 Name : String[10];
24 Case Kind : Class Of
25 Num : (N : Real);
26 Dat : (D : Date);
27 Str : (S : String);
28 End;
29
30 (* Object *)
31 Type LocationPtr = ^Location;
32 Location = Object
33 X, Y : Integer;
34 Procedure Init (PX, PY : Integer);
35 Function GetX : Integer;
36 Function GetY : Integer;
37 End;
38
39 (* Asm *)
40 Asm
41 mov ax, 01h
42 mov cx, 00h
43 int 10h
44 End;