Напишите на языке паскаль
5-9 класс
|
a) ax2+bx+c;
a * x * x + b * x + c или a * Exp(2 * Ln(x)) + b * x + c
var a, b, c, d, x1, x2: real; begin 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; x2 := (-b - sqrt(d)) / 2 * a; writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2) end else begin x1 := -(b / 2 * a); writeln('x = ', x1:4:2) end end else begin writeln('No real solutions!'); end end.
Другие вопросы из категории
Паскаль АВС на английском
кодирования равной 8 бит, а затем с использованием глубины кодирования 16 бит. Во сколько
раз различаются информационные объемы оцифрованного звука?
Вопрос
Имя , обозначающее множество объектов?
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Постараться использовать минимальное количество дополнительных переменных.