Очереди.
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Помоги плизз, с очередью. Надо найти 2 одинаковые из 4-х. PASCAL.
Ну и в чем проблема пройтись в цикле по двум очередям и сравнить их?
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
dr.Jekill
- Сообщения: 526
- Зарегистрирован: 03 янв 2009, 23:17
- Откуда: Voronezh
- Контактная информация:
[syntax="pascal"]
function f(head1,head2
chered):boolean;
var p1,p2 chered;
begin
f:=false;
p1:=head1;
p2:=head2;
while (p1<>nil) and (p2<>nil) do
begin
if p1^.data=p2^.data then
begin
p1:=p1^.next;
p2:=p2^.next;
end
else exit;
end;
f:=true;
end;
[/syntax]
function f(head1,head2
chered):boolean;var p1,p2
chered;begin
f:=false;
p1:=head1;
p2:=head2;
while (p1<>nil) and (p2<>nil) do
begin
if p1^.data=p2^.data then
begin
p1:=p1^.next;
p2:=p2^.next;
end
else exit;
end;
f:=true;
end;
[/syntax]
Нет религии выше истины