1)Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу:

tоF=0,18(tоС+32)

программа в паскале

Для решения задачи составим программу на языке Pascal, которая создает таблицу соответствий температур по Цельсию и Фаренгейту от 0 до 100 градусов. В программе используется формула перевода:

Пример кода на Pascal:

pascal
program TemperatureTable;
uses
  crt;
var
  celsius: Integer;
  fahrenheit: Real;
begin
  clrscr;
  Writeln('Таблица температур (Цельсий -> Фаренгейт)');
  Writeln('----------------------------------------');
  Writeln('Цельсий     Фаренгейт');
  Writeln('----------------------------------------');
  
  for celsius := 0 to 100 do
  begin
    fahrenheit := 0.18 * (celsius + 32);
    Writeln(celsius:5, ' C', '      ', fahrenheit:8:2, ' F');
  end;
  Writeln('----------------------------------------');
  Readln;
end.

Разбор программы:

1. Объявление переменных:

   • celsius — переменная целого типа, представляющая температуру в градусах Цельсия.
   • fahrenheit — переменная вещественного типа для вычисления температуры в градусах Фаренгейта.

2. Использование цикла: Цикл for перебирает значения температуры от 0 до 100 градусов Цельсия.

3. Формула перевода: В теле цикла для каждого значения celsius рассчитывается значение fahrenheit по формуле.

4. Вывод результата: Форматированный вывод температур с использованием операторов Writeln и указания ширины столбцов.

5. Завершение программы: Оператор Readln в конце программы предотвращает автоматическое закрытие окна, позволяя пользователю увидеть таблицу.

Пример вывода программы:

markdown
Таблица температур (Цельсий -> Фаренгейт)
----------------------------------------
Цельсий     Фаренгейт
----------------------------------------
    0 C        5.76 F
    1 C        5.94 F
    2 C        6.12 F
    ...
   99 C       22.14 F
  100 C       22.32 F
----------------------------------------

Эта программа поможет наглядно увидеть соотношение температур по двум шкалам.