Question

Индивидуальное зачетное задание Напишите программу, запрашивающую у пользователя время и сообщающую угол поворота минутной и часовой стрелки в градусах и радианах (помните, что тригонометрические функции в Паскале работают с радианами)

Answer 1

Var
  n,m:integer;
  r1,r2:real;
begin
writeln('Введите количество часов: ');
readln(n);
writeln('Введите количество минут: ');
readln(m);
n:=n mod 12;
r2:=m/60*360;
r1:=(n*360+r2)/12;
writeln('Угол поворота часовой стрелки ',r1,' градусов или ',r1/180*Pi,' радиан');
writeln('Угол поворота минутной стрелки ',r2,' градусов или ',r2/180*Pi,' радиан');
end.

Answer 2

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

program AngleCalculation;

var
  hours, minutes: integer;
  hourAngle, minuteAngle: real;
  pi: real;

begin
  pi := 3.14159; // значение числа Пи

// Запрос времени у пользователя
  writeln('Введите время:');
  write('Часы: ');
  readln(hours);
  write('Минуты: ');
  readln(minutes);

// Вычисление угла поворота часовой стрелки
  hourAngle := (hours mod 12 + minutes / 60) * 30; // каждый час - 30 градусов

// Вычисление угла поворота минутной стрелки
  minuteAngle := minutes * 6; // каждая минута - 6 градусов

// Вывод результатов
  writeln('Угол поворота часовой стрелки:');
  writeln('В градусах: ', hourAngle:0:2);
  writeln('В радианах: ', hourAngle * pi / 180:0:2);

writeln('Угол поворота минутной стрелки:');
  writeln('В градусах: ', minuteAngle:0:2);
  writeln('В радианах: ', minuteAngle * pi / 180:0:2);

readln;
end.

Программа запрашивает у пользователя часы и минуты, а затем вычисляет угол поворота минутной и часовой стрелки в градусах и радианах. Для вычисления углов используются следующие формулы:

- Угол поворота часовой стрелки: `(hours mod 12 + minutes / 60) * 30` - Угол поворота минутной стрелки: `minutes * 6`

Значение числа Пи (`pi`) равно 3.14159. Для перевода градусов в радианы используется формула: `угол_в_радианах = угол_в_градусах * pi / 180`.

Пример работы программы: ``` Введите время: Часы: 9 Минуты: 45 Угол поворота часовой стрелки: В градусах: 292.50 В радианах: 5.11 Угол поворота минутной стрелки: В градусах: 270.00 В радианах: 4.71 ```

Программа запрашивает время у пользователя (в данном примере введено 9 часов 45 минут) и вычисляет угол поворота минутной и часовой стрелки в градусах и радианах. В данном случае, угол поворота часовой стрелки составляет 292.50 градусов и 5.11 радиан, а угол поворота минутной стрелки - 270.00 градусов и 4.71 радиана.