Вычисление суммы N чисел: использование новых возможностей: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (→Ссылки) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 12: | Строка 12: | ||
for var i := 1 to N do | for var i := 1 to N do | ||
begin | begin | ||
var x: | var x := ReadReal; | ||
sum += x; | sum += x; | ||
end; | end; |
Текущая версия от 10:42, 27 ноября 2010
В этом примере продемонстрировано использование оператора +=, внутриблочных описаний переменных, автоопределения типа и описания переменной в заголовке цикла 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 внутри блока в цикле не приводит к потере производительности программы или повторному выделению памяти. Память под внутриблочную переменную выделяется один раз при входе в основную программу.