Вычисление суммы N чисел: использование новых возможностей

Материал из Вики проекта PascalABC.NET
Перейти к: навигация, поиск

В этом примере продемонстрировано использование оператора +=, внутриблочных описаний переменных, автоопределения типа и описания переменной в заголовке цикла for для поиска суммы N введенных чисел

var 
  N: integer;
  sum: real;
 
begin
  write('Введите количество чисел: ');
  readln(N);
 
  write('Введите числа: ');
  sum := 0;
  for var i := 1 to N do
  begin
    var x := ReadReal;
    sum += x;
  end;
  writeln('Сумма введенных чисел = ',sum);
end.

Следует обратить внимание, что описание переменной x внутри блока в цикле не приводит к потере производительности программы или повторному выделению памяти. Память под внутриблочную переменную выделяется один раз при входе в основную программу.

Ссылки

Персональные инструменты