简单模拟: { Author:wzx961008 Problem:UVa 488-Triangle Wave Verdict:Accepted Language:PASCAL Run Time:0.248s Submission Date:2011-03-19 04:29:26 } var n,i,j,k,t,cas,amp,fre:longint; begin readln(n); for cas:=1 to n do begin readln(amp); readln(fre); for k:=1 to fre do begin for i:=1 to 2*amp-1 do begin t:=amp-abs(i-amp); for j:=1 to t do write(t); writeln; end; if (cas<>n)or(k<>fre) then writeln; end; end; end.