Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.80
toxa08116
0 / 0 / 2
Регистрация: 09.11.2011
Сообщений: 57
#1

Использование сложных условий. Решить уравнение ах2 + bх + с = 0 - Turbo Pascal

29.06.2012, 07:51. Просмотров 1484. Ответов 2
Метки нет (Все метки)

помогите решить пжлста
1. Использование сложных условий.
Даны вещественные числа a, b, c (a≠0). Решить уравнение ах2 + bх + с = 0. В числе возможных вариантов учесть вариант равенства корней уравнения.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2012, 07:51
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Использование сложных условий. Решить уравнение ах2 + bх + с = 0 (Turbo Pascal):

Использование сложных условий. Выяснить, пройдет ли кирпич с ребрами а, b, с в прямоугольное отверстие со сторонами х и у
Даны вещественные положительные числа a, b, c, x, y. Выяснить, пройдет ли...

Использование условий для изменения элементов массива и вывода их на экран
6.3) Дан массив натуральных чисел. Напечатать все элементы массива, являющиеся...

Использование условий для изменения элементов массива и вывода их на экран
Дан массив целых чисел. Напечатать: все четные элементы;

Использование условий для изменения элементов массива и вывода их на экран. Напечатать все неотрицательные элементы
1. Дан массив. Напечатать все неотрицательные элементы;

Решить уравнение
Прошу оказать всевозможную поддержку и помощь)

Решить уравнение
Нужно решить уравнение ax² +bx + c=0 , gde a,b,c - любые действительные числа...

2
_ZmEy_
3 / 3 / 4
Регистрация: 05.08.2012
Сообщений: 30
14.08.2012, 12:09 #2
Лучший ответ Сообщение было отмечено toxa08116 как решение

Решение

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
program vychislitel_korney {программа решает квадратные уравнения};
var
a,b,c:integer;
x1,x2,d:real;
begin;
repeat
write ('Введите через пробел коэффициенты (q - выход) ');
readln (a,b,c);
d:=b*b-4*a*c;
if d<0 then
begin;
writeln ('Корней нет');
end
else
begin
x1:=(-b-sqrt(d))/2*a;
x2:=(-b+sqrt(d))/2*a;
if x1=x2 then
write ('Уравнение имеет один корень: ',x1)
else
write ('Корни уравнения: x1=',x1,' x2=',x2);
writeln;
end
until ord(a)=113;
end.
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
14.08.2012, 12:47 #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
program vychislitel_korney {программа решает квадратные уравнения};
uses crt;
var
a,b,c:integer;
x1,x2,d:real;
q:char;
begin
clrscr;
repeat
 repeat
  writeln ('Введите через пробел коэффициенты a,b,c, a<>0 (q - выход) ');
  readln (a,b,c);
 until a<>0;
d:=b*b-4*a*c;
if d<0 then writeln ('Действительных корней нет')
else if d=0 then
 begin
  x1:=-b/(2*a);
  writeln('Уравнение имеет один корень: ',x1:0:2)
 end
else
 begin
  x1:=(-b-sqrt(d))/(2*a);
  x2:=(-b+sqrt(d))/(2*a);
  writeln ('Корни уравнения: x1=',x1:0:2,' x2=',x2:0:2);
 end;
writeln('Закончить q, повторить любая клавиша');
readln(q);
until q='q';
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.08.2012, 12:47
Привет! Вот еще темы с решениями:

Решить уравнение
Привет...помогите пожалуйста,мне нужно уравнение перевести на язык Паскаль

Решить уравнение
Решить уравнение dx=c, где d-длина вектора А=(-2.4,3,5.2) а c-длина вектора...

Решить уравнение
Уравнение 9

Решить уравнение
Помогите решить пожалуйста. Не понимаю че с эти делать Заранее спасибо


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

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

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