Question

Температура в градуса Цельсия изменяется от 0 до 100 с шагом 5. Написать программу перевода температуры из градусов Цельсия в градусы Фаренгейта(F). Формула перевода: F=1.8+32.

Answer 1

var

  C:integer;

begin

C := 0;

while C <= 100 do

begin

  writeln('C = ', C, '     F = ',  C * 1.8 + 32);

  C := C + 5;

end;

readln;

end.

Answer 2

Вот пример программы на языке PascalABC, которая выполняет перевод температуры из градусов Цельсия в градусы Фаренгейта:

program TemperatureConverter;
var
  Celsius, Fahrenheit: real;
begin
  writeln('Введите температуру в градусах Цельсия:');
  readln(Celsius);
  
  Fahrenheit := Celsius * 1.8 + 32;
  
  writeln('Температура в градусах Фаренгейта: ', Fahrenheit);
end.

Программа запрашивает у пользователя температуру в градусах Цельсия, затем использует формулу `F = 1.8 * C + 32` для перевода температуры в градусы Фаренгейта. Результат выводится на экран.

Примечание: В данном случае используется язык программирования PascalABC, но алгоритм перевода температуры применим и для других языков программирования.