×

Ошибка

Категория не найдена

Новости

30.08.18. Вышла версия 3.4.2. Реализованы расширенные свойства. Реализован новый модуль векторной графики WPFObjects.

17.06.18. Опубликован документ Массивы: алгоритмы против методов и операций

17.06.18. Закончена презентация по модулю Graph3D (.pdf, без анимации) Добавлено 16 слайдов.

23.05.18. Вышла версия 3.4. Реализован Pattern Matching и расширенный оператор is

Случайная программа

// Инвертирование массива
// Уровень сложности: 1
procedure Invert(a: array of integer);
begin
  var n := a.Length;
  for var i:=0 to n div 2 - 1 do
    Swap(a[i],a[n-i-1]);
end;

const N = 10;

begin
  var a := ArrRandom(N);
  Writeln('Исходный массив: ');
  a.Println;
  Invert(a);
  Writeln('После инверсии: ');
  a.Println;
  // Стандартная процедура
  Reverse(a);
  Writeln('После второй инверсии: ');
  a.Println;
end.