fork(6) download
copy 
  1. program ideone;
  2.  
  3.   procedure DrawHexagon(const ASize: Integer);
  4.   var
  5.     intLoop: Integer;
  6.   begin
  7.     WriteLn(StringOfChar(' ', ASize - 1), StringOfChar('#', ASize));
  8.  
  9.     for intLoop := 0 to ASize - 2 do
  10.       WriteLn(StringOfChar(' ', ASize - intLoop - 2), '#', StringOfChar(' ', ASize + intLoop * 2), '#');
  11.  
  12.     for intLoop := ASize - 3 downto 0 do
  13.       WriteLn(StringOfChar(' ', ASize - intLoop - 2), '#', StringOfChar(' ', ASize + intLoop * 2), '#');
  14.  
  15.     WriteLn(StringOfChar(' ', ASize - 1), StringOfChar('#', ASize));
  16.   end;
  17.  
  18. begin
  19.   DrawHexagon(2);
  20.   DrawHexagon(4);
  21.   DrawHexagon(6);
  22. end.
  23.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 ##
#  #
 ##
   ####
  #    #
 #      #
#        #
 #      #
  #    #
   ####
     ######
    #      #
   #        #
  #          #
 #            #
#              #
 #            #
  #          #
   #        #
    #      #
     ######
https://ideone.com/PxChgv
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!