Напишите программу для получения таблицы температур по Цельсию - Turbo Pascal

Формулировка задачи:

Напишите программу для получения таблицы температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя формулу: tf = (9/5) * tc + 32

Решение задачи: «Напишите программу для получения таблицы температур по Цельсию»

Листинг программы

const
    line = '---------------';
var
    i: Byte;
begin
    WriteLn(line);
    WriteLn('|  Tc |   Tf  |');
    WriteLn(line);
    for i := 0 to 100 do
        WriteLn('| ', i:3, ' | ', (32 + 9 * i / 5):5:1, ' |');
    WriteLn(line);
end.

Объяснение кода листинга программы

В данном коде объявлены две переменные: i и Tf.

Строка var объявляет переменные, которые будут использоваться в программе.
Строка const объявляет константы, которые не могут быть изменены в программе.
Переменная i инициализируется значением Byte, что означает, что она может содержать только целочисленные значения от -128 до 127.
Переменная Tf инициализируется значением 0.
Строка WriteLn используется для вывода текста на экран.
Первая строка выводит заголовок таблицы с помощью строки ---------------.
Вторая строка выводит заголовки столбцов таблицы.
В третьей строке используется цикл for, который выполняется 11 раз (от 0 до 100).
Внутри цикла выводится значение переменной i, которое увеличивается на 1 с каждой итерацией.
Значение переменной Tf вычисляется как 32 + 9 * i / 5. Это значение выводится на экран вместе с символом |.
После завершения цикла выводится еще одна строка с заголовками столбцов.
Программа заканчивается.