protrig.PAS

{* Тригонометрические функции *}

Unit PROTRIG;
Interface
Implementation
Begin
 writeln('Стандартные табличные значения тригонометрических функций. ');
End.

Program pro;

Uses protrig.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  f : integer;
  y : integer;
  v : char;
Procedure pr1;
Begin
  textcolor(lightblue); {* Установить  цвет текста *}
  writeln('выберите угол');
  writeln ('1.30');
  writeln('2.45');
  writeln('3.60');
  writeln('4.90');
  writeln('^обозначает математический знак радикала');
  readln(y);
  If y = 1 Then
    writeln ('синус данного угла =1/2 ');
  If y = 2 Then
    writeln ('синус данного угла = ^2/2 ');
  If y = 3 Then
    writeln ('синус данного угла =^3/2 ');
  If y = 4 Then
    writeln ('синус данного угла =1 ');
  If y > 4then writeln ('вы выбрали несуществующий пункт ');
End;
Procedure input;
Begin
  Repeat       clrscr; {* Очистка экрана *}
    textcolor(yellow); {*  текст *}
  writeln ('выберите тригонометрическую функцию из предложенных ');
  textcolor(lightblue); {*  текст *}
  writeln('1. sin');
  textcolor(lightred); {* Выбрать  цвет текста *}
  writeln('2. cos');
  textcolor(lightgreen); {*  текст *}
  writeln('3. tg');
  textcolor(lightmagenta); {*  текст *}
  writeln('4. ctg');
  readln(f);
  If f > 4then writeln ('вы выбрали несуществующий пункт ');
    If f = 1 Then
      pr1;
  If f = 2 Then
  Begin
    textcolor(lightred); {* Выбрать  цвет текста *}
    writeln('выберите угол');
    writeln ('1.30');
    writeln('2.45');
    writeln('3.60');
    writeln('4.90');
    readln(y);
    If y = 1 Then
      writeln ('косинус этого угла =^3/2 ');
    If y = 2 Then
      writeln ('косинус этого угла =^2/2 ');
    If y = 3 Then
      writeln ('косинус этого угла = 1/2');
    If y = 4 Then
      writeln ('косинус этого угла =0 ');
    If y > 4then writeln ('вы выбрали несуществующий пункт ');
  End;
  If f = 3 Then
  Begin
    textcolor(lightgreen); {* Установить  цвет текста *}
    writeln('выберите угол');
    writeln ('1.30');
    writeln('2.45');
    writeln('3.60');
    writeln('4.90');
    readln(Y);
    If y = 1 Then
      writeln ('тангенс данного угла =1/^3 ');
    If y = 2 Then
      writeln ('тангенс данного угла =1 ');
    If y = 3 Then
      writeln ('тангенс данного угла =^3 ');
    If y = 4 Then
      writeln ('тангенса данного угла в 90 градусов не существует');
    If y > 4 Then
      writeln ('вы выбрали несуществующий пункт ');
  End;
  If f = 4 Then
  Begin
    textcolor(brown); {* Выбрать  цвет текста *}
    writeln('выберите угол');
    writeln ('1.30');
    writeln('2.45');
    writeln('3.60');
    writeln('4.90');
    readln(y);
    If y = 1 Then
      writeln (' котангенс данного угла =^3 ');
    If y = 2 Then
      writeln ('котангенс данного угла = 1');
    If y = 3 Then
      writeln ('котангенс данного угла = 1/^3');
    If y = 4 Then
      writeln ('котангенс данного угла = 0');
    If y > 4then writeln ('вы выбрали несуществующий пункт ');
  End;
  writeln ('enter - продолжить, esc - выйти');
  Repeat             v := readkey; {* Ждем нажатия любой клавиши *}
    Until (v = #13) Or (v = #27);
    Until v = #27;
End;
Begin
  input; { readln;
  }

End.