Новости

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
function IndexOf(a: array of integer;
  k: integer): integer;
begin
  Result := -1;
  for var i:=0 to a.Length-1 do
    if a[i] = K then
    begin
      Result := i;
      exit
    end;
end;

const N = 10;

var a: array of integer;

begin
  a := ArrRandom(N,0,19);
  Writeln('Исходный массив: ');
  a.Println;
  
  var k := Random(20);
  Writeln('Ищем элемент = ',k);
  
  var ind := IndexOf(a,k);
  if ind >=0 then
    Writeln(K,' найден; индекс первого вхождения = ',ind)
  else Writeln(K,' не найден');
  
  ind := a.IndexOf(k);
  Writeln('Результат работы стандартной IndexOf: ',ind);
end.