Форум «Всё о Паскале» _ Задачи _ "Двунаправленный список" ---мальчики help плз.
Автор: ..::Даша::.. 13.05.2008 22:32
Приветик! :-) всем! Мне нужна маленькая помощь )
program SOD_L3; uses crt; Type mem=^element; element=record inf1:real; inf2:real; next:mem; prev:mem; end;
var first,list,key,x:mem; i,c:integer; begin clrscr; randomize; New(first); first^.next:=nil; first^.prev:=nil; first^.inf1:=random(20); first^.inf2:=random(20); x:=first; for i:=1 to 5 do begin New(x^.next); x:=x^.next; x^.inf1:=random(20); x^.inf2:=random(20); x^.next:=nil; end; {--------------------------------------} writeln(' -Spisok-'); writeln('______________________'); list:=first; c:=0; while list^.next <> nil do begin c:=c+1; write('|',c,'|',list^.inf1:6:2); writeln(' |',c,'|',list^.inf2:6:2,' |'); list:=list^.next; end; {-----------------------------------------} writeln; for i:=1 to 5 do begin while list^.next <> nil do begin if list^.inf1>0 then list^.inf2:=-1;
end; end;
Dispose(list);
readln; end.
теперь нужно доделать тока "Додати 1 елемент після елементу, перше поле якого >0 "....
Пожалуйста помогите доделать потомучно срочненько нужно :-)...
Жду ответиков :-))
Автор: ..::Даша::.. 13.05.2008 23:24
а-у-у- у может хоть хто-то ответит?! не может быть что никто не знает как помоч мне(((
Автор: compiler 14.05.2008 0:24
привет, Даша) 1) можно увидеть ВСЁ задание(можно на укр) 2) добавить надо после всех элементов удовлетворяющему условие или после первого/последнего? 3) что надо добавить?(какой элемент)
Автор: volvo 14.05.2008 0:32
Цитата
можно увидеть ВСЁ задание(можно на укр)
Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...
Автор: compiler 14.05.2008 0:44
Цитата(volvo @ 13.05.2008 20:32)
Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...
volvo, давай не offtop-ить.. Данная тема обсуждалась.. http://forum.pascal.net.ru/index.php?showtopic=20751&pid=116363&st=0entry116363 Если ты не согласен - то высказывайся по этому поводу там. Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем. Здесь был приведен урывок задания по-украински, если автору тяжело перевести, то я лучше прочитаю в оригинале чем читать не ясно что..
Автор: mind abuse 14.05.2008 0:48
Вот нечто, посмотрите:
Код
Type sp = ^s; {список} s = record i: integer; next: sp; back: sp; End;
Procedure Add_v_kon (first: sp); {добавление в конец списка} Var x, q: sp; Begin q:= first; while (q^.next<>nil) do q:=q^.next; {проходим в конец списка} New (x); {создаём новый элемент} Readln (x^.i); q^.next:= x; {ссылаемся на новый элемент} x^.next:= nil; x^.back:= q; End; Procedure Add_v_nach (var first: sp); {добавление в начало} Var x: sp; Begin New (x); Writeln ('?'); Readln (x^.i); x^.back:= nil; x^.next:= first; first:= x; End; Procedure Add_tuda_pered (first: sp; k: integer); {добавление перед к-атым элементом} Var h: integer; x, p, q: sp; Begin q:= first; For h:=1 to k-2 do q:= q^.next; New (x); Writeln ('?'); Readln (x^.i); p:= q^.next; x^.back:= q; q^.next:= x; q:= p; x^.next:= p; q^.back:= x; End; Procedure Add_tuda_posle (first: sp; k: integer); {добавление после к-атого элемента} Var h: integer; x, p, q: sp; Begin q:= first; For h:=1 to k-1 do q:= q^.next; New (x); Writeln ('?'); Readln (x^.i); p:= q^.next; q^.next:= x; x^.next:= p; x^.back:= q; q:= p; q^.back:= x; End;
Procedure Del_to (var first: sp; k: integer); {удалить к-атый элемент} Var p, q: sp; h: integer; Begin If k<>1 then Begin q:= first; For h:= 1 to k-2 do q:= q^.next; p:= q^.next; q^.next:= p^.next; q:= p^.next; q^.back:= p^.back; Dispose (p); End else Begin p:= first; first:= first^.next; Dispose (p); q:= first; q^.back:= nil; End; End;
Ну и конечно http://forum.pascal.net.ru/index.php?showtopic=2706
Автор: volvo 14.05.2008 0:58
Цитата
Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем.
Вся фишка - в том, что ТЫ знаешь украинский, может еще несколько человек... Форум русскоязычный, если мне не изменяет зрение...
Цитата
Если ты не согласен - то высказывайся по этому поводу там.
Благодаря некоторым высказываниям (тебе напомнить, ЧЬИМ???) у меня ОЧЕНЬ ограничено перемещение по разделам форума! То, что раздел доступен ТЕБЕ еще не значит, что он доступен всем... И не надо мне указывать, где оффтоп, а где нет, я как-нибудь сам разберусь...
Автор: Айра 14.05.2008 1:17
Цитата
мальчики help плз
И как наши мальчики кинулись отвечать.. С чего б такое рвение?
Цитата
если автору тяжело перевести
Чет не похоже, что автору это сложно..
Автор: мисс_граффити 14.05.2008 1:37
Цитата
мальчики help плз.
Оль, наша помощь автору темы не нужна Хочется ей дискриминацию устраивать - пусть, правилами это не запрещено.
помощь людей, не знающих украинский, тоже не нужна - ее право. может, принципы у нее такие - общаться только с украиноговорящими мальчиками...
это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.
Автор: renesko1 14.05.2008 1:43
А я вот специально не отвечал . Я считаю, что такая форма общения :
Код
мальчики help плз
и тд. несколько бесцеремонна и может вызвать отрицательные мысли у участников форума. Извеняюсь что пост не по существу вопроса и сугубо субьективный.
Автор: andriano 14.05.2008 15:37
[off]
Цитата(мисс_граффити @ 13.05.2008 22:37)
Оль, наша помощь автору темы не нужна ... это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.
Юль, тут еще надо разобраться, Даша - это сокращение от Дмитрий, Даниил или Дарий, а также чья именно выложена фотка. [/off]
[off]Наиболее разумным для плохо владеющих русским языком авторов представляется выкладывать текст на 2-3 языках: родном, а также свой вариант перевода на русский и английский. [/off]
Автор: Lapp 14.05.2008 15:57
Даша'е сделано предопреждение по поводу фото. Также предлагается изменить название темы на более уважительное. Тема закрыта до разрешения конфликта.