Question

Составьте 2 задачи в паскале с sin и cos. Не очень сложные.

Answer 1

• var x,y: real;

        begin

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

        readln(x);

        y:=(5*sin(x)+1)/3;

        writeln('y = ',y);

        end.

• var x,y: real;

        begin

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

        readln(x);

        y:=(3*cos(x)-4)/2;

        writeln('y = ',y);

        end.

Answer 2

Конечно, вот две простые задачи на использование функций sin и cos в Pascal:

Задача 1: Вычисление длины гипотенузы прямоугольного треугольника

pascalCopy code
program LengthOfHypotenuse;
var
  side1, side2: Real;
  hypotenuse: Real;
begin
  // Введите длины катетов
  Write('Введите длину первого катета: ');
  Readln(side1);
  Write('Введите длину второго катета: ');
  Readln(side2);

  // Вычисление гипотенузы с использованием теоремы Пифагора
  hypotenuse := sqrt(side1 * side1 + side2 * side2);

  // Вывод результата
  Writeln('Длина гипотенузы: ', hypotenuse:0:2);
end.

Задача 2: Расчет координат точек на окружности

pascalCopy code
program CoordinatesOnCircle;
var
  radius, angle: Real;
  x, y: Real;
begin
  // Введите радиус окружности
  Write('Введите радиус окружности: ');
  Readln(radius);
  // Введите угол в градусах
  Write('Введите угол в градусах: ');
  Readln(angle);

  // Перевод градусов в радианы
  angle := angle * (pi / 180);

  // Вычисление координат точки на окружности
  x := radius * cos(angle);
  y := radius * sin(angle);

  // Вывод результата
  Writeln('Координаты точки на окружности: (', x:0:2, ', ', y:0:2, ')');
end.

Эти примеры демонстрируют базовое использование функций sin и cos в Pascal. Надеюсь, это поможет вам лучше понять, как использовать данные функции в практических задачах.