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

[Madam]

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

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

[volvo]

А потом пытаюсь вывести удаленный (4 кнопка), опять выводится всяка дрянь

Ну, так правильно... Тебе, чтобы вывести только что удаленный элемент достаточно сделать так:

           4:
           begin

             if not CheckValueZero(2, M) then begin
                 SetFillStyle(SolidFill, White);
                 Bar(195, 265, 225, 280);
                 str(M, s); { <--- !!! Этого достаточно !!! }
                 SetColor(Black);
                 OutTextXY(200, 270, s);
             end
           end;

, не правда ли?

P.S.
Стоп, стоп...

Не в этом проблема. Все в самом меню остается как и было, там все верно... Ошибка - здесь:

procedure Delafter(var q:pt;var temp:pt);{Delete cell after number}
var  n:byte;

begin
  temp:= q^.next; { <-- Ты запомнила значение ? }
  q^.next:=q^.next^.next;
  temp^.next:= nil; 

  temp := p1; { <-- И тут же его разрушила ??? }
  n := 1;
  while temp<>nil do begin

    ShowListItem(195, n, temp);
    inc(n);

    temp:=temp^.next;

  end;
end;

Вот так исправляем:

procedure Delafter(var q:pt;var temp:pt);{Delete cell after number}
var T: pt; 
      n:byte;

begin
  temp:= q^.next;
  q^.next:=q^.next^.next;
  temp^.next:= nil;

  T := p1;
  n := 1;
  while T<>nil do begin

    ShowListItem(195, n, T);
    inc(n);

    T:=T^.next;
  end;
end;

[Madam]

Вот так исправляем:

Все получилось, забыла в меню обратно исправить

Сообщение отредактировано: Madam - 8.10.2006 13:42

[Madam]

Все получилось, забыла в меню обратно исправить

Да здравствует Volvo!!! На последнем дыхании все таки справилась с последней процедурой сама!
Но я тебя обманула, что больше приставать не буду. Вы ведь не только с Паскалем помогаете?
С вопросами по Visual Basik приходить можно?
А это лично для Volvo:

I kiss you, severe KISA,
For your help in my teaser!!

Прикрепляю оклнчательный вариант:

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