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

Наташа,
пожалуйста, создавай для новой задачи новую тему - ладно?
А фото лучше поместить в профиле

Что касается списков и Randomize - на Форуме уже много раз было. Попробуй воспользоваться Поиском. Задай, например, поиск +линейн* +спис*
Если не найдешь, что нужно, или будет непонятно - спрашивай еще.
Удачи!

Здравствуйте уважаеммый Андрей!
Спасибо за ответ. Прошу прощения за ошибки - это моя первая попытка общения на форумах.
Я привыкла все делать сама. но изучать программирование самостоятельно довольно трудно, тем более такую
устаревшую китайскую граммоту, как Паскаль. Кого не спросишь - кто не помнит, а кто и не знает. Хотя у нас в
организации программистов больше чем людей. Все пишут на C++ и Java, а Паскаль он и презирают. Досконально перечитала то что выложил Altair о динамических структурах и то что выдал поиск, но конкретно о создании списка Random'ом не нашла. Не соображу как это сделать в цикле и что будет счетчиком цикла?
Кстати, в прикрепленной прграмме Lict.pas у Altair'а не работают процедуры addafter и addbefore, ощущение что ошибка в функции searchel, прошу прощения если ошибаюсь.
Помогите пожалуйста.
Заранее благодарна за любую помощь.

Вот простейшая процедура создания списка (все, что потребуется - поменять число элементов, и заменить ввод с клавиатуры на Random):
Сложение элементов 2 списков

Да какие там ошибки - не нужно никаких извинений
Единственная просьба - быть немного попроще, если можно.. Слово "Уважаемый" оставь для служебных записок - тут его могут истолковать противоположным образом..

volvo дал хороший пример. Что касается Randomize, то я подозреваю, что ты имеешь в виду Random (как и пишет volvo). Делается это примерно так..

Вместо строчки
write('item #', i:2, ' = '); readln(X);

вставь, например, вот, что:
X:=Random(1000);

Этот оператор присваивает переменной Х случайное значение в диапазоне 0 - 999 (можешь менять параметр функции Random, чтоб получить желаемый диапазон, но не задавай его больше, чем 65536).

Если ты сделаешь так, числа будут не совсем случайными, они будут одинаковыми при каждом новом запуске программы (хотя друг от друга зависеть как бы не будут). На самом деле это очень удобно на стадии отладки программы. Но если ты хочешь все же получить действительно случайные числа (другие при каждом новом запуске программы), то просто вставь тот самый Randomize до первого вызова Random (например, самым первым оператором программы, то есть сразу после первого begin в теле программы - в данном случае перед вызовом create_list).

Убедись, что тебе понятен смысл каждого значка - иначе в программировании нельзя. Приходи снова с вопросами.
Удачи!

Андрей, спасибо большое, все получилось. Теперь буду полученный список сортировать и т. д. в графическом режиме.

Отлично. Если что - говори. И даже если все вроде получается - все равно приноси и показывай код. Смеяться над новичками тут не принято, а показать как лучше - это завсегда.
Удач!

Всем привет!
У меня опять вопрос: ошибка в процедуре выбора элемента. Не могу понять, что не так?
Почему программа не проходит весь список, а вставляет элемент после первого?

program CreaChlist;
uses CRT;

type pt = ^elem;
	 elem = record
	 info : byte;
	 next : pt;
	 end;
var p,p1,q,first:pt;
		  M:integer;
procedure create_list(var p:pt);
var first,last,curr:pt;
	i,X:byte;
  begin
	first:=nil;
	last:=nil;
	  for i:=1 to 10 do
		begin
		  X:=Random(98)+1;
		  new(curr);
		  curr^.info:=X;
		  curr^.next:=nil;
		  if first=nil then first:=curr
			else last^.next:=curr;
		  last:=curr;
		end;
		p:=first;
  end;
{___________________________________________________________________________}
procedure Cearch_element(var q:pt); {q -seach element}
var p:pt;
	M:integer;
	begin
	  p:=first;
	  writeln('input element: ');
	  ReadLn(M);
	  while ((p^.next<>Nil) and (p^.info<>M))do
		p:=p^.next;
		if (p^.info<>M) then
		  q:=Nil
		   else
			q:=p;
	  end;

{----------------------------------------------------------------------------}
 procedure Insert(var q:pt);
 var newelem:pt;
	 X:byte;
   begin
	 New(newelem);
	 X:=Random(98)+1;
	 newelem^.info:=X;
	 newelem^.next:=q^.next;
	 q^.next:=newelem;
   end;
 {---------------------------------------------------------------------------}
  Begin
	 clrscr;
	 Randomize;
	 create_list(p1);
	 p:=p1;
	 while p<>nil do
	   begin
		 write(p^.info:4,' ');
		 p:=p^.next;
	   end;
	   writeln;
	 Cearch_element(q);
	 Insert(p1);
	 p:=p1;
	 while p<>nil do
	   begin
		 write(p^.info:4,' ');
		 p:=p^.next;
	   end;
	 ReadKey;
  End.

Потому, что ты сказала ей делать это:

Insert(p1);

Что, собственно, нужно сделать? Вставить новый элемент после найденного? А если не было найдено ничего?

Нужно было вставить новый элемент после заданного, заданный считывается но вставляется почемуто после первого. Я не могу сообразить, зациклилась. Подскажите, как, пожалуйста!

P.S. Кстати, программа вообще аварийно заканчивается (при использовании FPC любые огрехи видны очень четко: чуть что - Segmentation Fault, что в большинстве случаем замалчивается Turbo Pascal-ем, потом выдающим некорректный результат)...

Причина: наличие в программе ГЛОБАЛЬНОЙ переменной First, которая просто НЕ инициализирована... ЛОКАЛЬНАЯ переменная, описанная в Create_List ее перекрывает... Это - ошибка...

Сделала first локальной - результат тот же

Program Seachlst;
uses CRT;

type pt = ^elem;
	 elem = record
	 info : byte;
	 next : pt;
	 end;
var p,p1,q{,first}:pt;
			   M:integer;
{----------------------------------------------------------------------------}
procedure create_list(var p:pt);
var first,last,curr:pt;
	i,X:byte;
  begin
	first:=nil;
	last:=nil;
	  for i:=1 to 10 do
		begin
		  X:=Random(98)+1;
		  new(curr);
		  curr^.info:=X;
		  curr^.next:=nil;
		  if first=nil then first:=curr
			else last^.next:=curr;
		  last:=curr;
		end;
		p:=first;
  end;
{___________________________________________________________________________}
procedure Cearch_element(var q:pt); {q -seach element}
var first,p:pt;
	M:integer;
	begin
	  first:=nil;
	  p:=first;
	  writeln('input element: ');
	  ReadLn(M);
	  while ((p^.next<>Nil) and (p^.info<>M))do
		p:=p^.next;

Может дело в последней строчке?

Я сейчас пытаюсь разобраться в программе... похоже, ты не осознаёшь разницы между глобальными и локальными переменными... тебе надо разобраться с областями видимости. В частности, в твоей процедуре, которая должна производить поиск, зачем-то создаёшь новый, незаполненный список, и начинаешь пытаться в нём искать.
имхо, надо наоборот - убрать локальную first. и не только её... сейчас разберусь, скажу точнее...


И вот это еще:


Тогда уж, наверное, логичнее будет Insert(q);

Совершенно верно, с глобальными и локальными у меня вечная путаница.

И что? First, которая БЫЛА в Create_List (да, да, именно была, при выходе из Create_List стек разрушился, и этой переменной больше нет) никак не связана с First, которая существует в Cearch_element (эта переменная вообще содержит случайное значение, т.е. "мусор")...

Выходов два:
1. ЛИБО работать с глобальной переменной (так проще, но я не люблю глобальные переменные, поэтому ...)
2. ЛИБО работать не с процедурами, а с функциями возвращающими результат своей работы в вызывающую часть программы...

Самое смешное, что я ее совсем убрала из Seach_el, а программа работает как и прежде!

В общем, если уж работать с глобальным списком, тогда надо внести следующие исправления:
first и last сделать глобальными и убрать их объявления из всех подпрограмм;
p1 убрать нафик, в данном контексте программы эта переменная вообще не нужна, только запутывает.
И всё-таки заменить Insert(p1); на Insert(q);

Ничего подобного! Так она вообще ничего не ищет и не вставляет.

Смотри, насколько все проще при использовании функций:

function Cearch_element(const first: pt): pt;
var
  p: pt;
  M:integer;
begin
  Cearch_element := nil;

  write('input element: '); ReadLn(M);

  p := first;
  while ((p^.next<>nil) and (p^.info<>M))do p:=p^.next;

  if (p^.info = M) then Cearch_element := p;
end;

...

Begin
  clrscr;
  Randomize;
  create_list(p1);

  p:=p1;
  while p<>nil do begin
    write(p^.info:4,' ');
    p:=p^.next;
  end;
  writeln;

  q := Cearch_element(p1);
  { Я бы еще добавил проверку, не вернулся ли NIL }
  Insert(q);

  p:=p1;
  while p<>nil do begin
    write(p^.info:4,' ');
    p:=p^.next;
  end;
  ReadKey;
End.

Все остальное - без изменений...

Значит, где-то ещё ошибка.
Смотри, перед этим ты вызвала Cearch_element(q);
Значит, q должно указывать на нужный тебе элемент, так? И значит вставлять тебе нужно именно после q, а не после непонятного указателя p1, который вообще-то у тебя всегда указывает на начало списка, как и first

Володя, Миша спасибо большое с функцией получилось,(как-то все время, а времени то всего один прошедший семестр и предыдущий курсовик, пользовалась процедурами) переменные попробую исправить.
Не прощаюсь насовсем, предполагаю, что будет еще проблемма.
I'll be back!

Are anybody here?
Привет!
Вот та самая проблемма, которую я вчера предполагала, так сама и не додумалась.
Надо все эти действия со списком (поиск, вставка) проделать в графическом режиме.
С выводом начального списка получилось без проблем, а вот со вставкой не получается.
Не успевают написать маленький пример, вставляю всю программу.

А знаешь, почему у тебя это не получается или получается настолько сложно? Потому, что нельзя ни в коем случае перемешивать логику работы программы и ее интерфейс. Это - святой принцип, отступать от которого нельзя никогда.

Представь, что тебе понадобится немного изменить интерфейс. НО он у тебя настолько переплетен с логикой, что ты невольно будешь менять и ее, чего тебе совсем не хотелось бы. Обратное тоже верно... Я попробую покумекать над этой программой, и отделить "мух от котлет", сегодня к вечеру отпишусь, что получилось...

Спасибо, Володя.
Но, my time is over!
Прийду на сайт только завтра.
Я вот сомневаюсь можно-ли в поиске сравнивать таким образом переменные типа string?

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

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

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;

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

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

madam, что касается сравнения string'ов, то есть определенные правила. Копирую кусок из руководства к ТР:

Но кроме того, у меня совет общего характера..
Если у тебя возникает сомнение относительно применения чего-то, то наиболее простой путь - это попробовать. Быстренько варганишь прогу типа такого (в данном случае) :

- и прогоняешь ее. Потом уточняешь значения параметров или редактируешь конструкцию, перекомпилируешь - и снова..
Я понимаю, что до этого нетрудно догадаться, но иногда все же не приходит в голову..

Володя, ты просто волшебник, а я еще только учусь. Но все равно, со стыда чуть не сгорела.
Спасибо большое, теперь можно думать дальше, а то совсем головешку переклинило.
Кстати, я пока только запустила твою программу, еще не разбиралась, но после поиска она выводит на
экран не обновленный список, а новый элемент.

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

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


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

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

Должна была и выводила - это разные вещи. Запусти свой первоначальный вариант, и посмотри, что именно процедура Insert делала...

Да то же ничего хорошего не делала. Или тоже новый элемент или последний элемент списка.
Ладно, как раз сижу и разбираюсь.
Что тебе сказать по поводу твоей программы: - НЕТ ПРЕДЕЛА СОВЕРШЕНСТВУ!
В прошлом семестре сдала подобный корявый курсовик, так препод так и не поверила, что я сама
сделала, а такой шикарный и показывать страшно. Может чуть-чуть подпортить? Это шутка юмора такая.

Подпорть

Я все равно через пару часов выложу новую версию...

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

Что изменено...
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), удалены ненужные параметры, кроме того, наведен порядок в глобальных переменных (часть удалена и заменена локальными, некоторые заменены на константы)...

Вот программа:
Нажмите для просмотра прикрепленного файла

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

Нет, Volvo, ты не один, мне очень-очень интересно.
Надо же, я тебя вчера всего десять минут не дождалась. Думала ты уже ушел отдыхать.
И сегодня "... Чуть свет уж на ногах - и я у ваших ног."
Вчерашнее толь-только переварила, а ты уже новое накузюкал. Буду разбираться поновой.
Спасибо большое-пребольшое. { Мой личный смайлик: "Бурные аплодисменты, преходящие в продолжительную авацию."}

Volvo, я не поняла, зачем ты делаешь проверку на ноль значения V,
CheckValueZero? При вводе искомого элемента на ноль проверяет CheckZero,
а генерирует новый элемент Random(98)+1, так что вроде 0 неоткуда взяться, или я туплю?
И еще была переменная для значения нового элемента M, а ты ее задублировал V?

А проверку на пользователя, НЕ вводящего цифры, а сразу пробующего нажать Enter, по-твоему, делать уже не надо?

Посмотри внимательно, ГДЕ описана переменная M, и ГДЕ я проверяю CheckValueZero...

Все понятно.

Volvo, я тут умру сейчас совсем.
удалить най денный элемент. слава 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;

Нет не правда. M это элемент, который стоит перед удаленным.
Написано, что пока мы не сделали Dispose, к удаленному элементу сохраняется доступ и поэтому я его и передала по ссылке и обозвала спец-но так: temp?

Читай следующий пост...

Не поняла, что и где читать?

Читай мой предыдущий ответ, я исправил его...

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

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

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

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