0 / 0 / 0
Регистрация: 08.12.2009
Сообщений: 25
1

Нахождение корней уравнения

09.12.2009, 19:05. Показов 6540. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано: a, b, c. Если а≠0, выяснить, имеет ли уравнение ax2+bx+c=0 корни. Если да – найти их и напечатать с соответствующим комментарием (например, уравнение имеет только один корень …». В противном случае напечатать «уравнение не имеет корней». Если а=0, определить какое значение больше b или c и на сколько (возможно равенство).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2009, 19:05
Ответы с готовыми решениями:

Нахождение корней уравнения
помогите пожалуйста написать программу. дана функция f(x)=lnx-0.5/х2 в интервале; (х должен...

Нахождение вещественных корней уравнения
Буду очень благодарен помощи. Составьте алгоритм нахождения вещественных корней уравнения...

Нахождение корней биквадратного уравнения
задано Биквадратное уровнение (ax)4+(bx)2+c=0 найти корни уровнения то что за дужками степени

Нахождение корней квадратного уравнения
Всем привет))) вроде легкая задача на нахождение корней в квадратном уравнении a{x}^{2}+bx+c=0......

3
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
09.12.2009, 19:07 2
https://www.cyberforum.ru/pasc... 56749.html
1
175 / 172 / 40
Регистрация: 14.11.2009
Сообщений: 507
09.12.2009, 19:09 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program kvadratni_rivnyannya;
uses crt;
var
D:real;
a,b,c:real;
x1,x2:real;
stop:boolean;
begin
repeat
stop:=false;
writeln('Введіть перший коефіцієнт (a)');
readln(a);
writeln('Введіть другий коефіцієнт (b)');
readln(b);
writeln('Введіть вільний член(c)');
readln(c);
D:=sqr(b)-4*a*c;
if D<0 then
writeln('В множині дійсних чисел немає розвязку');
if D<0 then
stop:=true;
if D<0 then
writeln('Дискримінант=',D:2:1)
else
writeln('Дискримінант=',D:2:1);
if d=0 then
writeln('Рівняння буде мати один корінь','=',x1:3:1);
if d=0 then
x1:=(-b-sqrt(D))/(2*(a));
if d>0 then
x1:=(-b-sqrt(D))/(2*(a));
if d>0 then
writeln('Перший корінь =',x1:3:2);
if d>0 then
x2:=(-b+sqrt(D))/(2*(a));
if d>0 then
writeln('Другий корінь =',x2:3:2);
writeln(' ');
until stop
end.
1
1 / 1 / 1
Регистрация: 28.10.2009
Сообщений: 14
09.12.2009, 19:12 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var a,b,c,x1,x2:real;
begin
clrscr;
write('enter a,b,c=');
readln(a,b,c);
d:=b*b-4*a*c;
if(d>0) then
begin
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
writeln('Уравнение имеет 2 корня');
writeln(x1,x2);
end;
if(d=0) then
begin
x1=-b/(2*a)
writeln('Уравнение имеет 1 корень');
writeln(x1);
end;
if(d<0) then write('корней нет');
if(a=0) then 
f:=b-c;
if(f>0) then write(b, 'больше', c, 'на', f);
if(f<0) then write(c, 'больше', b, 'на', f);
if(f=0) then write(b,' =', c);
ну примерно так :О
1
09.12.2009, 19:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2009, 19:12
Помогаю со студенческими работами здесь

Нахождение корней уравнения методом касательных
Добрый вечер! Помогите мне найти вот эти алгоритмы с ихнем описаниям (может есть какой-то сборник с...

Нахождение корней уравнений
Найти корень уравнения: X-3cos2 X используя метод Ньютона-Рафсона (метод касательных)

Вычисление корней квадратного уравнения
Ну то есть, вот например есть программа, которая вычисляет корни квадратного уравнения: Program...

Программа нахождения корней уравнения
Разработать программу нахождения корней уравнения f(x)=0 на интервале с точностью e=0.001(интервал...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru