Ссылки для скачивания

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

PascalABC.NET (версия 3.2, сборка 1415 от 25.03.2017)

Внимание! Если у Вас установлена предыдущая версия  PascalABC.NET, то при первой установке PascalABC.NET 3.2 обязательно установите полную версию PascalABC.NET + Microsoft .NET Framework v4.0

Пользователям операционных систем Windows 7 SP1, Windows Vista SP2 и выше рекомендуется установить версию .NET Framework 4.5.1 или старше.

  PascalABC.NET + Microsoft .NET Framework v4.0 (Setup, 66 Mb)
Для первой установки
Содержит:
  • Система программирования PascalABC.NET
  • Задачник PT4
  • Платформа Microsoft .NET Framework v4.0
  • Russian Language Pack for .NET v4.0 (русификация сообщений о ошибках времени выполнения)
  • Framework Class Library Help (документация для всплывающей подсказки)
 

PascalABC.NET StandardPack (Setup, 8.1 Mb)
Для обновления уже установленной версии

Внимание! Пользователям операционных систем Windows 7 и Windows Vista с последним сервис-паком рекомендуется установить последнюю версию .NET Framework 4.5.1

Содержит:

  • Система программирования PascalABC.NET
  • Задачник PT4
  PascalABC.NET MiniPack (Setup, 6.4 Mb)
Содержит только систему программирования PascalABC.NET
  PABCNETC.ZIP
Консольный компилятор и необходимые компоненты. Для ускорения компиляции под Windows следует запустить install_pabcnetc.bat. Для установки под Linux необходима свежая версия Mono.
  PascalABCNET.chm
Файл справки в формате .chm
 

Перед установкой ознакомьтесь с Лицензионным соглашением.

 

Новости

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

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

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

31.12.15. Версия 3.0.0.1128. Реализованы обобщенные методы расширения для операций

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

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