Основы программирования на языке Turbo Pascal. Беляева И.В. - 120 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

120
end; {Конец процедуры ReadArrayTemperatures}
{==========================================}
{PrintArray – процедура вывода массива температур на экран.
Данные берутся из массива T. В NumDays – количество элементов
в массиве T.
}
procedure PrintArrayTemperatures (
const T : ArrayTemperatures;
NumDays : integer);
var
i:IndexElement;
begin
writeln('Массив температур за месяц : ');
for i:=1 to NumDays do
begin
write(T[i]:4);
{Значения выводятся по 10 в строку}
if i mod 10 = 0 then writeln; {Когда i = 10, 20 или 30,
производится перевод курсора
на начало следующей строки}
end;
writeln;
end; {Конец процедуры PrintArrayTemperatures}
Var
T: ArrayTemperatures; {Значения температуры по дням}
NumDays: Integer; {Количество дней в месяце}
MaxLengthChain: Integer; {Длина самой длинной цепочки}
begin
{Вводим массив температур}
writeln;
writeln;
ReadArrayTemperatures(T, NumDays);
{Выясняем длину самой длиной цепочки с температурой

Страницы