Меню сайта

Задача №5

Вычислить выражение —tg2x+2tgx, используя вспомогательную функцию тангенса.


Program func5-

Uses crt-

Var x,y:real-

Function tg(a:real):real-

tg:=sin(a)/cos(a)-

Begin

ClrScr-

Writeln(‘введите x’)-

readln(x)-

y:=sqr(tg(x))+2*tg(x)-

Writeln(‘y=’,y:4:3)-

Readln-

End.

Категория: Подпрограммы | Дата: 30.12.12

Меню раздела
Блок