Pascalban kellene egy kis segítség?

program hasznos3;

var i : byte; a : string[18] = 'G #GGGG #G #GGGG #';

begin

      for i := 1 to 18 do Write(Char(Ord(a[i])-22));

end.

program hasznos4;

uses crt;

var

      x, y : byte;

      a : array[0..3, 0..3] of byte =

            ((5,4,28,2), (9,17,1,3), (13,6,6,14), (3,51,7,7));

      b : array[1..5] of string[8] =

            (' XX',' XXX',' XX',' XX','XXXXXX');

procedure OneDraw(OD_x, OD_y : byte);

var i : byte;

begin

      for i := 1 to 5 do

            begin

                  GotoXY(OD_x, OD_y + i); Write(b[i]);

            end;

end;

begin

      TextAttr := $1E; ClrScr;

      for y := 0 to 3 do

            for x := 0 to 3 do

                  if a[y, x] mod 2 > 0 then OneDraw(x * 8 + 1, y * 6);

      TextAttr := $7; ReadKey; ClrScr;

end.

program hasznos5;

uses crt;

var x, y : byte;

a : string[16] = '1 11111 1111';

colors : array[0..1] of byte = ($1A,$4E);

procedure tile(tile_caption : char; tile_color : byte);

var tile_x, tile_y : byte;

begin

      tile_x := x * 3 + 1; tile_y := y * 3 + 1; TextAttr := tile_color;

      GotoXY(tile_x, tile_y); Write(' '); Inc(tile_y);

      GotoXY(tile_x, tile_y); Write(' ', tile_caption, ' '); Inc(tile_y);

      GotoXY(tile_x, tile_y); Write(' ');

end;

begin

      CursorOff;

      ClrScr;

      for y := 0 to 3 do

            for x := 0 to 3 do

                  tile(a[y * 4 + x +1], colors[(y + x) mod 2]);

      TextAttr := 7; ReadKey; ClrScr;

      CursorOn;

end.

program Smallest;

begin

   write(#73#10#73#73#73#73#10#73#10#73#73#73#73);

   readln;

end.

program Smallest_v2;

var

s : string[18] = #49#10#13#49#49#49#49#10#13#49#10#13#49#49#49#49#10#13;

begin

      Write(s);

      ReadLn;

end.

Ez nem jó! :))

Az enyém rövidebb kód, ráadásul a tied "rengeteg" memóriát foglal. :))

A program byte-hossz a szegmenshatárra igazítás, a kötött foglalás meg a virtuális gép miatt marad ugyanakkora.

Te meg végképp kihagyhatod a CR-t, mert linuxos vagy. :))