Unnamed

--  FILE:    weihnachtsmannwald.adb
--
--  PROJECT: Programmieruebungen, Uebungsblatt 7
--  DATE:    2006-12-13
--  AUTHOR:  hatjeki
--
-------------------------------------------------------------------------------
--
--  Der Weihnachtsmann hat sich in einem quadratischen Wald verirrt.
--  Wir helfen ihm nicht raus, zeigen aber welche punktfoermigen
--  Baume er sehen kann.
--

with Ada.Text_IO;
with Ada.Integer_Text_IO;
with Fraction_Helpers;
use Ada.Text_IO;
use Ada.Integer_Text_IO;
use Fraction_Helpers;

procedure Weihnachtsmannwald
is

   x_min : Integer := -7;
   x_max : Integer := 12;
   y_min : Integer := -9;
   y_max : Integer := 5;

begin

   Put ("Geben sie x_min ein: ");
   Get (x_min);
   Put ("Geben sie x_max ein: ");
   Get (x_max);
   Put ("Geben sie y_min ein: ");
   Get (y_min);
   Put ("Geben sie y_max ein: ");
   Get (y_max);

      for i in reverse y_min .. y_max loop
         for j in x_min .. x_max loop
            if i = 0 and j = 0 then
               Put ("W ");
            elsif i = 0 or j = 0 then
               if abs (i) = 1 or abs (j) = 1 then
                  Put ("* ");
               elsif j /= i then
                  Put ("  ");
               end if;
            elsif (GCD (abs (i), abs (j)) = 1) then
               Put ("* ");
            else
               Put ("  ");
            end if;
         end loop;
         New_Line;
      end loop;
end Weihnachtsmannwald;