Обобщенные подпрограммы: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
<source lang="Delphi">procedure Println<T>(a: array of T); | |||
begin | |||
for var i:=0 to a.Length - 1 do | |||
write(a[i],' '); | |||
writeln; | |||
end; | |||
var | |||
a: array of integer := (1,3,5,7,9); | |||
ss: array of string := ('Иванов','Петров','Сидоров','Попов'); | |||
begin | |||
Println(a); | |||
Println(ss); | |||
end.</source> | |||
== Ссылки == | == Ссылки == | ||
*[[Особенности языка: продвинутый уровень]] | *[[Особенности языка: продвинутый уровень]] | ||
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] | *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] |
Версия от 22:33, 15 января 2010
procedure Println<T>(a: array of T);
begin
for var i:=0 to a.Length - 1 do
write(a[i],' ');
writeln;
end;
var
a: array of integer := (1,3,5,7,9);
ss: array of string := ('Иванов','Петров','Сидоров','Попов');
begin
Println(a);
Println(ss);
end.