Найти количество корней квадратного ур-я и вывести их на экран

@Marrakech · Регистрация: 02.10.2012

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

Помогите, пожайлуйста! Нужно очень срочно решить!

@ermolay · 02.10.2012, 10:06

Pascal

var
  a,b,c: real;
  x1,x2: real;
begin
  write('Введите коэффициенты a, b, c: ');
  readln(a,b,c);
  if (a=0)or(b*b<4*a*c) then
    writeln('Нет рационального решения.')
      else if b*b=4*a*c then
        writeln('Корень один, и = ',-b/2/a)
          else begin
            writeln('Корней два:');
            writeln('X1 = ',(-b+sqrt(b*b-4*a*c))/2/a);
            writeln('X2 = ',(-b-sqrt(b*b-4*a*c))/2/a);
          end;
  readln;
end.

@Marrakech 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 12
		1
	Найти количество корней квадратного ур-я и вывести их на экран 02.10.2012, 09:25. Показов 2725. Ответов 1 Метки нет (Все метки) Помогите, пожайлуйста! Нужно очень срочно решить! 0

	02.10.2012, 10:06

Опции темы

Найти количество корней квадратного ур-я и вывести их на экран

Решение