Question

Напечатать таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы шкалы Фаренгейта (F) для значений от 15оС до 30оС с шагом 1оС. (перевод осуществляется по формуле F=1.8C+32). Два варианта с циклами WHILE и REPEAT – UNTIL.

Answer 1

Ответ:

'Pascal'

Объяснение:

uses crt;

var F:real;

C:integer;

  Begin

  For C:=15 to 30 do

     Begin

     F:=1.8*C+32;

  Writeln(C,' градусов Цельсия = ', F, ' градусов по Фаренгейту');

  End;

End.

Answer 2

Используем два различных цикла, WHILE и REPEAT-UNTIL, для напечатания таблицы перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта.

Вариант с циклом WHILE:

pascalCopy code
program TemperatureConversionWhile;

var
  Celsius, Fahrenheit: real;

begin
  Celsius := 15;

  writeln('Таблица перевода температуры (Celsius -> Fahrenheit)');
  writeln('-----------------------------------------------');
  writeln('|   Celsius   |   Fahrenheit   |');
  writeln('-----------------------------------------------');

  while Celsius <= 30 do
  begin
    Fahrenheit := 1.8 * Celsius + 32;
    writeln('|    ', Celsius:5:1, '      |    ', Fahrenheit:5:1, '        |');
    Celsius := Celsius + 1;
  end;

  writeln('-----------------------------------------------');
end.

Вариант с циклом REPEAT-UNTIL:

pascalCopy code
program TemperatureConversionRepeatUntil;

var
  Celsius, Fahrenheit: real;

begin
  Celsius := 15;

  writeln('Таблица перевода температуры (Celsius -> Fahrenheit)');
  writeln('-----------------------------------------------');
  writeln('|   Celsius   |   Fahrenheit   |');
  writeln('-----------------------------------------------');

  repeat
    Fahrenheit := 1.8 * Celsius + 32;
    writeln('|    ', Celsius:5:1, '      |    ', Fahrenheit:5:1, '        |');
    Celsius := Celsius + 1;
  until Celsius > 30;

  writeln('-----------------------------------------------');
end.

Оба варианта кода выше создадут таблицу перевода температуры от 15°C до 30°C с шагом 1°C, отображая соответствующие значения в градусах по шкале Фаренгейта.