Радианы и градусы. Фаренгейты и Цельсии

На этой странице дано решение примеров Begin29 - Begin32 из задачника Абрамяна. Здесь мы занимаемся преобразованием угла из радианов в градусы и наоборот, а также преобразованием температуры из градусов Цельсия в Фаренгейты и наоборот.

Begin29. Дано значение угла α в градусах (0 ≤ α < 360). Определить значение этого же угла в радианах, учитывая, что 180° = π радианов. В качестве значения π использовать 3.14.

const
  pi = 3.14;

var
  A, Rad: real;

begin
  writeln('Введите градусную меру угла(0 <= A < 360):');
  write(' A = ');
  readln(A);
  writeln;
  Rad := pi * A / 180; { <-- Вычисляем радианную меру угла }
  writeln('Результат:'); 
  writeln(' Угол ', A, '° имеет ', Rad:0:2, ' радиан.');
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Сравните Begin29 с задачей Proc32.

Begin30. Дано значение угла α в радианах (0 ≤ α < 2·π). Определить значение этого же угла в градусах, учитывая, что 180° = π радианов. В качестве значения π использовать 3.14.

const
  pi = 3.14;

var
  Alpha, gradus: real;

begin
  writeln('Введите радианную меру угла(0 <= Alpha < 6.28):');
  write(' Alpha = ');
  readln(Alpha);
  writeln;
  gradus := 180 * Alpha / pi; { <-- Вычисляем градусную меру угла }
  writeln('Результат:'); 
  writeln(' Угол ', Alpha, ' радиан составляет ', 
    gradus:0:2, ' градусов.');
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Рекомендую сравнить с задачей Proc33.

Begin31. Дано значение температуры T в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением:

TC = (TF − 32)·5/9.

var
  TC, TF: real;

begin
  writeln('Введите температуру в градусах Фаренгейта:');
  write(' TF = ');
  readln(TF);
  TC := (TF - 32) * 5 / 9; { <-- температура по цельсию }
  writeln;
  writeln('Температура в градусах Цельсия:'); 
  writeln(' TC = ', TC:0:2);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Begin32. Дано значение температуры T в градусах Цельсия. Определить значение этой же температуры в градусах Фаренгейта. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением:

TF = 9·FC/5 + 32.

var
  TC, TF: real;

begin
  writeln('Введите температуру в градусах Цельсия:');
  write(' TC = ');
  readln(TC);
  TF := 9 * TC / 5 + 32; { <== температура по Фаренгейту }
  writeln;
  writeln('Температура по Фаренгейту: TF = ', TF:0:2);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸