Информатика | 5 - 9 классы
Составить программу в паскале для решения квадратного уравнения ax ^ 2 + bx + c = 0.
Номер 6?
Номер 6.
Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов( по программе Паскаль ) ПОМОГИТЕ ПОЖАЛУЙСТА !
Напишите пожалуйста программу, которая вычислит корни квадратного уравнения?
Напишите пожалуйста программу, которая вычислит корни квадратного уравнения.
А, b, c вводим с клавиатуры.
(на паскале).
Написать программу решения задания в паскале?
Написать программу решения задания в паскале.
Помогите пожалуйста с информатикой?
Помогите пожалуйста с информатикой!
Как находить корни квадратного уравнения в программе Паскаль!
Написать программу на паскале которая вычисляет дискриминант квадратного уравнения?
Написать программу на паскале которая вычисляет дискриминант квадратного уравнения.
Составить программу для решения квадратного уравнения в Паскале x ^ 2 + 2x - 6?
Составить программу для решения квадратного уравнения в Паскале x ^ 2 + 2x - 6.
По схеме составить программу в паскаль?
По схеме составить программу в паскаль.
Составить программу Как найти дискриминант квадратного уравнения?
Составить программу Как найти дискриминант квадратного уравнения.
Написать на Паскале программу для нахождения квадратного корня?
Написать на Паскале программу для нахождения квадратного корня.
Вы находитесь на странице вопроса Составить программу в паскале для решения квадратного уравнения ax ^ 2 + bx + c = 0? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var a, b, c, d : real ;
Begin write('Введите коэффициенты уравнения (a, b, c) : ') ; Readln(a, b, c) ; d : = sqr(b) - 4 * a * c ; if d> ; 0 then Begin write('X1 = ', (( - b) + sqrt(d)) / (2 * a), ' | ') ; write('X2 = ', (( - b) - sqrt(d)) / (2 * a)) ; end else if d = 0 then write('X = ', ( - b) / (2 * a)) else write('Корней нет') ;
End.