-
> Тын-Дын © (20.12.08 16:59) [18]
>А код путь будет копи- паст. Жалко?
Жалко. Пока сам не напишешь, САМ, понимаешь, с нуля! Не поймешь. А скопипастить, даже разобрать - не то это. Повторить скопи-пастеное довольно трудно. А написать отличающееся буквально парой строк - вообще засада.
-
Удалено модератором
-
> Denis__ © (20.12.08 17:16) [20]
> > Тын-Дын © (20.12.08 16:59) [18] >А код путь будет копи-
> паст. Жалко? Жалко. Пока сам не напишешь, САМ, понимаешь,
> с нуля! Не поймешь. А скопипастить, даже разобрать - не
> то это. Повторить скопи-пастеное довольно трудно. А написать
> отличающееся буквально парой строк - вообще засада.
Вот когда появится хоть какой-то опыт, тогда и разберётся.
-
Да и не жалко мне. Небольшая разминка для мозгов не повредит.
10-15 минут развлечения по написанию кода - полезно иногда.
-
> Вот когда появится хоть какой-то опыт, тогда и разберётся.
Сначала опыт, потом знания? Оригинально!
-
ТЕБЕ не повредит. А тому, кто просил?
-
> Denis__ © (20.12.08 17:20) [25]
> ТЕБЕ не повредит. А тому, кто просил?
Здесь не курсы по обучению.
Каждый может попрость и код дать, и совет.
Так же точно и ответить могут. Кто написать конкретный код, а кто совет дать.
Абсолютно неважно.
Не стоит считать себя учителем.
-
> Denis__ © (20.12.08 17:20) [25]
> ТЕБЕ не повредит. А тому, кто просил?
Эх, Денис. Тут уж ничего никому не повредит.
А код - пусть уж будет, мало ли его в инете.
И не факт, что его прочитают или применят.
Кста, на наши тусовки и преподы заходят :)
--
Regards, LVT.
-
> Не стоит считать себя учителем.
Гыыыы)))) Да я и не считаю. Просто мне кажись, мозги начали вправлять в универе. Да и тут тоже, спасибо отдельным людям.
> Leonid Troyanovsky © (20.12.08 17:32) [27]
> Эх, Денис. Тут уж ничего никому не повредит.А код - пусть
> уж будет, мало ли его в инете.И не факт, что его прочитают
> или применят.Кста, на наши тусовки и преподы заходят :)
Поиск в инете - тоже обучение)) Помню, год-два назад я тут тоже код выпрашивал. и на ДК. и на исходниках)) Каюсь. Списки и др. динамические недавно только понял. Почитал, кстати Вирта и т.д. А главное - самому писать.
-
> Denis__ © (20.12.08 17:43) [28]
Ты исходишь немного не из тех предпосылок по поводу кода в инете.
Подумай на досуге - почему авторы книг в своих текстах не только приводят готовый рабочий код, но и прикладывают диски с исходниками?
Ведь оттуда ещё проще скопировать код - и искать не надо.
На самом деле значительно проще изучать готовый исходник. С этого и начинается в большинстве случаев обучение. После просмотра, изучения кода, попыток написания собственного, и начинается уже собственно учёба.
-
> Тын-Дын © (20.12.08 18:00) [29]
> С этого и начинается в большинстве случаев обучение. После
> просмотра, изучения кода, попыток написания собственного,
> и начинается уже собственно учёба.
В большинстве случаев - белые начинают и заканчивают.
Ну, а, собс-но, учеба никогда не заканчивается.
--
Regards, LVT.
-
> Leonid Troyanovsky (20.12.2008 18:22:30) [30]
Давайте с вопросами давать код или нет в Прочее.
-
> Давайте с вопросами давать код или нет в Прочее.
Давайте сами участники будут сами решать, дать код или нет.
Это все таки форум.
-
Весело у вас тут :)
Nostalgia наверное в шоке)
-
> antonn © (20.12.08 22:00) [32]
Они и решают, а вот обсуждение данного вопроса решают модераторы.
-
мдя....не то слово в шоке...
-
а почему код такой большой?? просто препад говорил , что он должен быть буквально в пару строк...
-
> 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;
-
pCurrElement := RootElement;
while pCurrElement^.next^.next<>nil do pCurrElement := pCurrElement^.next;
Dispose(pCurrElement^.next);
pCurrElement^.next := nil;
Result := pCurrElement;
end;
-
вряд ли этот код пойдёт.....мне лабораторную работу сдавать.......и обьяснять. классы например мы пока не проходили. код написала ещё вчера... но не понимаю, что нужно вводить и выводить.точнее знаю.....не знаю как правильно оформить. подскажите если не сложно. вот код:
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.