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

UptoLike

ВУЗ: 

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

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

Рубрика: 

116
ниже 20 градусов. Если переформулировать задачу в терминах
одномерного массива, то получится следующая формулировка.
Задача.
Дан массив целых чисел. Количество элементов – 30. Нужно
вычислить длину самой длинной цепочки, содержащей элементы со
значением меньше 20.
Решим задачу таким образом: выделим поиск цепочки элементов в
отдельную функцию. Этой функции будем передавать массив и индекс
элемента, начиная с которого нужно искать цепочку. Функция будет
искать цепочку. Если цепочка не будет найдена, тогда функция возвратит
FALSE. Если цепочку удастся найти, то функция возвращает TRUE, а
через параметры возвращаются начало цепочки и ее длина. Логично
такую функцию назвать FindChain (поиск цепочки).
Используя функцию FindChain, можно найти по очереди все цепочки и
выбрать из них самую длинную. Текст программы приводится ниже:
{
Вводятся значения температур за любой месяц.
Нужно определить, сколько больше всего дней подряд держалась
температура ниже N градусов.
}
program FindingLongestChain;
const
MaxDays = 31; {Максимально возможное количество дней
в месяце}
MinDays = 28; {Минимально возможное количество дней
в месяце}
type
Temperature = - 200 .. + 500; {Температура может быть в градусах
Цельсия, в градусах Фаренгейта или
в градусах Кельвина}

Страницы