Znajdź błąd w pseudokodzie

Question

Znajdź błędy w pseudokodzie
 

List-Insert(L,x)
	if head[L]=NIL then
		head[L]:=x; next[x]:=NIL;
	else 
		y:=head[L];z:=NIL;
		while(y!=NIL)and(key[x]>key[y]) do 
			z:=y;
			y:=next[y];
		end while
		next[x]:=y;
		next[z]:=x;
	end if

List-Del(L,x)
	if head[L]!=NIL then
		if head[L]=x then 
			head[L]:=next[x];
		else 
			y:=head[L];
			while(next[y]!=x) do 
				y:=next[y];
			end while
			next[y]:=next[x];
		end if
	end if

Próbowałem przepisać ten pseudokod na język programowania taki jak Pascal czy C
i okazało się że są w nim błędy
Ciekawy jestem gdzie one są i jak je poprawić
 

Comments

To jakaś forma rozkazu czy jak ??

---

bez spiny

---

@Mariusz M, Co to jest NIL ?

 

Answer 1

Dziwny zapis w tym pseudokodzie stosujecie.

(key[x]>key[y]) <- tutaj jest błąd. Nie masz jeszcze tego x na liście, więc nie istnieje polecenie key[x] , bo ono jest nilem. To pierwszy błąd który napotkałem dalej nie sprawdzałem.

Comments

Błąd jest gdzie indziej to jest porównywanie pola kluczowego w węźle
który ma być wstawiony z polami kluczowymi węzłów które już są na liście
Ten fragment jest ok bo chodzi o to aby wstawić węzeł w odpowiednie miejsce
Na upartego to rzeczywiście można było dać zmienną lokalną zamiast x
a x użyć tylko do ustawienia pól z danymi w utworzonym węźle
co zrobiłem w kodzie jednak to nie o to chodziło

Answer 2

Daj kod C albo Pascala to ci powiem co jest źle. Bo tak na podstawie pseudokodu będzie ciężko ; P

Answer 3

Oto kod źródłowy na podstawie tego pseudokodu

 

program listajednokierunkowa;
uses crt;
type TLine=
		record 
			number:integer;
			line:string;
		end;
		PNode=^TNode;
		TNode=
		record
			data:TLine;
			next:PNode;
		end;
procedure insertNode(var head:PNode;x:TLine);
var newNode,y,z:PNode;
begin
	new(NewNode);
	newNode^.data.number:=x.number;
	newNode^.data.line:=x.line;
	if(head=nil) then 
	begin
		head:=newNode;
		newNode^.next:=nil;
	end
	else
	begin
		y:=head;
		z:=nil;
		while((y<>nil)and(newNode^.data.line>y^.data.line) do 
		begin
			z:=y;
			y:=y^.next;
		end;
		newNode^.next:=y;
		z^.next:=newNode;
	end;
end;
		
procedure deleteNode(var head:PNode;x:PNode);
var y:PNode;
begin
	if(head<>nil) then
		if(head=x) then 
			begin
				head:=x^.next;
				dispose(x);
			end
		else
			begin
				y:=head;
				while(y^.next<>x) do 
					y:=y^.next;
				y^.next:=x^.next;
				dispose(x);
			end;
end;	

function findNode(head:PNode;x:TLine):PNode;
var p:PNode;
begin
	p:=head;
	while(p<>nil)and not((p^.data.number=x.number)and(p^.data.line=x.line)) do 
		p:=p^.next;
	findNode:=p;
end;

procedure printList(head:PNode);
var p:PNode;
begin
	p:=head;
	while(p<>nil) do 
	begin
		writeln(p^.data.number,' ',p^.data.line);
		p:=p^.next;
	end;
end;

var l:TLine;
	list:PNode;
	f:text;
	i:integer;
	path:string;
	

begin
	clrscr;
	writeln('Podaj sciezke do pliku');
	readln(path);
	assign(f,path);
	reset(f);
	i:=1;
	while not eof(f) do
	begin
		readln(f,l.line);
		l.number:=i;
		insertNode(list,l);
		i:=i+1;
	end;
    close(f);
	printList(list);
	readkey;
	while(head<>nil) do 
		deleteNode(head,head);
end.