Program P3;
Var a,b,c,d,x1,x2:real;
Begin
a:=3;
b:=8;
c:=4;
d:=b*b-4*a*c;
if d>=0 then
begin
x1:=-b+(sqr(d)/(2*a));
x2:=-b-(sqr(d)/(2*a));
end
else
begin
x1:=0;
x2:=0;
end;
writeln(x1,x2);
end.
мне бы прокомментировать программу! ну всмысли добавить комментарии к каждому действию
Program P3; // Название программы
Var a,b,c,d,x1,x2:real; // переменные вещественного типа, т. е. дробные числа, т. е. числа с запятой
Begin // Начало программы
a:=3; // Переменной а присваивается значение 3, т. е. выделяется память под переменную а, в которую записывается число 3
b:=8; // то же самое, только переменная бэ
c:=4; // то же самое, только переменная це
d:=b*b-4*a*c; // переменной дэ присваивается выражение, т. е. совокупность переменных, т. е .бэ возводится в квадрат, а умножается на це и на 4, затем вычитается из бэ-квадрата последнее произведение, т. е. считаем дискриминант, а полученный результат записываем в переменную дэ
if d>=0 then // условный переход, т. е. если дэ больше или равно нуля, то
begin // начало выполнения условного перехода
x1:=-b+(sqr(d)/(2*a)); // переменной икс один присваивается выражение отношения суммы обратной величины коэффициента бэ и арифметического квадратного корня из дискриминанта дэ к удвоенному произведению переменной а
x2:=-b-(sqr(d)/(2*a)); // переменной икс два присваивается выражение отношения разности обратной величины коэффициента бэ и арифметического квадратного корня из дискриминанта дэ к удвоенному произведению переменной а
end // конец выполнения условного перехода
else // иначе, т. е. если условие, где дэ больше или равно нуля не выполняется, то есть дэ меньше нуля, то выполняем следующий переход
begin // начало выполнения условного перехода
x1:=0; // переменной икс один присваивается нуль
x2:=0; // переменной икс два присваивается нуль
end; // конец выполнения условного перехода
writeln(x1,x2); // вывести на экран икс один и икс два с переходом на следующую строку
end. // конец программы
Program P3; //название программы
Var a,b,c,d,x1,x2:real; //объявление переменных
Begin //начало
a:=3; //присваиваем переменной а значение 3
b:=8; //присваиваем переменной b значение 8
c:=4; //присваиваем переменной c значение 4
d:=b*b-4*a*c; //вычисляем значение по формуле и присваиваем результат переменной d
if d>=0 then //если d больше или равна 0 тогда
begin //начинаем делать действия
x1:=-b+(sqr(d)/(2*a)); //вычисляем первый корень квадратного уравнения и записываем в переменную x1
x2:=-b-(sqr(d)/(2*a)); //вычисляем второй корень квадратного уравнения и записываем в переменную x2
end //заканчиваем делать действия если d больше или равна 0
else //иначе, если d меньше нуля
begin //делаем действия
x1:=0; //присваиваем переменной x1 нуль
x2:=0; //присваиваем переменной x1 нуль
end; //конец действий при d меньше нуля
writeln(x1,x2); //выводим на экран значения переменных x1 и x2
end.//хэпи энд!
Программа вычисляет формулы корней квадратного уравнения 3x^2+8x+4=0
Сначала вводится коэфиценты
Считается дисскриминант
Если дискриминант равен или больше 0 то считает по формуле
Если отрицателен выводятся 0
Программа для расчета квадратичного уравнения. Что ты хочешь что бы объяснить тебе что значит каждое действие? пиши на почту объясню
⇢