PascalABC.Net
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32
PascalABC.Net
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program TemperatureConverter;
var
temp: Real;
convertTo: Char;
result: Real;
begin
Write('Введите температуру: ');
ReadLn(temp);
Write('Введите направление перевода (F -> C или C -> F): ');
ReadLn(convertTo);
if (convertTo = 'F') or (convertTo = 'f') then
begin
result := (temp - 32) / 1.8;
WriteLn('Температура по Цельсию: ', result:0:2);
end
else if (convertTo = 'C') or (convertTo = 'c') then
begin
result := (temp * 1.8) + 32;
WriteLn('Температура по Фаренгейту: ', result:0:2);
end
else
WriteLn('Неверно введено направление перевода.');
end.