Обработка последовательностей чисел — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Ulysses (обсуждение | вклад) (Новая страница: «Случай последовательности с заданным количеством элементов <source lang="Pascal">begin // Предварите…») |
Ulysses (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | Случай последовательности с заданным количеством элементов | + | ====Случай последовательности с заданным количеством элементов==== |
<source lang="Pascal">begin | <source lang="Pascal">begin | ||
// Предварительные действия | // Предварительные действия | ||
| Строка 15: | Строка 15: | ||
end.</source> | end.</source> | ||
| − | Случай последовательности, заканчивающейся нулем | + | |
| + | ====Случай последовательности, заканчивающейся нулем==== | ||
<source lang="Pascal">begin | <source lang="Pascal">begin | ||
// Предварительные действия | // Предварительные действия | ||
Версия 13:44, 4 октября 2010
Случай последовательности с заданным количеством элементов
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.