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

Leave a Comment