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

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

09.12.2009, 19:05. Просмотров 5702. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нахождение корней уравнения (Turbo Pascal):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

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

Определить количество целых корней уравнения
помогите составит программу, я вообще не пойму что делать, вроде что-то...


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

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

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