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

[Madam]

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

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

[volvo]

Значит, так... Вот я и пришел с первоначальными результатами оптимизации. Именно первоначальными, ибо до окончательных еще очень далеко, можно еще улучшить программу, и сделать ее гораздо более читаемой.

Смотри, что я сделал:

1. Все циклы вида:

j:=0;
While j<=10 do begin
  j:=j+1;
  SetFillStyle(SolidFill, White);
  Bar(x+(r+l)*(j-1),115,x+(l+r)*(j-1)+l,130);
end;

заменены на циклы:

SetFillStyle(SolidFill, White);
For j := 1 To 11 Do
  Bar(x+(r+l)*(j-1),115,x+(l+r)*(j-1)+l,130);

Почему? Потому, что во-первых они проще читаются, следовательно и находить недочеты и неполадки будет проще. Ну, а во-вторых - SetFillStyle делать на каждой итерации совершенно необязательно, достаточно это сделать один раз перед циклом...

2. Однотипные действия, вроде:

if(ch='0') then begin
  SetColor(LightRed);
  OutTextXY(200,120, 'You input 0. Input another number');
end

выделены в отдельные функции...

3. Немного подправлена сама организация работы с меню: вместо того, чтобы хранить все время текущую Y-позицию, я храню "индекс", т.е. порядковый номер текущего (в смысле, выбранного в данный момент) элемента. Это позволяет мне во-первых, избавиться от совершенно ненужных констант:

const
  Y1=40;
  Y2=115;
  Y3=190;
  Y4=265;
  Y5=340;
  Y6=415;

(зачем нужны 6 констант, если можно вычислить значение в любой момент по текущему индексу и стартовому значению?), и во-вторых, заменить булевские переменные n1, n2, n3 на массив
n: array[1 .. 3] of boolean (ну, что поделать, я привык к структурированным программам )

Естественно, я не мог оставить в программе и вот это:

   OutTextXY(10,45,'Create new list');
   OutTextXY(10,120,'Paste cell');
   OutTextXY(10,195,'Delete cell');
   OutTextXY(10,270,'Find cell ');
   OutTextXY(10,345,'Move last cell');
   OutTextXY(10,420,'Exit');

- строки были записаны в массив и выведены в простом цикле...

4. Блок обработки расширенных клавиш (то, что ты называешь HARD) внесен в основной Case:

Case ReadKey Of
  #0:
    begin
      { Здесь - расширенные клавиши }
    end;
  #27: ; { а здесь начинается обработка обычных ... }
End;

Кстати, у тебя была ошибка:

While ch <> '27'do begin
  ...
end;

это не везде будет компилироваться (зависит от настроек компилятора), ибо некорректно сравнивать символ со строкой...

5. Теперь о главном: у тебя же был список целых? Зачем ты его превратила в список строк? Теперь ты понимаешь, что я имел в виду, когда говорил, что нельзя смешивать интерфейс и логику? Ты изменила базовый тип, потому что он не вписывался в твой интерфейс!!! Не стоит этого делать. Интерфейс должен подстраиваться под логику, а не наоборот. Смотри, что нужно было сделать:

type
  pt = ^elem;
  elem = record
     info: Integer; { <--- Ничего не меняем !!! }
     next : pt;
  end;

procedure Create_list(var p, first, last, curr:pt); {Creation of new list}
var n, A:byte;
begin
  first := nil; last := nil;
  for n:=1 to 10 do begin
    A:=Random(99)+1;
    new(curr);

    curr^.info := A;
    curr^.next := nil;
    ShowListItem(45, n, curr); { <--- Единственное, что добавить !!! }

    if first=nil then first:=curr
    else last^.next:=curr;

    last:=curr;
  end;
  p:=first;
end;

То, что я добавил - это процедура отрисовки определенного элемента. Понимаешь? Тебя на этапе создания списка вообще не должно волновать, как именно будет отображаться этот элемент. Для этого есть Интерфейс. Ты ему передала все необходимые данные, и все. А как реализовать конкретно отрисовку этого элемента списка - это ты будешь думать уже потом, на этапе реализации интерфейса. Если он будет графическим, то функция ShowListItem, например, может быть такой:

Procedure ShowListItem(yPos, n: integer; p: pt);
var s: string;
begin
  str(p^.info, s);

  SetColor(Black);
  OutTextXY(GetX(n) + 5, yPos, s);
end;

, будет текстовым - процедура будет другой. НО!!! Изменяться будет только эта процедура! Сам принцип формирования списка остается неизменным, и потому - неприкосновенным...

6. Ну, и еще одно... Нежелательно описывать все переменные, как глобальные. Я уже как-то приводил на форуме пример программы, в которой при простом перемещении нескольких переменных ниже по тексту программы (ближе к концу) еще на этапе компиляции (!!!) выявлялась очень трудноуловимая ошибка, так что я еще раз повторяю: переменная должна быть описана как можно ближе к тому блоку, в котором она используется... Вот, например, у тебя в программе, где описаны переменные

var gd, gm: integer;

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

Ну, и, наконец, сама подкорректированная программа:
(я не стал добавлять отсутствующие функции, попробуй это сделать сама, если что - обращайся, подскажем как что поправить )

[volvo]

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

А что она раньше выводила?

А я ведь говорил:

я не стал добавлять отсутствующие функции, попробуй это сделать сама

А то, что она ВООБЩЕ что-то выводит - это, как видно, побочный эффект, от которого, кстати, надо избавляться. Побочных эффектов в программе быть не должно...

[Madam]

А что она раньше выводила?

А я ведь говорил:
А то, что она ВООБЩЕ что-то выводит - это, как видно, побочный эффект, от которого, кстати, надо избавляться. Побочных эффектов в программе быть не должно...

Там есть процедура Insert,
она-то и должна была выводить обновленный список.