Определить знак следующих выражений: sin5П/6* cos5П/7*tg5П/8* ctg 5П/9; sin4П/7*cos(-4П/9)*ctg(-4П/11)

code: #pascal
program gd;
 
function tg (x : real) : real;
begin
tg := sin(x)/cos(x);
end;
 
function ctg (x : real) : real;
begin
ctg := cos(x)/sin(x);
end;
 
var Pi:real;
    rez1,rez2:real;
begin
Pi:=3.1415926;
 
rez1:=(sin(5*Pi))/(6* cos(5*Pi))/(7*tg(5*Pi))/(8* (ctg((5*Pi)/9)) );
rez2:=((sin(4*Pi))/7)*(cos((-4*Pi)/9) )*(ctg((-4*Pi)/11) );
 
writeln('Rezult 1: ',rez1:2:12);
writeln('Rezult 2: ',rez2:2:12);
 
 
readln;
end.      
Поделиться:

Похожие статьи: