Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Винарский 16_30_д}
- program reclist(input,output);
- type
- list=^node;
- node=record
- elem: integer;
- next: list
- end;
- var L: list; E,E1: integer;
- procedure init(var L: list);
- var x,y: list; c: integer;
- begin
- L:=nil;
- read(c);
- if(c<>0) then
- begin
- new(x);
- x^.elem:=c;
- x^.next:=nil;
- L:=x;
- read(c);
- while(c<>0) do
- begin
- new(x^.next);
- x:=x^.next;
- x^.next:=nil;
- x^.elem:=c;
- read(c);
- end;
- end;
- end;
- procedure insert(var L: list;E1,E2: integer);
- begin
- if(L<>nil) then
- begin
- if(L^.elem=E1) then
- L^.elem:=E2;
- insert(L^.next,E1,E2);
- end;
- end;
- procedure printL(L: list);
- begin
- if(L<>nil) then
- begin
- write(L^.elem,' ');
- printL(L^.next);
- end;
- end;
- begin
- init(L);
- read(E,E1);
- insert(L,E,E1);
- printL(L);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement