ASCII Stars by D

procedure Gnat.Io.A is N,X:Integer;begin
Get(N);declare S:String:=(1..N=>' ')&(1..2*N=>'*');begin
for I In 1..2*N loop X:=abs(I/N*(2*n)-I);Put_Line(S(X+1..2*X+N-1));end loop;end;end;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page