Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/32: Рейтинг темы: голосов - 32, средняя оценка - 4.91
Dezar
0 / 0 / 0
Регистрация: 08.12.2009
Сообщений: 25
1

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

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

Дано: a, b, c. Если а≠0, выяснить, имеет ли уравнение ax2+bx+c=0 корни. Если да – найти их и напечатать с соответствующим комментарием (например, уравнение имеет только один корень …». В противном случае напечатать «уравнение не имеет корней». Если а=0, определить какое значение больше b или c и на сколько (возможно равенство).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2009, 19:05
Ответы с готовыми решениями:

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

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

Нахождение корней квадратного уравнения
Всем привет))) вроде легкая задача на нахождение корней в квадратном уравнении...

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

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

3
Helfer
ЙожЪ
63 / 59 / 17
Регистрация: 23.10.2009
Сообщений: 652
09.12.2009, 19:07 2
http://www.cyberforum.ru/pascal/thre...read56749.html
1
pikusfikus
173 / 170 / 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
Abirvalg
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2009, 19:12

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

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

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


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

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

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