30 lines
615 B
ObjectPascal
30 lines
615 B
ObjectPascal
|
// Цикл foreach
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
// foreach по диапазону
|
|||
|
|
foreach var x in 1..10 do
|
|||
|
|
Print(x);
|
|||
|
|
Println;
|
|||
|
|
|
|||
|
|
var a := [1,3,5,7,9];
|
|||
|
|
// foreach по массиву
|
|||
|
|
foreach var x in a do
|
|||
|
|
Print(x);
|
|||
|
|
Println;
|
|||
|
|
|
|||
|
|
// foreach с индексом
|
|||
|
|
foreach var x in a index i do
|
|||
|
|
Print((i,x));
|
|||
|
|
Println;
|
|||
|
|
|
|||
|
|
// foreach по словарю
|
|||
|
|
var d := Dict('cat' to 'кошка', 'dog' to 'собака');
|
|||
|
|
foreach var kv in d do
|
|||
|
|
Print(kv);
|
|||
|
|
Println;
|
|||
|
|
|
|||
|
|
// foreach по словарю с распаковкой
|
|||
|
|
foreach var (key,value) in d do
|
|||
|
|
Println($'{key} → {value}');
|
|||
|
|
end.
|