1) Sobre Listas Generalizadas
2) Implemente a função abaixo, a qual determina se duas listas são iguais,
assumindo que listas são não recursivas e compartilhadas.
Teste o programa
incluindo para as listas:
Function Igual (S,T: Lista) : boolean Var resp:boolean; Begin resp:=false; If (S=nil ) and (T=nil) Then resp:=true; Else If (S<>nil) and (T<>nil) Then If ((S^.tag = T^.tag) Begin If (S^.tag=false) Then resp:=(S^.atomo, T^.atomo) Else resp:= igual(S^.pont, T^.pont); If resp Then resp:=igual(S^.cauda, T^.cauda); End; igual:=resp; End;
Implemente um programa que possua procedimentos com, funções de: