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

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

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

 
 Ответить  Открыть новую тему 
> Удаление элемента с начала списка
сообщение
Сообщение #1


Пионер
**

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

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


Здравствуйте!
Составить процедуру, определяющуювхождение списка L1 в список L2 и наоборот. Если один из списков длиннее, удалить лишние элементы из его начала. Используя процедуру, проанализировать пары списков М1 и М2, N1 и N2.

 
Program Spisok;
Uses CRT;
Type
TData=integer;
PLink=^TElement;
TElement=Record
Data:TData;
Link:PLink;
End;

Procedure InPutList(n: integer; Var List:PLink);
Var
ElNew:PLink;
Value:TData;
i:Integer;
Begin

{ List:=NIL;}
For I:=1 To n Do
Begin
WriteLn('vvedite ',i,' element');
Read(value);
New(ElNew);
ElNew^.Data:=Value;
ElNew^.Link:=List;
List:=ElNew;


End;
End;
{----------------}
Procedure OutPutList(List:PLink);
Var
i:integer;
Begin
WriteLn('element spiska ');
While List <> NIL Do
Begin
Write(List^.Data,' ');
List:=List^.Link;
End;
WriteLn;
End;
{----------------}

Var
List1,List2,Elem,NewElem:PLink;
o,i,n,p,m:Integer;
ff:boolean;


Begin
ClrScr;
WriteLn('vvedite kol-vo elementov spiska ');
ReadLn(n);
WriteLn('vvedite kol-vo elementov spiska ');
ReadLn(m);

InPutList(n,List1);
InPutList(m,List2);
Writeln;
OutPutList(List1);
Writeln;
OutPutList(List2);
i:= 0;

While List1 <> nil do
Begin
If List1^.Data <> List2^.Data then
Begin
Writeln('ne vhodit 1 v 2');
ff:= True;
break
End;
List1:= List1^.Link;
List2:= List2^.Link;
End;

While List2 <> nil do
Begin
If List2^.Data <> List1^.Data then
Begin
Writeln('ne vhodit 2 v 1');
ff:= False;
break
End;
List1:= List1^.Link;
List2:= List2^.Link;
End;

If m > n Then o:= m-n else o:= n-m;

{ вот с этого момента я не могу понять
в чем моя ошибка}


New(NewElem);
If ff = True Then
for i:= 1 to o do
Begin
List1:= NewElem;
NewElem:= NewElem^.Link;
Dispose(NewElem);
end;
writeln('@@');
Outputlist(List1);
keypressed;
End.


Сообщение отредактировано: dream-x -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


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

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

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


В общем, я вот накидал нужные процедурки, смотри, тестируй, разбирайся, задавай вопросы..
function IsIn(l, s : PLink):boolean;
{ l in s = ? }
function IsInBeg(l, s : PLink):boolean;
var
b : boolean;
begin
b := true;
while (l <> nil) and (s<>nil) and b do begin
If l^.Data <> s^.Data then b:=false;
l:= l^.Link;
s:= s^.Link;
end;
isinbeg:= b and s=nil;
end; { IsInBeg }
var
b : boolean;
begin
b := false;
if s<>nil then
while (l <> nil) and (not b) do begin
If l^.data = s^.data then b:=isinbeg(l^.link, s^.link);
(*if not b do*)
l:= l^.link;
end;
end; { IsIn }

procedure delf(var l : PLink; const n : integer);
procedure delfirst(var l : PLink);
var p_old : PLink;
begin
p_old:=l;
l:=l^.link;
dispose(p_old);
end; { delfirst }
var i : integer;
begin
for i:=1 to n do
(*if l<>nil then*)
delfirst(l);
end; { delf }

и про освобождение памяти не забудь..

Сообщение отредактировано: volvo -


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

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

 





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