Program nakreslí dva body a okolo nich obdĺµnik tak, aby bol čo najtesnej±ie pri bodoch

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Zadání z Pascalu

Autor: Pheo
web: pascalsource.ic.cz

Program: Obdlznik2.pas
Soubor exe: Obdlznik2.exe

Program nakreslí dva body a okolo nich obdĺµnik tak, aby bol čo najtesnej±ie pri bodoch.
{ 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.