{ OBDLZNIK.PAS Copyright (c) Pheo } { Program nakreslí dva body a okolo nich obdĺžnik tak, aby bol čo } { najtesnejšie pri bodoch. } { } { Datum:12.04.2005 http://www.trsek.com } program obdlznik; uses crt,graph; procedure adapter; var grd,grm:integer; begin grd:=detect; initgraph(grd,grm,''); end; var x1,x2,y1,y2,pom: integer; begin adapter; randomize; x1:=random(640); x2:=random(640); y1:=random(480); y2:=random(480); setcolor(green); fillellipse(x1,y1,6,6); fillellipse(x2,y2,6,6); if x1>x2 then begin pom:=x1; x1:=x2; x2:=pom; end; if y1>y2 then begin pom:=y1; y1:=y2; y2:=pom; end; setcolor(white); rectangle(x1-10,y1-10,x2+10,y2+10); repeat until keypressed; end.