[ScoobyBu2]

Zadatak 5

Dat su sljedeći tipovi
TYPE Tacka = record
x,y:real;
End;
Krug = record
Centar : tacka;
R : real; {r – poluprecnik}
end;
NizKrugova = array[1..80] of Krug;
Scena = record
broj_elemenata:integer; {Manje od 80}
krugovi:NizKrugova;
end;

1. Napisati funkciju Presjek koja ima dva argumenta k1 i k2 tipa Krug i koja vraća TRUE ako krugovi k1 i k2 imaju zajedničkih tačaka i FALSE, ako krugovi nemaju presjeka.
2. Napisati proceduru UcitajDat(imedat:string; var sc:scena) koja iz tekstualne datoteke čije je ime dato argumentom imedat učitava podatke o krugovima u argument sc. U svakom redu tekstualne datoteke upisana su po tri realna broja razdvojena jednom bjelinom, gdje su prva dva broja koordinate centra a treći broj je dužina poluprečnika. Smatrati da nema više od 80 redova u datoteci.
3. Napisati proceduru UcitajDatBin(imedat:string; var sc:scena) koja iz binarne datoteke čije je ime dato argumentom imedat učitava podatke o krugovima u argument sc. Datoteka je tipa FILE of KRUG;
4. Napisati proceduru PromjenaDatBin(imedat:string; pos:integer; x:krug) koja mijenja element na poziciji pos u binarnoj datoteci imedat elementom x. Ako je pozicija „van“ datoteke, procedura ne treba da radi ništa.
5. Napisati funkciju BigCircle koja ima jedan argument tipa Scena i koja vraća indeks onog kruga iz Scene (ako takav krug postoji) koji ima površinu veću od sume površina svih ostalih krugova u Sceni i 0 ako takav krug ne postoji.
6. Napisati funkciju BoundingCircle koja ima jedna argument tipa Scena i koja štampa koordinate centra i poluprečnik onog kruga koji u sebi sadrži sve ostale krugove iz date scene, ako takav krug postoji. Funkcija vraća TRUE ako takav krug postoji i FALSE ako ne postoji.
7. Napisati proceduru Prepis koja ima tri argumenta – ulaz i izlaz tipa string i k1 tipa Krug i koja čita sve elemente i u tekstualnu datoteku čije je ime argument izlaz štampa koordinate centra i poluprečnike svih krugova iz binarne datoteke čije je ime argument ulaz takvih da imaju zajedničkih tačaka sa krugom k1.


Napisati program koji testira napisane funkcije.
-------------------------------------------------------------------------

Stvarno mi je potrebna pomoc, ako neko zna rijesiti u Free Pascal-u...