![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Нам задали сделать программу на делфи для решения математических функций и + графики к ним помогите хоть с одним графиком разобратся y=kx+b
![]() |
#2
|
|||
|
|||
![]() я бы просто написал некоторый код, который принимает на вход массив точек и строи график. Отрисовывпть можно с помощью компонента 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; Можно еще добавить масштабирование и задание цвета... ну и по желанию все что угодно. А вот расчет точек и упаковка их в массив - это отдельная задача. |
#3
|
||||
|
||||
![]() Тогда объясните в моём коде написании программы я, что не правильно её начинаю
Цитата:
![]() |
#4
|
||||
|
||||
![]() Вы умудрились в 3 строках сделать 5 ошибок.
Описание переменных должно быть так: Код:
var k,b: real; x, y: integer; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
![]() Действиельно там ошибка большое спасибо за разяснение насчет типов. А разъясните как саму формулу в ставить в прогу при этом с математическим решением таким y:=0, а k:=-b/k и нахождением x и y.
|
#6
|
||||
|
||||
![]() Ну, какбэ в голову приходит что то вроде этого
Код:
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, с которым уже может работать вышеприведенный код. |