Абрамян М.Э. «Структуры данных в PascalABC.NET»

Просмотров: 391

Книга Абрамяна М.Э. «Структуры данных в PascalABC.NET» (будет выложена позже)

Новости

Начата публикация глав книги Осипова А.В. «PascalABC.NET: Современное программирование». Обсуждение книги - на форуме.

04.01.19. На сайте появился новый раздел - Книги по PascalABС.NET.

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

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

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

// Минимальный в массиве и его индекс
// Уровень сложности: 1
function MinInd(a: array of real): integer;
begin
  var min := a[0];
  Result := 0;
  for var i:=1 to a.Length-1 do
    if a[i]<min then
    begin
      min := a[i];
      Result := i;
    end;
end;


const n = 20;

begin
  var a := ArrRandomReal(n);
  Writeln('Исходный массив: ');
  a.Println;

  var ind := MinInd(a);
  Writeln('min=',a[ind],' индекс=',ind);
end.