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

@Todzy · Регистрация: 30.01.2011

Author24 — интернет-сервис помощи студентам

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

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

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

a = 4; b = 10; c = 6

спасибо огромное

@Puporev · 30.01.2011, 08:54

Pascal

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.

@Todzy 0 / 0 / 0 Регистрация: 30.01.2011 Сообщений: 16
		1
	Квадратное уравнение 30.01.2011, 02:32. Показов 1260. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу, буду оч благодарен: Написать программу для решения квадратного уравнения. Программа должна выполнять проверку введенных данных и, в случае, когда коэффициент при х^2 будет равным 0, выводить сообщение об ошибке и предоставлять возможность ввести значение заново. Результат работы программы вывести с точностью до 2 знаков после запятой. Входные данные. a = 4; b = 10; c = 6 спасибо огромное 0

	30.01.2011, 08:54

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

Решение