Разработка компонентов в DELPHI. Вощинская Г.Э. - 48 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

LineTo(II(X2),JJ(0));
MoveTo(II(0),JJ(Y1));
LineTo(II(0),JJ(Y2));
//ɤɪɢɜɚɹ ɥɢɧɢɹ ɝɪɚɮɢɤɚ y=F(x) ɪɢɫɭɟɬɫɹ ɤɚɤ
// ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɨɬɪɟɡɤɨɜ[x,F(x),x+h,F(x+h)]
x := X1;
MoveTo(II(x),JJ(F(x)));
for I := 1 to n do
begin
x := x+h;
LineTo(II(x),JJ(F(x)));
end;
end;
end;
{ɩɪɨɰɟɞɭɪɚ ɪɟɝɢɫɬɪɚɰɢɢ}
procedure Register;
begin
RegisterComponents('My', [TGr]);
end;
end.
48

Страницы