Program v Delphi

Co se tyka vypoctu vzdalenosti bodu, to je vec geometrie, s tim asi problemy nemas.
Body zrejme nadefinujes jako:

Body: array[0..9] of TPoint;

Co se tyka logaritmu, proste projdes ve dvou vnorenych cyklech vsechny body a zjistis vzdalenosti. Pri prochazeni si zapamatujes nejmensi a nejvetsi vzdalenosti a tomu odpovidajici body.

Pozadavek na promenne znamena, ze bys mel pouzivat pouze parametry, ktere do funkce predas + promenne, ktere si nadeklarujes uvnitr funkce, nemel bys pozuivat zadne globalni promenne.
Znamena to napr. u funkce pro vypocet vzdalenosti:

function VypocitejVzdalenost(const Bod1, Bod2: TPoint): Double;

funkci budes volat takto:

Vzdalenost2Bodu := VypocitejVzdalenost(Body[i], Body[j]);

a ne funkci, kde predas jen odkaz na index pole:

function VypocitejVzdalenost(const i, j: Integer): Double;

a funkce si bude sahat sama do pole bodu

Díky, dotaz jsem položil trochu špatně. To co jste napsal, na to jsem přišel. Princip mám v hlavě vymyšlený, ale potřeboval bych poradit s konkrétním zápisem v Delphi, nevím, jak to tam všechno "srovnat", posloupnost kroků. Omluvte mě, je to můj první program s využitím funkcí, tak v tom tápu.

Posloupnost kroku:

1. napsat a odladit funkci na vypocet vzdalenosti bodu (to je Pythagoras). Deklaraci mas v me predchozi odpovedi
2. napsat proceduru, ktera vyhleda nejmensi a nejvetsi vzdalenost 2 bodu - to jsou 2 vnorene FOR cykly
3. odevzdat domaci ulohu

Kod za tebe psat nebudu. Pokud budes mit problem s konkretnim problemem, klidne se ozvi

Samozřejmě kód nechci, musím se to naučit sám. Dík