сервис вопросов и ответовСоставьте программу решения квадратного уравнения ax(Во второй степени) + bx + c = 0. Коэффициенты a,b,c введите с клавиатуры. Выведите на экран
5-9 класс|
|
значение корней x1,x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение "Нет корней" , если уравнение не имеет корней.
Составьте программу на уровне 8 класса.
бек01
09 июля 2016 г., 4:34:51 (7 лет назад)
Ilyahaertdinov
09 июля 2016 г., 5:35:56 (7 лет назад)
var
a, b, c: real;
begin
readln(a, b, c);
if (sqr(b) - 4 * a * c < 0) then
writeln('Нет решений')
else
if (sqr(b) - 4 * a * c = 0) then
writeln('x = ', (-1 * b) / (2 * a))
else
begin
writeln('x1 = ', (-1 * b + sqrt(sqr(b) - 4 * a * c)) / (2 * a));
writeln('x2 = ', (-1 * b - sqrt(sqr(b) - 4 * a * c)) / (2 * a));
end;
end.
Ответить
Другие вопросы из категории
генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с помощью которой напечатайте на одной строчке исходный
массив, а на следующей строке - сумму квадратов элементов с начетными индексами
Читайте также
1) составьте программу заполнения элементов массива [1..10 ] случайнымии целыми числами на отрезке [ 0;35 ] и вывода на экран нечетных элементов и
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
Запишите команду присваивания, в Запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение TRUE, если
выполняется указанное условия, и значение FALSE иначе: а) x-неотрицательное число б) среди чисел x, y, z хотя бы два равны между собой в) уравнение ax(во 2 степени)+bx+c=0 не имеет корней
Составьте программу на языке Паскаль для решения квадратного уравнения.Коэффициенты a,b и c вводятся с клавиатуры.На экране выводится информация о
значении корней квадратного уравнения.
Вы находитесь на странице вопроса "Составьте программу решения квадратного уравнения ax(Во второй степени) + bx + c = 0. Коэффициенты a,b,c введите с клавиатуры. Выведите на экран", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.