profile
Опубликовано 4 года назад по предмету Информатика от muravleva1997

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

  1. Ответ
    Ответ дан HRAshton
    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.

    Вот так)) Удачи тебе)
Самые новые вопросы