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

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

29.06.2012, 07:51. Просмотров 1514. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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
Модератор
54699 / 42113 / 29077
Регистрация: 18.05.2008
Сообщений: 99,389
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

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

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

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


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

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

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