Question

СОСТАВИТЬ в паскале ПРОГРАММУ ОСУЩЕСТВЛЯЮЩУЮ ПЕРЕВОД величин из радиан в градусы и наобоброт программа должна запрашивать какой перевод нужно осуществить и выполнять указанное действие

Answer 1

Var
  choose:char;
  x: real;

begin
  writeln('Переводить в радианы(Р) или в градусы(Г)?');
  readln(choose);
  if choose = 'Р' then
  begin
    write('Введите градусы: ');
    readln(x);
    writeln('Радианы: ', x*0.017);
  end
  else
    if choose = 'Г' then
    begin
      write('Введите радианы: ');
      readln(x);
      writeln('Градусы: ', x*57,3);
    end
    else
      writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который выполняет перевод из радиан в градусы и наоборот, в зависимости от выбора пользователя:

pascalCopy code
program ConvertRadiansDegrees;

var
  choice: integer;
  angle: real;

function RadiansToDegrees(radians: real): real;
begin
  RadiansToDegrees := radians * 180 / pi;
end;

function DegreesToRadians(degrees: real): real;
begin
  DegreesToRadians := degrees * pi / 180;
end;

begin
  writeln('Выберите тип перевода:');
  writeln('1. Радианы в градусы');
  writeln('2. Градусы в радианы');
  write('Ваш выбор: ');
  readln(choice);

  case choice of
    1:
    begin
      write('Введите значение в радианах: ');
      readln(angle);
      writeln('Градусы: ', RadiansToDegrees(angle):0:2);
    end;
    2:
    begin
      write('Введите значение в градусах: ');
      readln(angle);
      writeln('Радианы: ', DegreesToRadians(angle):0:2);
    end;
    else
      writeln('Некорректный выбор');
  end;

  writeln('Нажмите Enter, чтобы выйти');
  readln;
end.

Пользователь сможет выбрать тип перевода, ввести соответствующее значение и увидеть результат величины в новой системе измерения.

Обратите внимание, что программа использует встроенную константу pi для выполнения математических вычислений.