Линейный список, Создать с помщью Randomize Опции

[Madam]

Здравствуйте!
Помогите пожалуйста далеко не юной зочнице справится с кусовиком.
Как с помощью Randomize создать линейный список из десяти положительных целых чисел?
Заранее благодарю.

Сообщение отредактировано: Madam - 10.10.2006 8:36

[volvo]

Вот и очередное обновление...

Что изменено...
1. Еще один повторяющийся кусок выделен в отдельную процедуру:

  procedure P(i: integer; Ch: Char);
  begin
    SetFillStyle(SolidFill, White);
    Bar(156, 5 + GetY(i) - 4, 184, 5 + GetY(i) + 9);
    SetColor(Black);
    OutTextXY(160, 5 + GetY(i), Ch);
    SetColor(DarkGray);
    SetFillStyle(SolidFill, DarkGray);
    Bar(195, 5 + GetY(i) - (10 + (4 - i)*5), GetMaxX-5, 5 + GetY(i) - (10 + (4 - i)*5) + 30);
  end;

, что позволило "разгрузить" текст программы...

2. Немного изменен способ обработки вводимых значений: теперь (я пока имею в виду только пункт меню "Paste Cell") для того, чтобы вставить новый элемент списка после заданного, нужно ввести значение заданного элемента (1 или 2 цифры), и нажать Enter.

3. Кстати, теперь вставка нового элемента в список работает как положено (остальные функции еще не реализованы)...

4. Подправлена процедура создания списка (Create_List), удалены ненужные параметры, кроме того, наведен порядок в глобальных переменных (часть удалена и заменена локальными, некоторые заменены на константы)...

Вот программа:
 madam2.pas ( 8.23 килобайт ) Кол-во скачиваний: 389


P.S.
А чего это я один в этой теме? Больше никому не интересно?