InstallerSamples/!Tutorial/06_ForWhileRepeat/Foreach1.pas - master - n-dimens/pascalabcnet

InstallerSamples/!Tutorial/06_ForWhileRepeat/Foreach1.pas

29 строк615 B

Mikhalkovich Stanislav

Ускоренная реализация CountOf для строк

03 ноя 2025, 15:27

03 ноя 2025, 15:27e0a2854

// Цикл 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.