Question

Задание 2. Массив содержит значения температуры в градусах Цельсия (числа от 1 до 20). Составьте программу перевода этих значений в градусы по шкале Фаренгейта по формуле Тf = 9/5*Tc + 32. Выведите исходный массив, затем преобразованный массив с одним знаком в дробной части. Тип элементов исходного массива должен быть вещественный.
Пожалуйста, на языке паскаль​

Answer 1

Ответ:

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

program ConvertTemperature;

var

 celsius: array[1..20] of real;

 fahrenheit: array[1..20] of real;

 i: integer;

begin

 // Заполнение массива значениями температуры в градусах Цельсия

 for i := 1 to 20 do

   celsius[i] := i;

 // Вывод исходного массива

 writeln('Исходный массив в градусах Цельсия:');

 for i := 1 to 20 do

   writeln(celsius[i]:0:1);

 // Преобразование температуры в градусы Фаренгейта и заполнение нового массива

 for i := 1 to 20 do

   fahrenheit[i] := 9/5 * celsius[i] + 32;

 // Вывод преобразованного массива

 writeln('Преобразованный массив в градусах Фаренгейта:');

 for i := 1 to 20 do

   writeln(fahrenheit[i]:0:1);

end.

Эта программа сначала заполняет массив celsius значениями от 1 до 20. Затем она выводит исходный массив. После этого она преобразует каждое значение в массиве celsius в градусы Фаренгейта по формуле Tf = 9/5*Tc + 32 и заполняет массив fahrenheit преобразованными значениями. Наконец, она выводит преобразованный массив. Все значения выводятся с одним знаком после десятичной точки.