Осипов А.В. «PascalABC.NET: Современное программирование»

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

обложка

Книга будет выкладываться поэтапно по главам

Обсуждение книги на форуме

 

Части книги

Тексты программ, приводимых в книге (11.1.19)

 

Лицензия

Авторские права на публикуемые материалы принадлежат автору книги Осипову Александру Викторовичу. Публикация данных материалов не предполагает извлечения какой-либо коммерческой выгоды.

Публикуемые материалы защищены действующим законодательством об авторском праве. Все предусмотренные этим законодательством права на опубликованные материалы принадлежат их автору.

Официальным источником для распространения материалов является Интернет-сайт http://pascalabc.net, ссылка на который при цитировании обязательна. Разрешается свободно копировать и распространять исключительно на безвозмездной основе опубликованные материалы при условии сохранения их в неизменном виде и с указанием авторства. Передача материалов третьим лицам разрешается при условии сохранения в них страницы с настоящей лицензией. Исключение делается для учебных заведений: при подготовке раздаточного материала допускается страницу с лицензией не включать. Любые другие способы распространения опубликованных материалов при отсутствии письменного разрешения автора запрещены.

Запрещается любым организациям осуществлять любого рода лицензирование опубликованного материала и осуществлять какую бы то ни было иную связанную с авторскими правами деятельность без письменного разрешения автора.

Новости

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

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

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

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

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

// Инвертирование массива
// Уровень сложности: 1
procedure Invert(a: array of integer);
begin
  var n := a.Length;
  for var i:=0 to n div 2 - 1 do
    Swap(a[i],a[n-i-1]);
end;

const N = 10;

begin
  var a := ArrRandom(N);
  Writeln('Исходный массив: ');
  a.Println;
  Invert(a);
  Writeln('После инверсии: ');
  a.Println;
  // Стандартная процедура
  Reverse(a);
  Writeln('После второй инверсии: ');
  a.Println;
end.