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

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

обложка

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

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

 

Части книги

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

 

Лицензия

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

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

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

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

Новости

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

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