DouKaku?beta

Comment detail

ピラミッドを作る (Nested Flatten)
Adaで適当に 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
with Ada.Text_Io;
procedure Pyramid is
   procedure Pyramid(Size:Natural) is
   begin
      for I in 1..Size loop
         Ada.Text_Io.Put_Line((1..Size-I=>' ')&(1..I*2-1=>'*'));
      end loop;
   end Pyramid;
begin
   Pyramid(4);
end Pyramid;

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]