Maxiim02
Опубликовано 6 лет назад по предмету Информатика от Maxiim02


PascalABC.Net Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода: Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8 Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32

  1. Ответ
    Ответ дан Alex24241
    vara,b:real;s:String;beginWriteln('Введите температуру');Readln(a);Writeln('Введите направление перевода (Ф=>С или С=>Ф)');ReadLn(s);If s[1] ='Ф' thenbeginb:=(a-32)/1.8;Writeln(a,'° по Фаренгейту = ', b, '° по Цельсию')endelse If (s[1] ='С') thenbeginb:=(a*1.8)+32;Writeln(a,'° по Цельсию = ', b, '° по Фаренгейту')endelse Writeln('Входная строка имела неверный формат');end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц