Вычисление суммы 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 внутри блока в цикле не приводит к потере производительности программы или повторному выделению памяти. Память под внутриблочную переменную выделяется один раз при входе в основную программу.
