Ну, какбэ в голову приходит что то вроде этого
Код:
var
k,b: extended;
x,y,i: integer;
P: TPoint;
Pa: array of TPoint;
begin
k:= strtoint(Inputbox('Ввод k','','');
b:= strtoint(Inputbox('Ввод b','',''); // задаем значения постоянных
For i:= 0 // начальное значение откуда начнем считать
to 100 // конечное значение - до какого считать
Do
begin
x:= i; // можно при желании поменять, с какого значения начать
y:= k * x + b; // формула
P.x:= x;
P.y:= y;
SetLength(Pa,i + 1);
Pa[i]:= P;
end;
end;
На выходе получаем массив точек Pa, с которым уже может работать вышеприведенный код.