Kontrola – Delphi – Fórum – Programujte.com

prosím, zkuste to zkontrolovat nevim jestli je to dobře napsané, díky. Je to program pro vypocet vzdalenosti dvou bodu o dvou soradnicich(x.y)



program dvabody;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type
TBod = record
x,y: double;
end;

var A,B : TBod;

function Usecka (A,B : TBod) : double;
begin
//---vypocet vzdalenosti dvou bodu dle znameho vzorce---
Usecka:=sqrt(sqr(A.x-B.x) + sqr(A.y-B.y));
end;




Procedure ZadejBod (var A : TBod);
begin
with A do begin
write('Zadejte X-ovou souradnici : ');
readln(x);
write('Zadejte Y-ovou souradnici : ');
readln(y);
end;
end;

begin
writeln('Zadejte souradnice 1. bodu (A)');
ZadejBod(A);
writeln('Zadejte souradnice 2. bodu (B)');
ZadejBod(B);


write ('Vzdalenost mezi body A a B je: ');
writeln(Usecka(A,B):10:3);

readln;
end.

Vzhledem k tomu, že to funguje, tak je to asi i dobře napsané :)

Nemu?u si pomoct, ale Usecka:=sqrt(sqr(A.x-B.x) + sqr(A.y-B.y)) se mi zd? ?patn?, sice jsem to moc nezkoumal a mu?u se m?lit.
Ka?dop?dn? pro A = [1,1], B = [5,4] (neco = [x,y]) to mus? hodit ?patn? v?sledek, nehled? na to, ?e si nejsem jist?. ?e n?m delphi dok??? ud?lat odmocninu z -4 (nebo -cokoliv). //btw v?sledn? vzd?lenost t?ch m?ch bod? je 5. viz Pyth. v?ta ..... usecka:=sqrt((abs(Ax-Bx))^2+(abs(Ay-By)^2)) vyhledem k tomu na druhou tam ta abs() b?t nemus?

Opravte m? pokud se pletu....

Je pravda ze fakt haze spatnej vysledek, tak to nevim co ted s tim. Tady tento prikaz :
Usecka:=sqrt((abs(A.x-B.x))^2+(abs(A.y-B.y)^2));
co sem kolega napsal tam nefunguje, vyzaduje to nejaky pointer type a to ja nevim co to je :-(. Poradite mi nekdo co to znamena? dekuju.

Oprava :)
to abs tam byt nemusi, tim bych se nezabýval...
^2 mělo značit "na druhou", co? je sqrt jak jsi tam měl původně napsáno...a já myslel, že tam máš sqrt :)
sečteno a podtrženo musíš zkontrolovat souřadnice těch bodů, abys následně neodmocňoval záporná čísla, čili v tom příkladě co jsem uvedl by zřejmě stačilo prohodit A za B :P ovšem pozor na případ, kdy jsou nějaké hodnoty záporné :/