Обработка последовательностей чисел

Материал из Вики ИТ мехмата ЮФУ
Версия от 10:00, 10 октября 2012; Ulysses (обсуждение | вклад) (→‎Случай последовательности, заканчивающейся нулем: + объявление переменной внутри цикла)

Перейти к: навигация, поиск

Случай последовательности с заданным количеством элементов

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.
Источник — «http://it.mmcs.sfedu.ru/_wiki/index.php?title=Обработка_последовательностей_чисел&oldid=4458»