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

Квадратное уравнение

30.01.2011, 02:32. Просмотров 606. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачу, буду оч благодарен:

Написать программу для решения квадратного уравнения. Программа должна выполнять проверку введенных данных и, в случае, когда коэффициент при х^2 будет равным 0, выводить сообщение об ошибке и предоставлять возможность ввести значение заново. Результат работы программы вывести с точностью до 2 знаков после запятой.

Входные данные.


a = 4; b = 10; c = 6

спасибо огромное
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2011, 02:32
Ответы с готовыми решениями:

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

Квадратное уравнение
Квадратное уравнение задаётся тремя своими коэффициентами(вводятся из файла)....

Квадратное уравнение
:help:Помогите пожалуста - составил програму для решения квадратного уравниея ...

Квадратное уравнение
Решить уравнение A*X*X+B*X+C=0 (A,B,C - заданные коэффициенты) в области...

Решить квадратное уравнение
срочно нужно! помогите!!! нужно разрешить вот такое уровнение с помощью...

1
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
30.01.2011, 08:54 #2
Лучший ответ Сообщение было отмечено Todzy как решение

Решение

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
program KV_UR;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
repeat
write('a=');readln(a);
if a=0 then writeln('Это не квадратное уравнение, повторите ввод');
until a<>0;
write('b=');readln(b);
write('c=');readln(c);
d:=b*b-4*a*c;
if d<0 then writeln('Действительных корней нет!')
else if d=0 then
   begin
    x1:=-b/(2*a);
    writeln('x1=x2=',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;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 08:54

Решить квадратное уравнение
Здраствуйте формучане, прошу прощения, но мне нужна ваша помощь, задача в...

Решить квадратное уравнение
Доброго времени суток, было задание, решить эту задачу по физике и...

Квадратное уравнение. Модуль.
Вообщем ребят, есть исходник квадратного уравнения, из него нужно каким то...


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

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

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