Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Составьте пожалуйста алгоритм решения квадратного уравнения в Паскале

5-9 класс

Kamilaur 23 сент. 2013 г., 23:25:25 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
котёночек14
24 сент. 2013 г., 0:42:26 (10 лет назад)

program alg;

var a, b, c, D, x1, x2 : real;

begin
  write('Введите a, b, c: ');
  readln(a, b, c);

  D := b * b - 4 * a * c;

  if (D >= 0) then begin
    if (D > 0) then begin
      x1 := (-b + sqrt(D)) / (2 * a);
      writeln(x1:0:2);
    end;
   
    x2 := (-b - sqrt(D)) / (2 * a);
    writeln(x2:0:2);
  end
  else
    writeln('Корней нет');
end.

Ответить

Другие вопросы из категории

1)

) При регистрации в компьютерной системе,
используемой при проведении командной олимпиады, каждому ученику выдается
уникальный идентификатор – целое число от 1 до 1000. Для хранения каждого
идентификатора используется одинаковое и минимально возможное количество бит.
Идентификатор команды состоит из последовательно записанных идентификаторов учеников
и 8 дополнительных бит. Для записи каждого идентификатора команды система
использует одинаковое и минимально возможное количество байт. Во всех командах
равное количество участников. Сколько участников в каждой команде, если для
хранения идентификаторов 20 команд-участниц потребовалось 180 байт?

Читайте также



Вы находитесь на странице вопроса "Составьте пожалуйста алгоритм решения квадратного уравнения в Паскале", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.