{$CODEPAGE UTF8}
program QuadraticEquation;
var
a, b, c, x1, x2, discriminant : real;
begin
{ввыод данных}
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
{дискриминант}
discriminant := sqr(b) - 4 * a * c;
if discriminant < 0 then
writeln('Квадратное уравнение не имеет корней')
else
begin
if discriminant = 0 then
begin
{квадратное уравнение имеет два одинаковых корня}
x1 := -b / (2 * a);
x2 := x1;
end
else
begin
{уравнение имеет два разных корня}
x1 := (-b + sqrt(discriminant)) / (2 * a);
x2 := (-b - sqrt(discriminant)) / (2 * a);
end;
{вывод корней уравнения}
writeln('x1 = ', x1:8:3);
writeln('x2 = ', x2:8:3);
end;
writeln('Press Enter to Exit...');
readln;
end.
Объяснение:
Программа для решения квадратного уравнения на языке программирования Паскаль
В (Lazarus)(не реклама) Лутьше попробуй это вбить .Те создаст калькулятор и ты сможешь посчитать.
1
5
1
9
3
1
Объяснение:
Смотри картинку
Процедура F вызывается с параметром n = 9.
В ней находится вызов процедуры F с параметром n = 5.
Работа процедуры F с параметром n = 9 ещё не закончена, но продолжит своё выполнение только после завершения процедуры F с параметром n = 5.
В процедуре F с параметром n = 5 находится вызов процедуры F с параметром n = 1.
Работа процедуры F с параметром n = 5 ещё не закончена, но продолжит своё выполнение только после завершения процедуры F с параметром n = 1.
В процедуре F с параметром n = 1 мог бы находится вызов следующей процедуры F, но он не срабатывает, т.к. n должно быть больше 0.
Процедура F с параметром n = 1 выводит на печать значение n (n = 1).
В процедуре F с параметром n = 1 мог бы находится ещё один вызов следующей процедуры F, но он тоже не срабатывает, т.к. n должно быть больше 0.
Процедура F с параметром n = 1 завершается (больше нечего делать) и продолжает выполняться процедура F с параметром n = 5.
Процедура F с параметром n = 5 выводит на печать значение n (n = 5).
В процедуре F с параметром n = 5 находится ещё один вызов процедуры F с параметром n = 1.
Работа процедуры F с параметром n = 5 ещё не закончена, но продолжит своё выполнение только после завершения процедуры F с параметром n = 1.
В процедуре F с параметром n = 1 мог бы находится вызов следующей процедуры F, но он не срабатывает, т.к. n должно быть больше 0.
Процедура F с параметром n = 1 выводит на печать значение n (n = 1).
В процедуре F с параметром n = 1 мог бы находится ещё один вызов следующей процедуры F, но он тоже не срабатывает, т.к. n должно быть больше 0.
Процедура F с параметром n = 1 завершается (больше нечего делать) и продолжает выполняться процедура F с параметром n = 5.
Процедура F с параметром n = 5 завершается (больше нечего делать) и продолжает выполняться процедура F с параметром n = 9.
Процедура F с параметром n = 9 выводит на печать значение n (n = 9).
В процедуре F с параметром n = 9 находится ещё один вызов процедуры F с параметром n = 3.
Работа процедуры F с параметром n = 9 ещё не закончена, но продолжит своё выполнение только после завершения процедуры F с параметром n = 3.
И т.д.
div - целочисленное деление
2 div 2 = 1 целое и 0 остаток
3 div 2 = 1 целое и 1 остаток
берём целое
