Обработка последовательностей чисел — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Ulysses (обсуждение | вклад) м |
Ulysses (обсуждение | вклад) (→Случай последовательности, заканчивающейся нулем: + объявление переменной внутри цикла) |
||
| Строка 23: | Строка 23: | ||
begin | begin | ||
// Ввод очередного элемента последовательности | // Ввод очередного элемента последовательности | ||
| − | + | var a := ReadInteger; // или ReadReal | |
if a = 0 then | if a = 0 then | ||
break; // Выход из цикла при обнаружении последнего элемента | break; // Выход из цикла при обнаружении последнего элемента | ||
| + | |||
// Обработка очередного элемента последовательности | // Обработка очередного элемента последовательности | ||
// ... | // ... | ||
Версия 10:00, 10 октября 2012
Случай последовательности с заданным количеством элементов
begin
// Предварительные действия
// ...
Read(N);
for var i := 1 to N do
begin
// Ввод очередного элемента последовательности
Read(a);
// Обработка очередного элемента последовательности
// ...
end;
// Вывод результатов обработки
// ...
end.
Случай последовательности, заканчивающейся нулем
begin
// Предварительные действия
// ...
while True do // Бесконечный цикл
begin
// Ввод очередного элемента последовательности
var a := ReadInteger; // или ReadReal
if a = 0 then
break; // Выход из цикла при обнаружении последнего элемента
// Обработка очередного элемента последовательности
// ...
end;
// Вывод результатов обработки
// ...
end.