a čo je natom zlozite ?? aj keby si nevedel vykreslit ten obdlžnik tak sa to dazistit matematicky ...predstav si ze plocha je ako siet a kazda bunka ma svoju suradnicu ...ta a teraz k prikladuranger.sk napísal:Cawte. Mam tento problem:
mam zadat x,y suradnice laveho horneho rohu a praveho dolneho rohu obdlznika
a bodu A. Zistit ci bod A lezi v obdlzniku, mimo alebo na hrane.
Neviem ani ako zacat, dakujem velmi pekne za vasu radu, ste skilly.
jasne jasne to mi je zrejme ale principialne je to isteaudiotrack napísal:TGiJack: s tým kruhom by som netvrdil že to tak isto môžeš spraviť, už len preto že kruh je zadaný jednou súradnicou a nie dvoma. Ak by si chcel vyrátavať či je na hrane (kružnici) daný bod, stačí si spraviť absolútnu hodnotu rozdielu stredu a bodu (pre x-ovú aj y-ovú os) a porovnať či je aspoň jedna z nich rovná polomeru. Teda to bude jedna podmienka s or, a nie 4. Ak to bude > tak je mimo kruhu a ak < tak je v kruhu. Vôbec to nebudú 4 podmienky ak v tomto prípade. S elipsou to bude zložitejšie, no tiež to bude inač ako pri obdlžniku/štvorci. To len tak na okraj.
..no a ta elipsa hmm tak to by sa človek musel isto trochu pohrat 
toto som sem daval niekedy asi pred rokom alebo dvoma. Tam potreboval chalan zistiť prienik dvoch 4-uholníkov, tak si to prerob na 4-uholník a bod (hint: obe súradnice 2. 4-uholníka budú rovnaké, takže jeho rozmery budú nulové -> 1 bod)ranger.sk napísal:Lenze ja to nepotrebujem na papiery ale v pascali
Kód: Vybrať všetko
program daco
type TPoint=record
x:integer;
y:integer;
end;
var a,b:array[1..2] of TPoint;
prekryva_x,prekryva_y:boolean;
i:integer;
begin
writeln('Zadaj rozmery prveho stvoruholnika: ');
for I:=1 to 2 do begin
writeln('Bod ',i,', suradnica x: ');
readln(a[i].x);
writeln('Bod ',i,', suradnica y: ');
readln(a[i].y);
end;
writeln('Zadaj rozmery druheho stvoruholnika: ');
for I:=1 to 2 do begin
writeln('Bod ',i,', suradnica x: ');
readln(b[i].x);
writeln('Bod ',i,', suradnica y: ');
readln(b[i].y);
end;
prekryva_x:=false;
prekryva_y:=false;
if ((a[2].x>=b[2].x) and (a[1].x<=b[2].x)) or ((a[1].x<=b[1].x) and (a[2].x>=b[1].x)) then prekryva_x:=true;
if ((a[1].y<=b[1].y) and (a[2].y>=b[1].y)) or ((a[2].y>=b[2].y) and (a[1].y<=b[2].y)) then prekryva_y:=true;
if prekryva_x and prekryva_y then writeln('Tieto 4-uholniky sa prekryvaju') else writeln('Tieto 4-uholniky sa neprekryvaju')
end.
hmmm ??? tu tinik tvoje zadania kodid nebuderanger.sk napísal:Lenze ja to nepotrebujem na papiery ale v pascali
