На этой странице дано решение примеров 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∙10308 .. 1.8∙10308 Сравните 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∙10308 .. 1.8∙10308 Рекомендую сравнить с задачей 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∙10308 .. 1.8∙10308 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∙10308 .. 1.8∙10308