Обработка последовательностей чисел
Материал из Вики ИТ мехмата ЮФУ
Версия от 13:43, 4 октября 2010; Ulysses (обсуждение | вклад) (Новая страница: «Случай последовательности с заданным количеством элементов <source lang="Pascal">begin // Предварите…»)
Случай последовательности с заданным количеством элементов
begin
// Предварительные действия
// ...
Read(N);
for var i := 1 to N do
begin
// Ввод очередного элемента последовательности
Read(a);
// Обработка очередного элемента последовательности
// ...
end;
// Вывод результатов обработки
// ...
end.Случай последовательности, заканчивающейся нулем
begin
// Предварительные действия
// ...
while True do // Бесконечный цикл
begin
// Ввод очередного элемента последовательности
Read(a);
if a = 0 then
break; // Выход из цикла при обнаружении последнего элемента
// Обработка очередного элемента последовательности
// ...
end;
// Вывод результатов обработки
// ...
end.