Interface
[<Ключи компиляции> ]
[uses <Список используемых устройств (модулей)>; ]
[<Разделы объявления глобальных переменных, констант, типов, классов>]
[<Раздел объявления заголовков глобальных процедур и функций>]
Implementation
[<Ключи компиляции> ]
[uses <Список используемых устройств (модулей)>; ]
[<Разделы объявления локальных переменных, констант, типов, классов >]
[<Раздел объявления локальных процедур и функций>]
[<Раздел исполнения>]
<Раздел исполнения> :: =
begin
<Операторы>
end
<Раздел объявления переменных> :: =
var // Признак начала раздела объявления переменных
<Список имён 1>: <Тип 1>;
<Список имён 2>: <Тип 2>;
. . .
Примеры.
var
I, J, K: integer;
x, y, z: double;
c: char;
s5: string[5];
s255: string; // Равноценно s255: string[255]
Замечание. В языке «C++» объявление переменных имеет вид:
<Тип 1> <Список имён 1>;
<Тип 2> <Список имён 2>;
. . .
Примеры.
int I, J, K;
double x, y, z;
char c;
Пример программы, обменивающей значениями две числовые переменные
(среда программирования – Delphi или Lasarus)
На форме (Form1) размещаются два текстовых поля (Edit1, Edit2) и две кнопки (Button1, Button2).
proocedure TForm1.Button1Click(Sender: TObject);
var
a, b: double;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
a := a – b; // a' =a – b
b := a + b; // b' = a' + b = a
a := b – a; // a'' = b' – a'= b
Edit1.Text := FloatToStr(a);
Edit2.Text := FloatToStr(b);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a, b, c: double;
ier: integer;
begin
val(Edit1.Text, a, ier);
if ier <> 0 then
begin
Application.MessageBox(‘Edit1’, ‘Ошибка’, MB_OK);
exit;
end;
val(Edit2.Text, b, ier);
if ier <> 0 then
Application.MessageBox(‘Edit2’, ’Ошибка’, MB_OK)
else
begin
c := a; a := b; b := c;
Edit1.Text := FloatToStr(a);
Edit2.Text := FloatToStr(b);
end;
end;
Button1:
Edit1: 1; Edit2: 7; Верно.
Edit1: 1e-20; Edit2: 7; Неверно.
Button2:
Всегда верно.