 Чуть-чуть доделать программку! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Dmitriy_Rus |
 22.12.2010 19:53
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Дмитрий Репутация:  0   |
Помогите пожалуйста чуть-чуть доделать программку.
по заданию нужно Написать программу, которая удаляет из линейного списка входной последовательности целых чисел- первый элемент. начало вроде правильное: Program Dima;
Type el=^zap;
zap=record
D:real;
L:el
end;
Var F,W:el;
далее построение списка тоже получается: {postroit spisok}
Procedure GreateFIFO (Var F:el);
Var W:el;
begin
new (F);
read (F^.D);
W:=F;
while not eof do
begin
new (W^.L);
W:=W^.L;
read (W^.D)
end;
W^.L:=nil
end;
вывод того же списка тоже происходит: {vivod spiska}
Procedure OutList (F:el);
Var W:el;
begin
W:=F;
while W<>nil do
begin
write (W^.D);
W:=W^.L
end
end;
но вот первый элемент не удаляется, подскажите что тут исправить, чтобы удалялся: {udalenie 1 elementa}
Function Del1 (Var P:el):el;
begin
Del1:=P;
P:=P^.L
end;
begin
GreateFIFO (F);
OutList(F)
end.
Сообщение отредактировано: Dmitriy_Rus - 22.12.2010 19:59 |
   |
 
|
  |
Ответов(1 - 5)
| Гость |
22.12.2010 20:59
Сообщение
#2
|
|
Гость |
Ты между GreateFIFO и OutList Del1 пропустил.
Если ты имел в виду то, что неверно работает процедура удаления попрубуй так (если верно не пробуй):
Function Del1 (Var P:el):el;
begin
P:=P^.L;
Del1:=P;
end;
|
|
|
|
| Dmitriy_Rus |
22.12.2010 21:13
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
Сама программа запускается и работает, но
процедура удаления вообще не работает  просто ввожу числа, и исходный список из них же и выдается, первое число не удаляется Сообщение отредактировано: Dmitriy_Rus - 22.12.2010 21:14 |
|
|
|
| volvo |
22.12.2010 21:30
Сообщение
#4
|
|
Гость |
Цитата просто ввожу числа, и исходный список из них же и выдается, первое число не удаляется Ты где-то просил удалять первый элемент? Создать список - просил, вижу вызов GreateFIFO. Вывести - просил, вызов OutList тоже вижу. Где вызов Del1? |
|
|
|
| Dmitriy_Rus |
22.12.2010 21:59
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
всё, я разобрался. спасибо.
Сообщение отредактировано: Dmitriy_Rus - 22.12.2010 22:08 |
|
|
|
| Lapp |
23.12.2010 8:57
Сообщение
#6
|
 Уникум  Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(Dmitriy_Rus @ 22.12.2010 21:59)  всё, я разобрался. спасибо. ставлю volvo +1 от Dmitriy_Rus -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.07.2025 12:40 |