|
Вопрос # 2 218/ вопрос открыт / |
|
Здравствуйте! программа на однонапрвленные списки. дан список В, который состоит из записей: первое поле - слова из 10 букв, второе - адрес следующего элемента. Нужно составить подпрограмму для удаления последнего элемента из списка.програмку вроде бы составила,но как понять правильно ли не знаю. подскажите,возможно необходимо что-то вывести на экран?
Приложение: Переключить в обычный режим- program Project2;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- type spB=^elem;
- elem=record
- info:string;
- next:spB;
- end;
- var x,u,dx:spB;
- begin
- x:=u;
- dx:=u;
- while x^.next<>nil do
- begin
- dx:=x;
- x:=x^.next;
- end;
- dx^.next:=nil;
- dispose (x);
- { TODO -oUser -cConsole Main : Insert code here }
- end.
-
 |
Вопрос задала: 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 (статус: Посетитель), 20 декабря 2008, 00:57 [#2]:
тоесть нужно вывести 'х^.info' ? что же тогда вводить?
|
|
min@y™ (статус: Доктор наук), 20 декабря 2008, 10:09 [#3]:
А вводить нужно от балды любую информацию, например
x^.info:= 'Строка ' + IntToStr(номер_элемента_в_списке)
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
kritika (статус: Посетитель), 20 декабря 2008, 12:41 [#4]:
всёравно не понимаю как это записать
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
