🚀 go-pugleaf

 Dzięki, wyjaśnij mi to:
> 1.Rozpoczynamy z pusta kolekcja okręgów
>  4. Jezeli okrag nie znajduje się w kolekcji
>  5. Dodajemy go do kolekcji.
 Rozumiem istotę losowania okręgów. Ale nie bardzo czaję jak to tam
idzie dalej,
 Dlaczego deklarujesz typ? Chodzi Ci o to aby nie wyłaziły?

> Z racji na zapewne Twoją nieznajomość złożonych typów danych,
> kolekcja okregów u Ciebie automagicznie zmienia się w
> const
>   MAX_ITEMS = 1337;
>
> type
>   TTab = array[1..MAX_ITEMS] of integer;
>
> var
>   tx  : TTab;
>   ty  : TTab;
>   ile : integer; // ilosc elementow w kolekcji
>
> Zakładając że wszystkie promienie są równe dochodzi do
> tego:
> var
>   r   : integer;
>
> I potrzebujesz do szczęścia jeszcze sprawdzenia czy dany
> okrag jest "legalnie postawiony" pośrod wszystkich istniejących.
>
> Przy czym to sobie ulatwiasz za pomocą dekompozycji
> do dwóch 'pod-problemów' ;) :

   Możesz napisać mi to:
> function czyKolidujaDwa(x1,y1,r1,x2,y2,r2):boolean;
> begin
>   // umiesz zaimplementowac?
> end;

 I to też:
> procedure dodajOkrag(ox,oy);
> begin
>   // też powinieneś w stanie być odpowiednio zmanipulowac
>   // zmienne tx, ty i ile zeby dodac element do kolekcji
> end;
  To na szczęście rozumiem
> function czyKolidujeZeWszystkimi(x,y,r):boolean;
> begin
>   czyKoliduje := false;
>   for n:=1 to ile do
>     if (czyKoliduja2(tx[n], ty[n], r, x, y, r))
>       czyKoliduje := true; // tu mozna nawet machnac Exit(true); ;)
>   Result := czyKoliduje;
> end;


> Utrudniasz sobie, losuj przesunięte okręgi.
> x := Random(320-2*r)+r;
> analogicznie y. Będziesz miał pewniaka że wszysto będzie
> w View Porcie, bez zbędnego kombinowania.

Tak zrobię ;-)

> p.s. Jakiego kompilatora używasz? Mam nadzieję że fpc
>      bo ja preferuje ten dialekt, i preferuje ludzi
>      nie używających archaicznego Turbo Pascal'a z
>      powodów:
>      - bo nauczyciel każe kraść
>      - bo tak
>
>      ;-).

Też wolę fpc, ale program ma być na DOS, a fpc jest na Win32, jestem
zmuszony korzystać z Turbo :-(. Zresztą Turbo to abadonware, więc za
korzystanie z niego nikt mnie raczej nie zamknie ;-). Zresztą Borlanda
już nie ma