Page 22 - 6370
P. 22
procedure TForm2.FormPaint(Sender:
TObject);
var
i,d,x,n:integer;
begin
n:=10;
x:=trunc(width/n);
d:=х;
for i := 1 to n do
begin
with canvas do
begin
moveto(x,0);
lineto(x,width);
x:=x+d;
end;
end;
end;
7. Здійснюють команду RUN і спостерігають за появою 9
вертикальних прямих ліній на вікні застосунку (рисунок
16). Їх є 9, а не 10. Це є наслідком застосування функції
trunc(width/n), яка відкидає дробову частину від
результату виконання оператора ділення width/n.
Рівномірність відстаней між лініями забезпечна за рахунок
постійного кроку d. Йому ж надане значення
x:=trunc(width/n) – відступу першої вертикалі від лівого
краю форми.
24
