Определить знак следующих выражений: sin5П/6* cos5П/7*tg5П/8* ctg 5П/9; sin4П/7*cos(-4П/9)*ctg(-4П/11)
Категория: Delphi/Pascal
2012-02-01 22:06:50
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.
Поделиться: