Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 03.06.2008, 09:08   #1
forumu
Пользователь
 
Регистрация: 19.11.2007
Сообщений: 36
Репутация: 10
Вопрос #Delphi Нужен комментарий к программе

Есть программа, написанная другим человеком, нужен комменттарий к каждому действию в это программе.
Здесь программа сортирует числа по возрастанию с применением метода бинарных вставок.

Код:

procedure TForm2.BinaryInsertionSort(var Arr : massiv; N : Integer; var q: integer);
var
    B,C,E,I,J,K,Tmp : integer;
begin
  I:=2;
  q:=0;
  while I<=N do
  begin
    inc(q);
    b := 1;
    inc(q);
    e := i-1;
    inc(q);
    c := (b+e) div 2;
    inc(q);
    while b<>c do
    begin
      inc(q);
      if Arr[c-1]>Arr[i-1] then
       e := c else
               b := c;
      inc(q);
      c := (b+e) div 2;
      inc(q);
    end;
    if Arr[b-1]<Arr[i-1] then
     if Arr[i-1]>Arr[e-1] then b := e+1 else b := e;
    inc(q);
    k := i;
    inc(q);
    Tmp := Arr[i-1];
    inc(q);
    while k>b do
    begin
      inc(q);
      Arr[k-1] := Arr[k-2];
      inc(q);
      dec(k);
      inc(q);
    end;
    Arr[b-1] := Tmp;
    inc(q);
    Inc(I);
    inc(q);
  end;
end;

Заранее спасибо.
forumu вне форума   Ответить с цитированием
Старый 03.06.2008, 09:28   #2
forumu
Пользователь
 
Регистрация: 19.11.2007
Сообщений: 36
Репутация: 10
По умолчанию

Почему переместили, я выбрал самый подходящий раздел. Это никакого отношения к работе для программиста не имеет.
forumu вне форума   Ответить с цитированием
Старый 03.06.2008, 09:47   #3
merax
Участник клуба
 
Регистрация: 27.12.2006
Сообщений: 955
Репутация: 547
По умолчанию

Типа тебе должны были все кинутся за просто так помогать? А лицо не треснет. Запомни раз и навсегда. ТУТ ТЕБЕ НИКТО НИЧЕГО НЕ ДОЛЖЕН. И даже не пытайся оспаривать действия модератора. Себе дороже.
merax вне форума   Ответить с цитированием
Старый 03.06.2008, 09:53   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,842
Репутация: 6832
По умолчанию

Потому что : "нужен комменттарий к каждому действию"
Не много вато ли? Все это описано в книгах по паскалю причем элементарных, в методичках и прочей литературе.
Stilet вне форума   Ответить с цитированием
Старый 03.06.2008, 10:46   #5
forumu
Пользователь
 
Регистрация: 19.11.2007
Сообщений: 36
Репутация: 10
По умолчанию

могли бы хором не писать, итак понятно...
forumu вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как добавить комментарий к статье после самой статьи? Gorychev PHP 4 21.04.2008 22:22
Нужен Delphi программист Real Thing Фриланс 4 07.09.2007 00:49
Господа, нужен ReportBuilder для Delphi 7 Йескела Общие вопросы Delphi 2 18.04.2007 10:06


19:03.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru