Примеры программ

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

В данном разделе содержатся примеры программ на PascalABC.NET от элементарных до сложных. Часть из них посвящена алгоритмам, реализованным на языке Паскаль, другая часть - особенностям языка и библиотек PascalABC.NET.

Примеры разбиты на следующие группы:

Особенности языка

В данном разделе приводятся примеры, иллюстрирующие особенности языка PascalABC.NET.

Стандартные модули В данном разделе рассматриваются примеры использования графических модулей, модулей школьных исполнителей Робот и Чертежник, студенческих учебных модулей Arrays и Collections. Раздел также пока находится в разработке.
Начинающим
(программы и алгоритмы)
Данный раздел можно прекомендовать для начального изучения языка. Здесь приводятся простейшие классические алгоритмы с использованием основных конструкций языка Паскаль. Материалы раздела могут быть использованы для подготовки к ЕГЭ по информатике, для самостоятельного изучения, а также в качестве справочника.
Программы и алгоритмы для студентов Данный раздел предназначен для студентов и реализуется силами студентов 1 курса ИТ. В этом разделе будут располагаться программы и алгоритмы, возникающие в курсе "Основы программирования" (ИТ, 1 курс)
Алгоритмы средней сложности Данный раздел находится в разработке.

 

Новости

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 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.