Название сайта 1

Пожалуйста, введите адрес электронной почты, указанный в параметрах вашей учётной записи. На него будет отправлен специальный проверочный код. После его получения вы сможете ввести новый пароль для вашей учетной записи.

Новости

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

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

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

15.01.18. Реализована эффективная операция возведения в степень **

Наш Твиттер


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

// Линейный поиск в массиве
// Уровень сложности: 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.