Помогите дописать программку, просто уже долго парюсь с ней
Задание: создать 2 односвязных списка и проверить не совпадают ли они.
Буду очень благодарен любым советам по теме, вот что я накалякал:
PHP код:
program lr7;
uses crt;
type
point=^s;
s=record
data:string***91;10***93;;
next:point;
end;
type
point2=^s1;
s1=record
data2:string***91;10***93;;
next2:point2;
end;
var
x,p:point;
y,p2:point2;
flag,i:integer;
begin
clrscr;
{----------------------------------------------}
writeln('Введите 1 список: ');
for i:=1 to 2 do
begin
new(x);
write('Введите ',i,'-ую cтроку: ');
readln (x^.data);
end;
x:=p;
{----------------------------------------------}
writeln;
writeln('Введите 2 список:');
for i:=1 to 2 do
begin
new(y);
write ('Введите ',i,'-ую строку: ');
readln (y^.data2);
y:=p2;
end;
{----------------------------------------------}
begin
flag:=0;
for i:=1 to 2 do
while x^.next<>nil do
begin
if x^.data=y^.data2 then;
begin
flag:=flag+1;
x:=x^.next;
y:=y^.next2;
end;
end;
end;
writeln ('flag=',flag);
if flag=2 then
writeln('Списки совпадают!')
else writeln('Списки не совпадают!');
readkey
end.
Добавлено через 32 минуты
ессно моя программка не работеет ) ....ошибок не каких не говорит