Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
1

Найти корни системы уравнений

31.05.2017, 15:58. Просмотров 656. Ответов 20
Метки нет (Все метки)

Помогите составить программу для решения задачи: найти корни системы уравнений x/y-y/x=3/2 и x2+y2=45. Диапазон и шаг изменения аргументов определить в виде переменных таким образом, чтобы получить адекватные заданных функций значения. Исследовать варианты получения решения в зависимости от выбран-ных значений изменения и шага аргумента. Подтвердить решение уравнения построением графика функции.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2017, 15:58
Ответы с готовыми решениями:

Найти корни система уравнений в Delphi
Очень прошу срочно составить программу для решения задачи: найти корни системы...

Найти решение системы нелинейных уравнений методами Якоби и Гаусса-Зейделя
\begin{cases}{x}^{2}*{y}^{2}-3*{x}^{3}-6*{y}^{3}+2*a=0 & \text{ } \\ ...

Найти решение системы уравнений для температуры газа и приборов, установленных в приборнов отсеке КА
Дали вот такую домашнюю работу. хотя мы не программисты.. кто может, помогите,...

Решение системы уравнений
Добрый день. Помогите пожалуйста написать решение системы. d1+d2=d3 ...

Решение системы уравнений
Сделать проэкт, который решает систему уравнений вида: a1x+b1y=c1 (первое...

20
Matan!
Delphi/Java/DB Dev + Math
447 / 311 / 118
Регистрация: 31.05.2013
Сообщений: 2,461
Записей в блоге: 5
Завершенные тесты: 2
31.05.2017, 16:40 2
Какое отношение имеют (х,у) к (х2,у2)?
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
31.05.2017, 18:03 3
x1=-6 y1=-3
x2=-3 y2=6
x3=3 y3=-6
x4=6 y4=3

Добавлено через 5 минут
Delphi
1
2
3
4
5
6
var x,y:integer;
begin
for x:=-7 to 7 do
for y:=-7 to 7 do
if (x*x+y*y=45)and(2*x*x-2*y*y=3*x*y)
then writeln('x=',x,' y=',y);
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
31.05.2017, 18:33 4
График такой.
0
Миниатюры
Найти корни системы уравнений  
Matan!
01.06.2017, 08:44
  #5

Не по теме:

Ай да дядя Puporev, ! И между строк прочитает и телепатией владеет:good: До меня вот не дошло, что там квадраты были..

0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 09:45 6
Я вот не понимаю зачем все это? Задача же решается чисто арифметически.
Цитата Сообщение от FGSS25 Посмотреть сообщение
Диапазон и шаг изменения аргументов определить в виде переменных таким образом, чтобы получить адекватные заданных функций значения. Исследовать варианты получения решения в зависимости от выбран-ных значений изменения и шага аргумента.
x/y-y/x=3/2
отсюда
1.x/y=2 y/x=1/2
2.x/y=-1/2 y/x=-2
подставляем это в уравнение x^2+y^2=45
1. x=2*y
4*y^2+y^2=45
a)y=3 x=6
b)y=-3 x=-6
2. y=-2*x
x^2+4*x^2=45
a)x=3 y=-6
b)x=-3 y=6
График это окружность + 2 прямых y=0.5x и y=-2x
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 14:56  [ТС] 7
Можете код побольше расписать и как это делать.
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 14:58 8
Так это решение не соответствует Вашему заданию.
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 15:04  [ТС] 9
Данный код будет правильный?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var x1, x2, x3, y1, y2, y3,
  x, y, dx, dy, d: extended;
begin
x1:=strtofloat(Edit1.Text);
x2:=strtofloat(Edit2.Text);
x3:=strtofloat(Edit3.Text);
y1:=strtofloat(Edit4.Text);
y2:=strtofloat(Edit5.Text);
y3:=strtofloat(Edit6.Text);
d:=(x1*y2)-(x2*y2)-(x3*y3);
if d=0 then
 begin
  Label1.Caption:='Система уравнений не имеет решения';
  exit
 end;
dx:= x1/y1+y2/x2-10/3;
dy:= sqr(x1)-sqr(y1)-8;
x:=dx/d;
y:=dy/d;
Label1.Caption:='x = '+floattostrF(x,ffFixed,5,10);
Label2.Caption:='y = '+floattostrF(y,ffFixed,5,10);
end;
 
end.
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 15:08 10
Нет конечно, корни не вводить нужно, а вычислять.
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 15:12  [ТС] 11
Код который вы указали выше, не работает.
0
Matan!
Delphi/Java/DB Dev + Math
447 / 311 / 118
Регистрация: 31.05.2013
Сообщений: 2,461
Записей в блоге: 5
Завершенные тесты: 2
01.06.2017, 15:15 12
Цитата Сообщение от FGSS25 Посмотреть сообщение
d:=(x1*y2)-(x2*y2)-(x3*y3);
Что это за формула?

Добавлено через 2 минуты
Цитата Сообщение от FGSS25 Посмотреть сообщение
Код который вы указали выше, не работает.
Всё работает. Если ты конечно не в консоль всё запихнул..
Там на форме должно быть шесть Edit`ов и два Label`а.
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 15:18  [ТС] 13
У меня на форме шесть Edit`ов и два Label`а, программа работает. Но это не правильное решение так как в моей задаче корни надо найти, а не ввести. Я не понимаю как это сделать.
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 15:21 14
Цитата Сообщение от FGSS25 Посмотреть сообщение
Код который вы указали выше, не работает.
Если написать руками то работает.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
Memo1.Clear;
i:=0;
for x:=-7 to 7 do
for y:=-7 to 7 do
if (x*x+y*y=45)and(2*x*x-2*y*y=3*x*y)then
 begin
  inc(i);
  Memo1.Lines.Add('x'+inttostr(i)+'='+inttostr(x)+'   y'+inttostr(i)+'='+inttostr(y));
 end;
end;
0
Matan!
Delphi/Java/DB Dev + Math
447 / 311 / 118
Регистрация: 31.05.2013
Сообщений: 2,461
Записей в блоге: 5
Завершенные тесты: 2
01.06.2017, 15:23 15
Тьху блин...
Сорри..
Ничего из этого не надо.. Можно просто одну кнопку два эдита, и всё...
Ну,и PaintBox , для графика.
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 15:24 16
Но это не совсем решение Вашей задачи, это решение уравнения x^2+y^2=45 в целых числах.
Второе уравнение никак не участвует. Короче задание через зад, в уме решить быстрее чем его понять.
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 15:26  [ТС] 17
Что нужно добавить на панель форм?
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 15:31 18
Цитата Сообщение от Matan! Посмотреть сообщение
просто одну кнопку два эдита, и всё.
Лучше кнопку и Мемо, как у меня выше.
0
FGSS25
0 / 0 / 0
Регистрация: 29.05.2017
Сообщений: 8
01.06.2017, 15:36  [ТС] 19
Программа прописывает, что Memo1 не объявлена переменная, но когда я её объявляю, выделяет точку и пишет Record. object or class type required. Что делать?
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
01.06.2017, 15:37 20
А башкой об стену не пробовал?
0
01.06.2017, 15:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2017, 15:37

Программа Решения Системы уравнений
procedure TForm1.Label1Click(Sender: TObject); begin close; end; procedure...

Решение системы линейных уравнений
Найти решение системы линейных уравнений вида А1*х+В1*у=С1, А2*х+В2*у=С2,...

Написание программы системы уравнений
система: y=\begin{cases}{2x}^2-7x+3 & \text{, } x<4 \\\\ \left & \text{, }...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru