Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Todzy
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 16
#1

Квадратное уравнение - Turbo Pascal

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

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

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

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


a = 4; b = 10; c = 6

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

Квадратное уравнение - Turbo Pascal
Квадратное уравнение задаётся тремя своими коэффициентами(вводятся из файла). Найти решения этого уравнения или сообщить, что уравнение не...

Квадратное уравнение - Turbo Pascal
:help:Помогите пожалуста - составил програму для решения квадратного уравниея A*X2+B*X+C=0. Єто уравниние существует квадратным только...

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

Решить квадратное уравнение - Turbo Pascal
как соединить квадратное уравнение вот это: var a, b, c: real; D: real; x1, x2: real; begin writeln ('введите коофициенты a, b,...

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

Решить квадратное уравнение - Turbo Pascal
срочно нужно! помогите!!! нужно разрешить вот такое уровнение с помощью паскаля: ax^2+bx+c=0!!

1
Puporev
Модератор
54037 / 41670 / 14750
Регистрация: 18.05.2008
Сообщений: 97,986
30.01.2011, 08:54 #2
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
Привет! Вот еще темы с ответами:

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

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

Квадратное уравнение на Мидлет паскаль - Turbo Pascal
Взялся за мидлет паскаль,он оказался непохожим на турбо паскаль, в интернете нормальных учебников нету токо первые уроки про delay drawText...

Проверить, имеет ли квадратное уравнение действительные корни - Turbo Pascal
составьте программу, определяющую, пройдет ли график функции у=5(х (в квадрате))-7х+2 через заданную точку с координатами(а,b). ...


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

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

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