Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

однонаправленные списки [D7, XP]

Страницы: 1 2 3 >
Nostalgia © (2008-12-19 21:56:00)
Здравствуйте! подскажите как сделать данное задание. Дан список В, который состоит из записей: первое поле - слова из 10 литер, второе - адрес следующего элемента. нужно составить программу для удаления последнего элемента списка.

Nostalgia (2008-12-20 23:51:00) [1]
да уж......тогда зачем вообще такой форум...

Nostalgia (2008-12-20 23:48:00) [2]
но не всё же делать самостоятельно??? иначе смысл учится в ВУЗе, если всё можно сделать и самому

oxffff (2008-12-20 23:48:00) [3]

> Nostalgia © (20.12.08 23:33) [48]
> специальность ---"компьютерные системы и сети"

Тогда делайте сами.
Ну не можем же мы себе конкурентов плодить с количественной точки зрения. Без обид, каждому свое.

Игорь Шевченко (2008-12-20 23:42:00) [4]

> времени на все лабы не хватает....много задают.мозги уже
> не варят, причём и у одногруппников тоже

Это беда. Но, насколько я понимаю, легкой жизни никто не обещал, нес па ?

Кроме того, осмелюсь напомнить, что лабы вообще-то предназначены для самостоятельного выполнения, а не для клянченья на форумах.

Nostalgia (2008-12-20 23:42:00) [5]
кстати одного препеда по программированию мы отправили в отставку, так как он ниче не обьяснял...теперь сложно доганять...по 10 лаб на день, на разные темы

Nostalgia (2008-12-20 23:36:00) [6]
> э...мозги/одногруппники/преподаватели не подходит ?
времени на все лабы не хватает....много задают.мозги уже не варят, причём и у одногруппников тоже

Nostalgia (2008-12-20 23:33:00) [7]
специальность ---"компьютерные системы и сети"

Тын-Дын (2008-12-20 23:33:00) [8]

> Nostalgia © (20.12.08 23:29) [44]
> а что ещё остаётся делать???!

1. готовиться к лабам заранее.
2. Разобрать код, который привели в топике и написать то, что нужно.

oxffff (2008-12-20 23:32:00) [9]

> Nostalgia © (20.12.08 23:29) [44

Вы на кого учитесь?

Игорь Шевченко (2008-12-20 23:32:00) [10]

> а что ещё остаётся делать???!

э...мозги/одногруппники/преподаватели не подходит ?

Nostalgia (2008-12-20 23:29:00) [11]
а что ещё остаётся делать???!

Игорь Шевченко (2008-12-20 23:27:00) [12]
вот до чего техника образования дошла - лабы на форуме делают, да еще и объяснить просят.

Nostalgia (2008-12-20 23:13:00) [13]
обьясните попроще...

Anatoly Podgoretsky (2008-12-20 23:11:00) [14]

> x:=u;
> dx:=u;

u не инициализирован, но дальше идет попытка его использования.
Поскольку это глобальная переменная, то начальное значение nil
и while x^.next<>nil doдолжно вызвать AV поскольку nil.next

Palladin (2008-12-20 23:08:00) [15]
хм... такого я не предполагал... что аж в прочее :) отлично помогли. закрепили делом перестройку. :)

Nostalgia (2008-12-20 23:05:00) [16]
вряд ли этот код пойдёт.....мне лабораторную работу сдавать.......и обьяснять. классы например мы пока не проходили. код написала ещё вчера... но не понимаю, что нужно вводить и выводить.точнее знаю.....не знаю как правильно оформить. подскажите если не сложно. вот код:
program lab26_z3_odn_spiski;

{$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.

Тын-Дын (2008-12-20 23:02:00) [17]
pCurrElement := RootElement; while pCurrElement^.next^.next<>nil do pCurrElement := pCurrElement^.next; Dispose(pCurrElement^.next); pCurrElement^.next := nil; Result := pCurrElement; end;

Тын-Дын (2008-12-20 23:00:00) [18]

> Nostalgia © (20.12.08 22:53) [36]
> а почему код такой большой?? просто препад говорил , что
> он должен быть буквально в пару строк...

А тут и написана пара строк.

function DeleteLastElement: PElement; var pCurrElement: PElement; begin Result := nil; if RootElement=nil then Exit; if RootElement^.next=nil then begin Dispose(RootElement); RootElement := nil; Exit; end;

Nostalgia (2008-12-20 22:53:00) [19]
а почему код такой большой?? просто препад говорил , что он должен быть буквально в пару строк...

Nostalgia (2008-12-20 22:47:00) [20]
мдя....не то слово в шоке...

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »