IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> "Двунаправленный список" ---мальчики help плз., Маленькая помощь "Двунаправленный список"
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Женский
Реальное имя: Даша

Репутация: -  0  +


Приветик! :-) всем!
Мне нужна маленькая помощь )


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 "....

Пожалуйста помогите доделать потомучно срочненько нужно :-)...

Жду ответиков :-))


--------------------
// Дарья - сильная, побеждающая.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Женский
Реальное имя: Даша

Репутация: -  0  +


а-у-у- у
может хоть хто-то ответит?!
не может быть что никто не знает
как помоч мне(((


--------------------
// Дарья - сильная, побеждающая.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


привет, Даша)
1) можно увидеть ВСЁ задание(можно на укр)
2) добавить надо после всех элементов удовлетворяющему условие или после первого/последнего?
3) что надо добавить?(какой элемент)


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
можно увидеть ВСЁ задание(можно на укр)
Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(volvo @ 13.05.2008 20:32) *
Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...
volvo, давай не offtop-ить.. Данная тема обсуждалась.. Национальные языки Если ты не согласен - то высказывайся по этому поводу там.
Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем.
Здесь был приведен урывок задания по-украински, если автору тяжело перевести, то я лучше прочитаю в оригинале чем читать не ясно что..




--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Студент
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Владимир

Репутация: -  3  +


Вот нечто, посмотрите:
Код
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;


Ну и конечно Все о динамических структурах данных.


--------------------
...Чего-то хотелось: не то конституции, не то севрюжины с хреном, не то кого-нибудь ободрать.
(М. Е. Салтыков-Щедрин)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Цитата
Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем.
Вся фишка - в том, что ТЫ знаешь украинский, может еще несколько человек... Форум русскоязычный, если мне не изменяет зрение...

Цитата
Если ты не согласен - то высказывайся по этому поводу там.
Благодаря некоторым высказываниям (тебе напомнить, ЧЬИМ???) у меня ОЧЕНЬ ограничено перемещение по разделам форума! mad.gif То, что раздел доступен ТЕБЕ еще не значит, что он доступен всем... И не надо мне указывать, где оффтоп, а где нет, я как-нибудь сам разберусь...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
мальчики help плз

И как наши мальчики кинулись отвечать.. С чего б такое рвение?

Цитата
если автору тяжело перевести

Чет не похоже, что автору это сложно.. nea.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Цитата
мальчики help плз.

Оль, наша помощь автору темы не нужна smile.gif
Хочется ей дискриминацию устраивать - пусть, правилами это не запрещено.

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

это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


А я вот специально не отвечал .
Я считаю, что такая форма общения :
Код
мальчики help плз
и тд. несколько
бесцеремонна и может вызвать отрицательные мысли у участников форума.
Извеняюсь что пост не по существу вопроса и сугубо субьективный.


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


[off]
Цитата(мисс_граффити @ 13.05.2008 22:37) *

Оль, наша помощь автору темы не нужна smile.gif
...
это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.
Юль, тут еще надо разобраться, Даша - это сокращение от Дмитрий, Даниил или Дарий, а также чья именно выложена фотка.
[/off]

[off]Наиболее разумным для плохо владеющих русским языком авторов представляется выкладывать текст на 2-3 языках: родном, а также свой вариант перевода на русский и английский.
[/off]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Даша'е сделано предопреждение по поводу фото.
Также предлагается изменить название темы на более уважительное.
Тема закрыта до разрешения конфликта.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name