[Жан]

Нам задали сделать программу на делфи для решения математических функций и + графики к ним помогите хоть с одним графиком разобратся y=kx+b ПЛИЗ!

[lmikle]

я бы просто написал некоторый код, который принимает на вход массив точек и строи график. Отрисовывпть можно с помощью компонента TPaintBox. Там можно и масштабирование сделать и много чего другого.
Код будет выглядеть примерно так:

Код:

procedure TForm1.DrawFunction(A : Array Of TPoint);
var
  I : Integer;
  P : TPoint;
begin
  P := A[Low(A)];
  Paintbox1.Canvas.MoveTo(P.x,P.y);
  For I := Low(A)+1 To High(A) Do
    Begin
       P := A[i];
       Paintbox1.Canvas.LineTo(P.x,P.y);
    End;
end;

Собственно, апроксимация прямыми. Самый простой способ. Ну и координаты не переворачиваются и не смещаются. Это чистая математика, так что там ничего интересного нет.

Можно еще добавить масштабирование и задание цвета... ну и по желанию все что угодно.

А вот расчет точек и упаковка их в массив - это отдельная задача.

[Жан]

Тогда объясните в моём коде написании программы я, что не правильно её начинаю

var k,b,real;
x, y,:integer;
k, b,:integer;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
(тут задаем цвет и толщену пера)
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.Pen.Width:=2;
(а это закраска цветом фона предедущего графика)
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.He ight)
(рисуем оси координат)

Ну, а дальше я застреваю знаю, что надо писать наверное в цикле for и математическую формулу нахождения x:=-b/k. И у меня не получается объявить, что y=0 первоначально и нахождения его, а если честно, то я запутался можете объяснить, где, что я не правильно начал.

[Страдалецъ]

Вы умудрились в 3 строках сделать 5 ошибок.
Описание переменных должно быть так:

Код:

 
var k,b: real;
x, y: integer;

В описании вы не должны переопределять переменные, если задали real, то заново их описывать уже как integer неправильно. В коде программы вы уже можете преобразовывать их с помощью функций, но тоже по правилам совместимости типов иначе могут быть проблемы.

[Жан]

Действиельно там ошибка большое спасибо за разяснение насчет типов. А разъясните как саму формулу в ставить в прогу при этом с математическим решением таким y:=0, а k:=-b/k и нахождением x и y.

[Zander_driver]

Ну, какбэ в голову приходит что то вроде этого

Код:

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, с которым уже может работать вышеприведенный код.