Page 16 - 6263

begin
self.x1:=x1; self.y1:=y1; self.x2:=x2; self.y2:=y2;
end;

function Line.getLen():real; // метод-функція повертає
довжину лінії
begin
getLen:=sqrt(sqr(x2-x1)+sqr(y2-y1)); {або Result:=}
end;

procedure Line.setLen(L:real); // метод-функція
установлює довжину лінії
var L0,dx0,dy0,dx,dy:real;
begin
L0:=getLen(); {або L0:=self.getLen();} // попередня
довжина
dx0:=x2-x1; dy0:=y2-y1; // попередні проекції лінії
dx:=dx0*L/L0; dy:=dy0*L/L0; // нові проекції
x2:=x1+dx; y2:=y1+dy; // нові координати точки 2
end;

//----------------------------------------------------
procedure testTypes; // приклади присвоювання змінним
значень різного типу
begin
i:=255; // ціле
k:=32767; // ціле
x:=13.5e-5; // дійсне
c:='A'; // символ
b:=true; // булеве (true або false)
b:=i<>10; // булеве
s2:='Hello'; // рядок
color1:=green; // типу color
ar3[0]:=5; // присвоїти першому елементу масиву ціле
16