Составьте пожалуйста алгоритм решения квадратного уравнения в Паскале
5-9 класс
|
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 до 1000. Для хранения каждого
идентификатора используется одинаковое и минимально возможное количество бит.
Идентификатор команды состоит из последовательно записанных идентификаторов учеников
и 8 дополнительных бит. Для записи каждого идентификатора команды система
использует одинаковое и минимально возможное количество байт. Во всех командах
равное количество участников. Сколько участников в каждой команде, если для
хранения идентификаторов 20 команд-участниц потребовалось 180 байт?
встречаются в этом предложении хотя бы один раз.
Читайте также
значении корней квадратного уравнения.