Выяснить, имеет ли уравнение действительные корни - Pascal ABC
Формулировка задачи:
Дано действительное число h. Выяснить, имеет ли уравнение ax2 + bx + c = 0 действительные корни, если:
Решение задачи: «Выяснить, имеет ли уравнение действительные корни»
textual
Листинг программы
program pr; var a,b,c,h,x:real; begin writeln('Введите h'); readln(h); a:=sqrt(((abs(sin(8*h)))+17)/(1-sin(4*h)*cos(h*h+18)*(1-sin(4*h)*cos(h*h+18)) )); b:=1-sqrt(3/(3+abs(tan(a*h*h)-sin(a*h)))); c:=a*h*h*sin(b*h)+(b*h*h*h)*cos(a*h); if ((b*b)-(4*a*c)>=0 )then writeln('Корни есть') else writeln('Корней нет'); end.
Объяснение кода листинга программы
- В программе объявлены переменные a, b, c, h и x типа real.
- С помощью функции sqrt() вычисляется корень числа (abs(sin(8h)))/((1-sin(4h)cos(hh+18))).
- Затем вычисляется корень числа (1-sqrt(3/(3+abs(tan(ahh)-sin(a*h)))))).
- Вычисляется (ahhsin(bh)+(bhhh)cos(a*h)).
- Проверяется условие ((bb)-(4a*c)>=0 ).
- Если условие истинно, то выводится сообщение
Корни есть
. - Если условие ложно, то выводится сообщение
Корней нет
.