Вычисление суммы N чисел: использование новых возможностей: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
В этом примере продемонстрировано использование оператора +=, внутриблочных описаний переменных, автоопределения типа и описания переменной в заголовке цикла for для поиска суммы N введенных чисел | |||
<source lang="Delphi">var | <source lang="Delphi">var | ||
N: integer; | N: integer; | ||
Строка 17: | Строка 18: | ||
writeln('Сумма введенных чисел = ',sum); | writeln('Сумма введенных чисел = ',sum); | ||
end.</source> | end.</source> | ||
Следует обратить внимание, что описание переменной x внутри блока в цикле не приводит к потере производительности программы или повторному выделению памяти. Память под внутриблочную переменную выделяется один раз при входе в основную программу. | |||
== Ссылки == | == Ссылки == | ||
[[Особенности языка: базовый уровень]] | [[Особенности языка: базовый уровень]] |
Версия от 17:05, 9 января 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: real;
read(x);
sum += x;
end;
writeln('Сумма введенных чисел = ',sum);
end.
Следует обратить внимание, что описание переменной x внутри блока в цикле не приводит к потере производительности программы или повторному выделению памяти. Память под внутриблочную переменную выделяется один раз при входе в основную программу.