Question

Введите значение Х, затем введите номер тригонометрической функции, которую надо вычислить: 1 – sin(x), 2 – cos(x), 3 – tg(x), 4 – ctg(x). Выведите результат вычисления соответствующей функции, используя разные цвета для разных функций. код на программе Pascal

Answer 1

uses crt;

var x, res: real;

funcNum: byte;

begin

   write('X = ');

   readln(x);

   

   writeln();

   TextColor(1);

   writeln('  1 - sin(x)');

   TextColor(2);

   writeln('  2 - cos(x)');

   TextColor(3);

   writeln('  3 - tg(x)');

   TextColor(4);

   writeln('  4 - ctg(x)');

   TextColor(7);

   writeln();

   

   write('Введите номер функции: ');

   readln(funcNum);

   case funcNum of

       1:

           begin

               TextColor(1);

               res := sin(x);

           end;

       2:

           begin

               TextColor(2);

               res := cos(x);

           end;

       3:

           begin

               TextColor(3);

               res := sin(x) / cos(x);

           end;

       4:

           begin

               TextColor(4);

               res := cos(x) / sin(x);

           end;

   end;

   TextColor(7);

   

   writeln(res);

end.

Answer 2

Для решения этой задачи на языке программирования Pascal, можно использовать операторы выбора case для определения требуемой тригонометрической функции и вычисления её значения. Для вывода результатов с разными цветами, можно воспользоваться специальными процедурами для управления цветом текста в консоли.

Приведу пример кода на Pascal для данной задачи:

pascalCopy code
program TrigonometricCalculator;

uses
  crt;

var
  x, result: real;
  choice: integer;

procedure SetTextColor(color: integer);
begin
  textcolor(color);
end;

procedure SetBackgroundColor(color: integer);
begin
  textbackground(color);
end;

procedure ResetColor;
begin
  textcolor(white);
  textbackground(black);
end;

begin
  clrscr;
  writeln('Введите значение X:');
  readln(x);

  writeln('Введите номер тригонометрической функции:');
  writeln('1 - sin(x)');
  writeln('2 - cos(x)');
  writeln('3 - tg(x)');
  writeln('4 - ctg(x)');
  readln(choice);

  case choice of
    1:
      begin
        SetTextColor(red);
        result := sin(x);
      end;
    2:
      begin
        SetTextColor(green);
        result := cos(x);
      end;
    3:
      begin
        SetTextColor(yellow);
        result := tan(x);
      end;
    4:
      begin
        SetTextColor(blue);
        result := 1 / tan(x); // ctg(x) = 1 / tan(x)
      end;
  else
    begin
      writeln('Некорректный номер функции');
      readln;
      Exit;
    end;
  end;

  writeln('Результат: ', result);
  ResetColor;
  readln;
end.

Обратите внимание, что для управления цветами текста используются процедуры SetTextColor, SetBackgroundColor и ResetColor из модуля crt, а также цвета предопределены в модуле crt. Вы можете изменить цвета, если нужно. Помните, что для работы с цветами, ваш терминал должен поддерживать управление цветами.