«Очередь. Стек. Дек» (TurboPascal)

[Aunura11]

Помогите плз с лабой на тему «Очередь. Стек. Дек» а именно методом Очередь.
Пусть даны две очереди Х и У, содержащие вещественные числа. Из каждой очереди одновременно извлекается по одному числу х и у соответственно. Если x<y, то число (x+y) помещается в конец очереди, иначе число (x-y) помещается в конец очереди У. Необходимо определить число шагов, через которое одна из очередей станет пустой.

[Aunura11]

Помогите пожалуйста

[Aunura11]

Помогите пожалуйста

[Bugrimov]

Условие задачи - это конечно хорошо... А самостоятельные попытки решить были?

[Aunura11]

К сожалению нечего не получается,так как именно с данной темой проблемы. Вот и написал тут в надежде на помощь.

[Aunura11]

полазив по сети ,нашел это (может ли ее кто изменить?)

type ukazatel=^s;
s=record
dan:real;
next:ukazatel;
end;
Var h,i:integer;
g,g1,y,u,x,u1:ukazatel;
s1,s2:string;
f:text;

procedure see;
begin
writeln('');
u1:=u;
while u1<>nil do begin
write(u1^.dan:3:0);
u1:=u1^.next;
end;
writeln('');
g1:=g;
while g1<>nil do begin
write(g1^.dan:3:0);
g1:=g1^.next;
end;
writeln;
end;
begin
assign(f, '3.txt');
reset(f);
while not eof (f) do
begin
readln (f, s1);
readln (f, s2);
end;
writeln(s1);
writeln(s2);
h:=0;
new(u);
u^.dan:=StrToInt(s1[1]);
u^.next:=nil;
x:=u;
for i:=2 to 5 do begin
x^.next:=new(ukazatel);
x:=x^.next;
x^.dan:=StrToInt(s1[i]);
x^.next:=nil
end;

new(g);
g^.dan:=StrToInt(s2[1]);
g^.next:=nil;
y:=g;
for i:=2 to 5 do begin
y^.next:=new(ukazatel);
y:=y^.next;
y^.dan:=StrToInt(s2[i]);
y^.next:=nil
end;

see;
repeat
if u^.dan<g^.dan then begin
x^.next:=New(ukazatel);
x:=x^.next;
x^.next:=nil;
x^.dan:=u^.dan+g^.dan
end
else begin
y^.next:=New(ukazatel);
y:=y^.next;
y^.next:=nil;
y^.dan:=u^.dan-g^.dan
end;
u1:=u;
u:=u^.next;
dispose(u1);
g1:=g;
g:=g^.next;
dispose(g1);
h:=h+1;
see;
until (u=nil) or (g=nil);

writeln('chislo shagov =',h);
readln;
end.