Написать алгоритм и программу квадратного уравнения
5-9 класс
|
var
a,kd,b,c,x2,x1,d:extended;
begin
read(a,b,c);
d:=-4*a*c;
if d>0 then
begin
kd:=sqrt(d);
x1:=(-b+kd)/2*a;
x2:=(-b-kd)/2*a;
end;
else
write('Нет корней');
If x1=x2 then write(x1) else write(x1,x2);
end.
var
a,kd,b,c,x2,x1,d:extended;
begin
read(a,b,c);
d:=-4*a*c;
if d>0 then
begin
kd:=sqrt(d);
x1:=(-b+kd)/2*a;
x2:=(-b-kd)/2*a;
end;
else
write('Нет корней');
If x1=x2 then write(x1) else write(x1,x2);
end
Другие вопросы из категории
что буква a кодируется как "DF". Расшифруйте закодированное слово "EEEFEOED"/
Латинский алфавит: abcdefghijklmnopqrstuvwxyz
завтра надо. Помогите пожалуйста, Зарание спасибо)
Читайте также
значении корней квадратного уравнения.
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни