ac1019.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 25 行

program tju1019;
var
  n,x,y,i:shortint;
procedure print(x,y:shortint);
  begin
    write('(',x,',',y,')');
  end;
function min(a,b:shortint):shortint;
  begin
    if a<b then min:=a else min:=b;
  end;
function max(a,b:shortint):shortint;
  begin
    if a>b then max:=a else max:=b;
  end;
begin
  repeat
    read(n,x,y);
    for i:=1 to n do print(x,i);writeln;
    for i:=1 to n do print(i,y);writeln;
    for i:=max(1,x-y+1) to min(n,x-y+n) do print(i,y-x+i);writeln;
    for i:=min(n,x+y-1) downto max(1,x+y-n) do print(i,x+y-i);writeln;
  until seekeof;
end.