Скриншоты: общий вид

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

Вкладки. Окно вывода

Общий вид среды PascalABC.NET

Несколько вкладок. Панель сообщений об ошибках

PascalABC.NET: панель ошибок компиляции

Несколько приложений, запущенных одновременно

PascalABC.NET: несколько запущенных программ

Отадчик. Панель локальных переменных. Подсказка при отладке

PascalABC.NET: отладчик

Новости

30.08.17. Вышла версия 3.3. Новые модули Graph3D и GraphWPF

19.01.17. Добавлена операция безопасного среза: a?[-1:5:2]

29.08.16. Вышла версия 3.2. Реализован оператор yield.

12.02.16. Вышла версия 3.1. Добавлены кортежи в стиле (a,b) и кортежное присваивание (a,b) := (b,a)

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

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