IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Линейный список, Создать с помщью Randomize
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский
Реальное имя: Наталья

Репутация: -  1  +


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

Сообщение отредактировано: Madam -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цитата
А потом пытаюсь вывести удаленный (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   Линейный список   28.09.2006 17:03
lapp   Наташа, пожалуйста, создавай для новой задачи нову…   28.09.2006 17:34
Madam   Здравствуйте уважаеммый Андрей! Спасибо за отв…   29.09.2006 13:38
lapp   Прошу прощения за ошибки Да какие там ошибки - не…   29.09.2006 17:46
Madam   Андрей, спасибо большое, все получилось. Теперь бу…   3.10.2006 12:46
lapp   Теперь буду полученный список сортировать и т. д.…   3.10.2006 15:21
Madam   Отлично. Если что - говори. И даже если все врод…   5.10.2006 15:01
volvo   Вот простейшая процедура создания списка (все, что…   29.09.2006 13:43
volvo   Потому, что ты сказала ей делать это:Insert(p1); …   5.10.2006 15:10
Madam   Что, собственно, нужно сделать? Вставить новый эле…   5.10.2006 15:16
volvo   P.S. Кстати, программа вообще аварийно заканчивает…   5.10.2006 15:17
Madam   Причина: наличие в программе ГЛОБАЛЬНОЙ переменной…   5.10.2006 15:32
Atos   Я сейчас пытаюсь разобраться в программе... :nea:…   5.10.2006 15:58
Madam   Я сейчас пытаюсь разобраться в программе... :nea…   5.10.2006 16:01
Madam   Я сейчас пытаюсь разобраться в программе... :nea…   5.10.2006 16:20
volvo   :blink: И что? First, которая БЫЛА в Create_List …   5.10.2006 16:06
Madam   :blink: И что? First, которая БЫЛА в Create_List …   5.10.2006 16:16
Atos   В общем, если уж работать с глобальным списком, то…   5.10.2006 16:19
volvo   Смотри, насколько все проще при использовании функ…   5.10.2006 16:21
Atos   Значит, где-то ещё ошибка. Смотри, перед этим ты …   5.10.2006 16:32
Madam   Значит, где-то ещё ошибка. Смотри, перед этим ты …   5.10.2006 16:53
Madam   Володя, Миша спасибо большое с функцией получилось…   6.10.2006 16:07
volvo   А знаешь, почему у тебя это не получается или полу…   6.10.2006 16:40
Madam   А знаешь, почему у тебя это не получается или пол…   6.10.2006 16:45
lapp   Я вот сомневаюсь можно-ли в поиске сравнивать так…   7.10.2006 9:56
volvo   Значит, так... :wacko: Вот я и пришел с первонача…   7.10.2006 6:55
Madam   Володя, ты просто волшебник, а я еще только учусь.…   7.10.2006 14:00
volvo   А что она раньше выводила? А я ведь говорил: я не…   7.10.2006 14:20
Madam   А что она раньше выводила? А я ведь говорил: А т…   7.10.2006 14:52
volvo   Должна была и выводила - это разные вещи. Запусти …   7.10.2006 15:18
Madam   Должна была и выводила - это разные вещи. Запусти…   7.10.2006 15:42
volvo   Подпорть :blum: Я все равно через пару часов вы…   7.10.2006 16:01
volvo   Вот и очередное обновление... Что изменено... 1. …   7.10.2006 18:57
Madam   Нет, Volvo, ты не один, мне очень-очень интересно.…   8.10.2006 10:08
Madam   Volvo, я не поняла, зачем ты делаешь проверку на н…   8.10.2006 13:39
volvo   А проверку на пользователя, НЕ вводящего цифры, а …   8.10.2006 14:24
Madam   А проверку на пользователя, НЕ вводящего цифры, а…   8.10.2006 14:32
Madam   Volvo, я тут умру сейчас совсем. удалить най денны…   8.10.2006 16:22
volvo   Ну, так правильно... Тебе, чтобы вывести только ч…   8.10.2006 16:45
Madam   ...не правда ли? Нет не правда. M это элемент, к…   8.10.2006 16:59
Madam   Вот так исправляем: Все получилось, забыла в мен…   8.10.2006 17:37
Madam   Все получилось, забыла в меню обратно исправить …   8.10.2006 19:04
volvo   Читай следующий пост...   8.10.2006 17:09
Madam   Не поняла, что и где читать?   8.10.2006 17:15
volvo   Читай мой предыдущий ответ, я исправил его...   8.10.2006 17:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 18:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name