Ver Mensaje Individual
  #2  
Antiguo 05-10-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Esta ilusión se basa en que todos nos creemos a pies juntillas que la segunda figura realmente se puede formar.

Aquí les mando una rejilla para que la impriman, corten los pedazos y vean ustedes mismos porqué no es posible la figura B.


Código Delphi [-]
program PrintGrid;

{$APPTYPE CONSOLE}

uses
  Printers;

var
  SquareSize: Integer;
  X, Y: Integer;

begin
  WriteLn('Imprimiendo rejilla...');

  SquareSize := Printer.PageWidth div 10;
  Printer.BeginDoc;

  for X := 1 to 9 do
  begin
    Printer.Canvas.MoveTo(SquareSize*X, SquareSize);
    Printer.Canvas.LineTo(SquareSize*X, 9*SquareSize);
  end;

  for y := 1 to 9 do
  begin
    Printer.Canvas.MoveTo(SquareSize, SquareSize*Y);
    Printer.Canvas.LineTo(9*SquareSize, SquareSize*Y);
  end;

  Printer.EndDoc;
end.

// Saludos
Responder Con Cita