Page 14 - 6263

ДОДАТОК А. ПРИКЛАД З ОСНОВНИМИ ЕЛЕМЕНТАМИ
МОВИ DELPHI

program Project1; // заголовок програми
// Для детальної довідки див. delphibasics.ru

{$APPTYPE CONSOLE} // директива компілятора
uses // приєднання модулів
SysUtils, Math;

label // оголошення міток
label1; // мітка (використання оператора goto не
рекомендується)

type // опис типів
color=(blue, green, yellow, orange, red); //
перерахований тип
month=1..12; // діапазонний тип
Persona=record // тип-запис
name:string[20]; // поле рядкового типу
year:1900..2100; // поле діапазонного типу
address:string[20]; // поле рядкового типу
end;
Line=class // тип-клас
x1,y1:real; // поля класу
x2,y2:real; // поля класу
constructor Create(x1,y1,x2,y2: real); // конструктор
класу
function getLen():real; // метод класу
procedure setLen(L:real); // метод класу
property len:real read getLen write setLen; //
властивість класу
end;

14