Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 218

/ вопрос открыт /

Здравствуйте! программа на однонапрвленные списки. дан список В, который состоит из записей: первое поле - слова из 10 букв, второе - адрес следующего элемента. Нужно составить подпрограмму для удаления последнего элемента из списка.програмку вроде бы составила,но как понять правильно ли не знаю. подскажите,возможно необходимо что-то вывести на экран?

Приложение:
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. type spB=^elem;
  8. elem=record
  9. info:string;
  10. next:spB;
  11. end;
  12. var x,u,dx:spB;
  13. begin
  14. x:=u;
  15. dx:=u;
  16. while x^.next<>nil do
  17. begin
  18. dx:=x;
  19. x:=x^.next;
  20. end;
  21. dx^.next:=nil;
  22. dispose (x);
  23. { TODO -oUser -cConsole Main : Insert code here }
  24. end.
  25.  


kritika Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: kritika (статус: Посетитель)
Вопрос отправлен: 20 декабря 2008, 00:26
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 20 декабря 2008, 12:41; участников в обсуждении: 3.
Вадим К

Вадим К (статус: Академик), 20 декабря 2008, 00:46 [#1]:

Код удаления последнего элемента похож на правду.
Попровил бы следующее
в обявлении структуры
type spB=^elem;
     elem=record
     info:string[10];
     next:spB;
     end;
по условию ведь сказано что символов в строке должно быть 10.
Во вторых, наверно надо организовать ввод данных и вывод результата - без этого программа лишена смысла.
Любая программа должна содержать ввод данных (пусть даже неявный), обработку и вывод результата (иначе зачем работали?).
Галочка "подтверждения прочтения" - вселенское зло.
kritika

kritika (статус: Посетитель), 20 декабря 2008, 00:57 [#2]:

тоесть нужно вывести 'х^.info' ? что же тогда вводить?
min@y™

min@y™ (статус: Доктор наук), 20 декабря 2008, 10:09 [#3]:

А вводить нужно от балды любую информацию, например
x^.info:= 'Строка ' + IntToStr(номер_элемента_в_списке)
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
kritika

kritika (статус: Посетитель), 20 декабря 2008, 12:41 [#4]:

всёравно не понимаю как это записать

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 10 апреля 2020, 02:46
Выполнено за 0.02 сек.
Рейтинг@Mail.ru