Выяснить, имеет ли уравнение действительные корни - 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.

Объяснение кода листинга программы

  1. В программе объявлены переменные a, b, c, h и x типа real.
  2. С помощью функции sqrt() вычисляется корень числа (abs(sin(8h)))/((1-sin(4h)cos(hh+18))).
  3. Затем вычисляется корень числа (1-sqrt(3/(3+abs(tan(ahh)-sin(a*h)))))).
  4. Вычисляется (ahhsin(bh)+(bhhh)cos(a*h)).
  5. Проверяется условие ((bb)-(4a*c)>=0 ).
  6. Если условие истинно, то выводится сообщение Корни есть.
  7. Если условие ложно, то выводится сообщение Корней нет.

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы