Matematické Fórum

899j · 24. 09. 2016 19:18 — Editoval 899j (24. 09. 2016 19:37)

Zdravím, píšu tu již podruhé a tentokrát tu má slovně zadanou úlohu. Pole jsou pro mě trochu novinka a je to zase nový typ úlohy, na který nevím jak a nenašla jsem jiné podobné řešení. Nemohl by prosím někdo obohatit moji intuici?

"Líný lyžař chce nalézt nejkratší možnou cestu mezi dvěma z několika různých míst. Název a trojici kartézských souřadnic každého místa mějme uložené v poli proměnných strukturovaného typu. Připravte za líného lyžaře proceduru ODKUDKAM, která přijme jako vstup údaje o všech místech a vrátí názvy výchozího a konečného místa, jejichž vzdušná čára je co nejmenší. (výchozí místo se nesmí rovnat koncovému)"

To pole tedy jednoduše definuji jako souřadnice (x,y,z) a přiřadím mu určité číselné hodnoty a pak použiji například rovnici přímky, nebo, já prostě nevím...

*Pascal podruhé; nějak mi ten nadpis ujel. :D

Jj · 24. 09. 2016 19:44

↑ 899j:

Dobrý den.

Rovnice přímky není třeba - řekl bych, že to vyřeší vzoreček pro vzdálenost dvou bodů v kartézských souřadnicích:

Souřadnice bodů: $A_1(x_1,y_1,z_1), \ \ A_2(x_2,y_2,z_2)$

a jejich vzdálenost ("vzdušnou čárou"):

$\overline{A_1A_2} = \sqrt{(x_2-x_1)^2+(y_2-y_1)^2+(z_2-z_1)^2}$

899j · 24. 09. 2016 22:37

dobře, díky a jak definuji to pole prosím? A1: array[x,...,z] of real;
A2: array[x,...,y] of real;

a pak definuji tu funkci? Já se omlouvám, ale jsem fakt začátečník.

899j · 25. 09. 2016 00:22

function vzdalenost(x1: real; y1: real; x2: real; y2: real): real;
begin
vzdalenost := sqrt((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1))
end;

což je bez pole a asi to nestačí...

Jj · 25. 09. 2016 07:04

↑ 899j:

V tom bohužel neporadím - Pascal neznám.

Matematické Fórum

#1 24. 09. 2016 19:18 — Editoval 899j (24. 09. 2016 19:37)

Pascal po druhé

#2 24. 09. 2016 19:44

Re: Pascal po druhé

#3 24. 09. 2016 22:37

Re: Pascal po druhé

#4 25. 09. 2016 00:22

Re: Pascal po druhé

#5 25. 09. 2016 07:04

Re: Pascal po druhé

Zápatí