Begin
write (‘Введите три числа: ’);
readln (a, b,c);
If D<0 then writeln (‘Нет корней’)
else
If D=0 then writeln (‘Один
корень’)
else
writeln (‘Два
корня’)
;
End.
Задание: преобразуем программу для вычисления корней квадратного уравнения.
begin x1:=-b/(2-a);
=’,x1
end
begin X1:=(-b+sqrt(D))/(2*a); X2:=(-b-sqrt(D))/(2*a);
x1= ’,x1,’ и x2=’, x2);
end;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть