Информатика | 5 - 9 классы
Написать программу в паскаль ABC для нахождения корней квадратного уравнерния y = ax ^ 2 + bx + c.
Написать программу в Паскаль ABCСоставить алгоритм нахождения меньшего из 2 - х значенийОпределить, является ли данное число чётным или нечётным?
Написать программу в Паскаль ABC
Составить алгоритм нахождения меньшего из 2 - х значений
Определить, является ли данное число чётным или нечётным.
Написать программу вычисления корней квадратного уравнения коэффициенты abc?
Написать программу вычисления корней квадратного уравнения коэффициенты abc.
Написать программу на паскаль для нахождения минимального элемента таблицы и увеличить его на 100?
Написать программу на паскаль для нахождения минимального элемента таблицы и увеличить его на 100.
Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде Pascal ABC?
Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде Pascal ABC.
NET с = √а2 + b2(а и b в квадрате ).
Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль)?
Написать программу для нахождения суммы первых пяти нечетных чисел (Паскаль).
Написать на Паскале программу для нахождения квадратного корня?
Написать на Паскале программу для нахождения квадратного корня.
Написать программу в ABC паскале с циклом?
Написать программу в ABC паскале с циклом.
Написать программу нахождение максимального и минимального значения массива?
Написать программу нахождение максимального и минимального значения массива.
Программу нужно сделать в Паскаль.
ПРОШУ ПОМОГИТЕ.
Написать программу о нахождение площади равнобедренного треугольника по формуле Герона?
Написать программу о нахождение площади равнобедренного треугольника по формуле Герона.
На Паскаль.
Написать программу в Pascal ABC?
Написать программу в Pascal ABC.
Вычисление квадратного корня.
Данные ввести с клавиатуры.
Вы перешли к вопросу Написать программу в паскаль ABC для нахождения корней квадратного уравнерния y = ax ^ 2 + bx + c?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Var d, a, b, c, x1, x2 : real ;
begin writeln('Введите a, b, c') ; readln(a, b, c) ; d : = b * b - 4 * a * c ; if d > ; 0 then begin x1 : = ( - b + sqrt(d)) / (2 * a) ; x2 : = ( - b - sqrt(d)) / (2 * a) ; writeln('x1 = ', x1 : 2 : 2) ; writeln('x2 = ', x2 : 2 : 2) ; end else if d = 0 then begin x1 : = - b / (2 * a) ; writeln('x = ', x1 : 2 : 2) ; end else writeln('Нет действительных корней') ;
end.