[Xcopy]

немогу понять как мне прировнять 2 уровнения так чтобы из них можно было выщитать X и Y (типо надо найти точки пересечения 2 прямых типо y=6x-7 и y=3-4x)
дык вот я как хочу то... прировняти правые части: 6x-7=3-4x
и из них высчитать х, а потом подставить этот х в одно из уровнений (не в ручную) и высчитать у!!!
я хотел сделать так 2 Edit в каждый вводиш правые части потом пишеш типо 1Едит:= 2Едиту; и потом просто написать Edit3.text:= и сюда x, и по аналогии действовать с у, но вот проблемма пишу x: integer и х в 1Едит:= 2Едиту вообще получается разные... короче кто непонял просто обьясните мне (на примере кода) как можно найти точку пересечения графиков типа y=6x-7 и y=3-4x???

[GeG]

а ты сам решы это уровнение и потом сам увидиш что куда подставлять (по конечной формуле)

[Drozh]

Для таких уравнений все просто. Их можно представить в виде y = a*x+b (y = 6*x + (-7)) и y = c*x+d (y = (-4)*x + 3) тогда все просто: кидаешь на форму 6 Эдитов и 1 Кнопку, в свойстве OnClick кнопки пишешь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>  a, b, c, d, X, Y: Double; <b>begin</b>  a := StrToFloat(Edit1.Text);  b := StrToFloat(Edit2.Text);  c := StrToFloat(Edit3.Text);  d := StrToFloat(Edit4.Text);    X := (d-b)/(a-c);  Y := a*X + b;    Edit5.Text := FloatToStr(X);  Edit6.Text := FloatToStr(Y); <b>end</b>;

[lmikle]

1. Аналитически
Точка пересечения является когда y в обеих уравнениях принимает одно и то же значение при одинаковом X. соответсвенно, точкой перечесения будет результат решения системы уравнений

Y = 6X-7
Y = 3-4X

2. Прогаммно (эвристически).
В цикле по X тупо подставляешь в найденое тобой равеноство.
Типа:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   X Integer; begin   For X:= StrToInt(Edit1.Text) To strToInt(Edit2.Text) Do    If (6*X-7) = (3 - 4*X) Then      Begin         ShowMessage('Пересечение найдено в точке X=' + IntToStr(X) + ', Y='+IntToStr(6*X-7));         Exit;      End;   SowMessage('В указанном интервале [ + Edit1.Text + '..' + Edit2.Text + '] пересечение не найдено'); end;

Edit1 и Edit2 - границы диапазона для поиска, воодятся пользователем. Предполагают ввод только целых чисел.

[Xcopy]

Drozh и lmikleспасибо вам большое!