Составьте алгоритм решения квадратного уравнения в Паскале
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.
Другие вопросы из категории
else с:= b-a;
2) Чнму равна сумма элементов а{1} и а{4} массива, сформированного следующим образом.
for i:= 1 to 5 a{i} :=i*(i+1)
степень использовать нельзя
б)в одном операторе присваивания не более одной арифметической операции(сложение, умножение, вычитание)
в) должно быть не более пяти операторов присваивания.
Подсказка (x+2,5)x-1)x+1
'Почему калькулятор нельзя назвать алгоритмической машиной, а компьютер можно?'
Читайте также
значении корней квадратного уравнения.