Комплексные корни квадратного уравнения

@sda_dimon · Регистрация: 22.09.2010

Студворк — интернет-сервис помощи студентам

добрый день))кто може помочь))) помогите плз
я сделал прогу по квадратному уравнению но по настоящих числах)) а мне нада еще доделать ету прогу чтоб решала и комплексные числа)) плиз помогоите))) пожайлуста))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program discriminant;
var
a,b,c:integer;
D,x1,x2,x:real;
 
begin
write('Vvedit a = ');
readln (a);
write('Vvedit b = ');
readln (b);
write('Vvedit c = ');
readln (c);
 
d:= sqr(b)-(4*a*c);
if (d>0) and (a<>0) then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
 
if (D>0) and (a<>0) then begin
writeln('x1=',x1:8:4);
writeln('x2=',x2:8:4);
writeln('D=',d:8:4);
end;
 
if D<=0 then writeln('Rozvyazkiv nemae');
if (a=0) and (b=0)and (c<>0) then writeln('Pusta mnojina');
if ((a=0) and (b=0) and (c=0) ) then writeln('Bud yake x1 i x2');
 
if (a=0) and (b<>0) then begin
x:= -(c/b);
writeln('x= ',x:8:4);
end;
 
readln;
end.

@Puporev · 22.09.2010, 12:53

Сообщение от sda_dimon

чтоб решала и комплексные числа))

Имеется в виду комплексные коэффициенты или корни при отрицательном дискриминанте?

@sda_dimon · 22.09.2010, 13:16 **[ТС]**

Сообщение от Puporev

Имеется в виду комплексные коэффициенты или корни при отрицательном дискриминанте?

при отрицательном дискриминанте.
нада типа подпавить и чтоб прога решала не только действительные числа но и комплексные!

за ранее большое спасиба)

@Puporev · 22.09.2010, 13:44

Думаю так.

Pascal
1
2
3
4
5
6
if D<=0 then 
  begin
   writeln(' 2 komplexnyh kornya:');
   writeln('x1=',-b/(2*a):8:4,'+',sqrt(abs(d))/(2*a):8:4,'i');//вывод по факту подкорректируй
   writeln('x2=',-b/(2*a):8:4,'-',sqrt(abs(d))/(2*a):8:4,'i');
  end;

@sda_dimon · 22.09.2010, 13:59 **[ТС]**

Сообщение от Puporev

Думаю так.

Pascal
1
2
3
4
5
6
if D<=0 then 
  begin
   writeln(' 2 komplexnyh kornya:');
   writeln('x1=',-b/(2*a):8:4,'+',sqrt(abs(d))/(2*a):8:4,'i');//вывод по факту подкорректируй
   writeln('x2=',-b/(2*a):8:4,'-',sqrt(abs(d))/(2*a):8:4,'i');
  end;

а куда вставить??)

просто в меня друг что то похожее делал черз С++ у него формул кучя))

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
double Rea,Ima,Reb,Imb,Rec,Imc,Rek,Imk,Rel,Iml,Rem,Imm,Ren,Imn,
Red,Imd,Red1,Imd1,Red2,Imd2,Reo1,Imp1,Reo2,Imp2,Reo3,Imp3,Reo4,Imp4,Rex1,Rex2,Rex3,Rex4,
Imx1,Imx2,Imx3,Imx4,sgnImn,q1,q11,q2,q22,q3,q33,q4,q44,w1,w11,w2,w22,w3,w33,w4,w44;
 main()
 {
 
cout<<"Vvedit' Re a:"<<endl;
cin>>Rea;
cout<<"Vvedit' Im a:"<<endl;
cin>>Ima;
cout<<"Vvedit' Re b:"<<endl;
cin>>Reb;
cout<<"Vvedit' Im b:"<<endl;
cin>>Imb;
cout<<"Vvedit' Re c:"<<endl;
cin>>Rec;
cout<<"Vvedit' Im c:"<<endl;
cin>>Imc;
cout<<endl<<endl;
 
Rek=Reb*Reb-Imb*Imb;
Imk=2*Reb*Imb;
Rel=4*(Ima*Imc-Rea*Rec);
Iml=-4*(Rea*Imc+Rec*Ima);
Ren=Rek+Rel;
Imn=Imk+Iml;
 
if (Imn>=0)
{sgnImn=1;}
else
{sgnImn=-1;}
 
 
Red1= sqrt((sqrt(Ren*Ren+Imn*Imn)+Ren)/2);
 
Red2=-sqrt((sqrt(Ren*Ren+Imn*Imn)+Ren)/2);
 
 
Imd1=sgnImn*sqrt((sqrt(Ren*Ren+Imn*Imn)-Ren)/2);
 
Imd2=-sgnImn*sqrt((sqrt(Ren*Ren+Imn*Imn)-Ren)/2);
 
 
Reo1=Red1-Reb;
Imp1=Imd1-Imb;
Reo2=Red2-Reb;
Imp2=Imd2-Imb;
Reo3=-(Red1+Reb);
Imp3=-(Imd1+Imb);
Reo4=-(Red2+Reb);
Imp4=-(Imd2+Imb);
 
 
 
w1=Imp1*Rea/(2*(Rea*Rea+Ima*Ima));
w11=Reo1*Ima/(2*(Rea*Rea+Ima*Ima));
q1=Reo1*Rea/(2*(Rea*Rea+Ima*Ima));
q11=Imp1*Ima/(2*(Rea*Rea+Ima*Ima));
Rex1=q1+q2;
Imx1=w1-w2;
 
q2=Reo2*Rea/(2*(Rea*Rea+Ima*Ima));
q22=Imp2*Ima/(2*(Rea*Rea+Ima*Ima));
Rex2=q2-q22;
 
w2=Imp2*Rea/(2*(Rea*Rea+Ima*Ima));
w22=Reo2*Ima/(2*(Rea*Rea+Ima*Ima));
Imx2=w2-w22;
 
q3=Reo3*Rea/(2*(Rea*Rea+Ima*Ima));
q33=Imp3*Ima/(2*(Rea*Rea+Ima*Ima));
Rex3=q3+q33;
 
w3=Imp3*Rea/(2*(Rea*Rea+Ima*Ima));
w33=Reo3*Ima/(2*(Rea*Rea+Ima*Ima));
Imx3=w3-w33;
 
q4=Reo4*Rea/(2*(Rea*Rea+Ima*Ima));
q44=Imp4*Ima/(2*(Rea*Rea+Ima*Ima));
Rex4=q4-q44;
 
w4=Imp4*Rea/(2*(Rea*Rea+Ima*Ima));
w44=Reo4*Ima/(2*(Rea*Rea+Ima*Ima));
Imx4=w4-w44;
 
if(Imx1>0)
{cout<<"X1="<<Rex1<<"+"<<Imx1<<"*i"<<endl<<endl;}
else{cout<<"X1="<<Rex1<<Imx1<<"*i"<<endl<<endl;}
 
if(Imx2>0)
{cout<<"X2="<<Rex2<<"+"<<Imx2<<"*i"<<endl<<endl;}
else{cout<<"X2="<<Rex2<<Imx2<<"*i"<<endl<<endl;}
 
if(Imx3>0)
{cout<<"X3="<<Rex3<<"+"<<Imx3<<"*i"<<endl<<endl;}
else{cout<<"X3="<<Rex3<<Imx3<<"*i"<<endl<<endl;}
 
if(Imx4>0)
{cout<<"X4="<<Rex4<<"+"<<Imx4<<"*i"<<endl<<endl;}
else{cout<<"X4="<<Rex4<<Imx4<<"*i"<<endl<<endl;}
 
 
     
return 0;}

@Puporev · 22.09.2010, 14:15

Сообщение от sda_dimon

а куда вставить??)

Так типа туда, где это написано.
Вместо строки 26.

Pascal
1
if D<=0 then writeln('Rozvyazkiv nemae');

хотя тут тупо ошибка, <=0, разве при D=0 немаэ сала?

Добавлено через 3 минуты

Сообщение от sda_dimon

в меня друг что то похожее делал черз С++ у него формул кучя))

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

@sda_dimon · 22.09.2010, 17:10 **[ТС]**

Сообщение от Puporev

Так типа туда, где это написано.
Вместо строки 26.

Pascal
1
if D<=0 then writeln('Rozvyazkiv nemae');

хотя тут тупо ошибка, <=0, разве при D=0 немаэ сала?

Добавлено через 3 минуты

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

почему ты такой злой)
так ну да мне и нужно комплексными коэффициентами.

@Puporev · 22.09.2010, 17:26

Я спросил

Имеется в виду комплексные коэффициенты или корни при отрицательном дискриминанте?

Ты ответил

Сообщение от sda_dimon

при отрицательном дискриминанте.

Еще претензии есть?

@sda_dimon · 22.09.2010, 23:13 **[ТС]**

Сообщение от Puporev

Я спросил

Ты ответил

Еще претензии есть?

та при чем тут ето)) мне вобщето нада было чтобы комплексное считало число вдруг чего.
ну я так догадуюсь что когда дискриминант - то тоже должно считать.
поможы пожайлуста если можеш.плиз)

Добавлено через 5 часов 25 минут

Сообщение от sda_dimon

та при чем тут ето)) мне вобщето нада было чтобы комплексное считало число вдруг чего.
ну я так догадуюсь что когда дискриминант - то тоже должно считать.
поможы пожайлуста если можеш.плиз)

пожайлуста если можна сделать зделай плиз такое как я скинул в С++ токо в Паскале)))
там же ее токо подправить) пожайлуста

@Puporev · 30.09.2010, 12:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
var Rea,Ima,Reb,Imb,Rec,Imc,Rek,Imk,Rel,Iml,Rem,Imm,Ren,Imn,
    Red,Imd,Red1,Imd1,Red2,Imd2,Reo1,Imp1,Reo2,Imp2,Reo3,Imp3,Reo4,Imp4,Rex1,Rex2,Rex3,Rex4,
    Imx1,Imx2,Imx3,Imx4,sgnImn,q1,q11,q2,q22,q3,q33,q4,q44,w1,w11,w2,w22,w3,w33,w4,w44:real;
begin
clrscr;
write('Vvedit Re a:');readln(Rea);
write('Vvedit Im a');readln(Ima);
write('Vvedit Re b:');readln(Reb);
write('Vvedit Im b');readln(Imb);
write('Vvedit Re c:');readln(Rec);
write('Vvedit Im c');readln(Imc);
Rek:=Reb*Reb-Imb*Imb;
Imk:=2*Reb*Imb;
Rel:=4*(Ima*Imc-Rea*Rec);
Iml:=-4*(Rea*Imc+Rec*Ima);
Ren:=Rek+Rel;
Imn:=Imk+Iml;
if Imn>=0 then sgnImn:=1
else sgnImn:=-1;
Red1:= sqrt((sqrt(Ren*Ren+Imn*Imn)+Ren)/2);
Red2:=-sqrt((sqrt(Ren*Ren+Imn*Imn)+Ren)/2);
Imd1:=sgnImn*sqrt((sqrt(Ren*Ren+Imn*Imn)-Ren)/2);
Imd2:=-sgnImn*sqrt((sqrt(Ren*Ren+Imn*Imn)-Ren)/2);
Reo1:=Red1-Reb;
Imp1:=Imd1-Imb;
Reo2:=Red2-Reb;
Imp2:=Imd2-Imb;
Reo3:=-(Red1+Reb);
Imp3:=-(Imd1+Imb);
Reo4:=-(Red2+Reb);
Imp4:=-(Imd2+Imb);
w1:=Imp1*Rea/(2*(Rea*Rea+Ima*Ima));
w11:=Reo1*Ima/(2*(Rea*Rea+Ima*Ima));
q1:=Reo1*Rea/(2*(Rea*Rea+Ima*Ima));
q11:=Imp1*Ima/(2*(Rea*Rea+Ima*Ima));
Rex1:=q1+q2;
Imx1:=w1-w2;
q2:=Reo2*Rea/(2*(Rea*Rea+Ima*Ima));
q22:=Imp2*Ima/(2*(Rea*Rea+Ima*Ima));
Rex2:=q2-q22;
w2:=Imp2*Rea/(2*(Rea*Rea+Ima*Ima));
w22:=Reo2*Ima/(2*(Rea*Rea+Ima*Ima));
Imx2:=w2-w22;
q3:=Reo3*Rea/(2*(Rea*Rea+Ima*Ima));
q33:=Imp3*Ima/(2*(Rea*Rea+Ima*Ima));
Rex3:=q3+q33;
w3:=Imp3*Rea/(2*(Rea*Rea+Ima*Ima));
w33:=Reo3*Ima/(2*(Rea*Rea+Ima*Ima));
Imx3:=w3-w33;
q4:=Reo4*Rea/(2*(Rea*Rea+Ima*Ima));
q44:=Imp4*Ima/(2*(Rea*Rea+Ima*Ima));
Rex4:=q4-q44;
w4:=Imp4*Rea/(2*(Rea*Rea+Ima*Ima));
w44:=Reo4*Ima/(2*(Rea*Rea+Ima*Ima));
Imx4:=w4-w44;
if Imx1>0 then writeln('X1= ',Rex1:0:2,' +',Imx1:0:2,'i')
else writeln('X1= ',Rex1:0:2,' ',Imx1:0:2,'i');
if Imx2>0 then writeln('X2= ',Rex2:0:2,' +',Imx2:0:2,'i')
else writeln('X2= ',Rex2:0:2,Imx2:0:2,'i');
if Imx3>0 then writeln('X3= ',Rex3:0:2,' +',Imx3:0:2,'i')
else writeln('X3= ',Rex3:0:2,Imx3:0:2,'i');
if Imx4>0 then writeln('X4= ',' ',Rex4:0:2,' +',Imx4:0:2,'i')
else writeln('X4= ',Rex4:0:2,' ',Imx4:0:2,'i');
readln
end.

@sda_dimon · 30.09.2010, 14:14 **[ТС]**

Puporev Спасиба большое.
извени еще раз за тупость((

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@sda_dimon 0 / 0 / 1 Регистрация: 22.09.2010 Сообщений: 24
	30.09.2010, 14:14 [ТС]
	Puporev Спасиба большое. извени еще раз за тупость(( 0