Question

Turbo Pascal
в прямоугольном треугольнике известны 2 катета, их значения вводятся  с клавиатуры.Вычеслить и вывести на экран  sin, cos, tg, ctg.
Пожалуйста, помогите составить программу.

Answer 1

var a, b, c: real;
begin
     readln(a, b);
     c := sqrt(sqr(a) + sqr(b));
     writeln('sin a = ', b / c);
     writeln('cos a = ', a / c);
     writeln('tg a = ', b / a);
     writeln('ctg a = ', a / b);
     writeln();
     writeln('sin b = ', a / c);
     writeln('cos b = ', b / c);
     writeln('tg b = ', a / b);
     writeln('ctg b = ', b / a);
end.

Вот так)) Удачи тебе)