感谢1407刘可盈同学提供
uses crt;
var
x,y,i,j:byte;
t:integer;
procedure fj1;
begin
clrscr;
gotoxy(x,y-1);
write('\');
gotoxy(x-1,y);
write('>---');
gotoxy(x,y+1);
write('/');
delay(200);
end;
procedure fj2;
begin
clrscr;
gotoxy(x,y-1);
write('/');
gotoxy(x-2,y);
write('---<');
gotoxy(x,y+1);
write('\');
delay(200);
end;
begin
cursoroff;
t:=200;
for j:=1 to 2 do begin
x:=2;
y:=23;
for i:=1 to 5 do begin
x:=x+4;
y:=y-3;
fj1;
end;
for i:=1 to 9 do begin
x:=x+3;
fj1;
end;
for i:=1 to 5 do begin
x:=x+4;
y:=y+1;
fj1;
end;
for i:=1 to 3 do begin
y:=y+1;
fj2;
end;
for i:=1 to 5 do begin
x:=x-2;
y:=y+1;
fj2;
end;
for i:=1 to 16 do begin
x:=x-3;
fj2;
end;
end;
readln;
end.
