/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/13_Pointers/ProcPointer2.pas
27 строк
594 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Процедурная переменная как параметр procedure for_each(a: array of real; p: procedure(var r: real)); begin for var i := 0 to a.Length-1 do p(a[i]); end; procedure mult2(var r: real); begin r := 2*r end; procedure print(var r: real); begin write(r,' '); end; var a: array of real := (1,2,3,6,7); begin writeln('Содержимое массива: '); for_each(a,print); writeln; for_each(a,mult2); writeln('Содержимое массива после умножения его элеметов на 2: '); for_each(a,print); end.