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.
Fórum › Delphi
Kontrola
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é :/
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Kontrola HW — založil Petr
Kontrola id — založil Majox
Kontrola argumentu — založil vazbok
Kontrola programu — založil Mory
Kontrola řetězce v C — založil Martin1995