Question

В тетради письменно: составить СВОЮ программу на языке программирования Паскаль, которая бы могла вычислять по аргументу (который будет задан пользователем в градусах) значение одной из тригонометрических функций (ПО ВЫБОРУ) sin (x), cos (x), tg (X) или ctg (x).

Answer 1

uses crt;

var x,a:real;

begin

writeln('Введи x');

readln(x);

a:=sin(x);

writeln('синус x ',a)

end.

 

Вроде так.

Answer 2

Программа на языке программирования Паскаль для вычисления тригонометрических функций

Для создания программы на языке программирования Паскаль, которая будет вычислять значение одной из тригонометрических функций (sin(x), cos(x), tg(x) или ctg(x)) по заданному пользователем аргументу в градусах, можно использовать следующий код:

program TrigonometricFunctions;

uses
  Math;

var
  angle: real;
  functionChoice: char;
  result: real;

begin
  writeln('Введите значение угла в градусах: ');
  readln(angle);

writeln('Выберите тригонометрическую функцию:');
  writeln('1. sin(x)');
  writeln('2. cos(x)');
  writeln('3. tg(x)');
  writeln('4. ctg(x)');
  readln(functionChoice);

case functionChoice of
    '1': result := sin(DegToRad(angle));
    '2': result := cos(DegToRad(angle));
    '3': result := tan(DegToRad(angle));
    '4': result := cotan(DegToRad(angle));
  else
    writeln('Некорректный выбор функции.');
    exit;
  end;

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

В этой программе мы используем встроенные функции языка Паскаль для вычисления тригонометрических функций. Функция `DegToRad` используется для преобразования значения угла из градусов в радианы перед передачей его в функции `sin`, `cos`, `tan` или `cotan`.

Примечание: Предполагается, что вы уже знакомы с основами программирования на языке Паскаль. Если нет, рекомендуется изучить основы языка перед написанием этой программы.

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.