PascalABC.Net
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32
More Questions From This User See All
Answers & Comments
a,b:real;
s:String;
begin
Writeln('Введите температуру');
Readln(a);
Writeln('Введите направление перевода (Ф=>С или С=>Ф)');
ReadLn(s);
If s[1] ='Ф' then
begin
b:=(a-32)/1.8;
Writeln(a,'° по Фаренгейту = ', b, '° по Цельсию')
end
else
If (s[1] ='С') then
begin
b:=(a*1.8)+32;
Writeln(a,'° по Цельсию = ', b, '° по Фаренгейту')
end
else
Writeln('Входная строка имела неверный формат');
end.