Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ "Двунаправленный список" ---мальчики 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=0&#entry116363 Если ты не согласен - то высказывайся по этому поводу там.Если у меня будет задача дописать программу на языке 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;
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
Даша'е сделано предопреждение по поводу фото.
Также предлагается изменить название темы на более уважительное.
Тема закрыта до разрешения конфликта.