Distance_LP - pre zadaný bod a priamku vypočíta vzdialenosť bodu od priamky

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Program: Poilinp.pasPoilinu.pas
Subor exe: Poilinp.exePoilinu.tpu
Mušiš mac: Angeom02.tpuUninout.tpuEgavga.bgi
Vyvojak: Poilin.docAmater.txt
Ukažka: Angeom02.pasUninout.pas

Pre programovú jednotku (unit) AnGeom02 (algebraická geometria) vytvorte funkciu Distance_LP, ktorá pre zadaný bod a priamku vypočíta vzdialenosť bodu od priamky.

FUNCTION Distance_LP(Line1:TLine; bodA:TPoint): Real;
UNIT  UnInOut;  { UNINOUT.PAS  A Unix like basic input/output }
                { Borsuk  Pi 95/12/01  09:05  V001 }
 
INTERFACE
 
  USES  Crt;
 
  VAR   stdin, stdout, stderr: Text;
 
  PROCEDURE  UnOpen;
  PROCEDURE  UnClose;
  PROCEDURE  Wait;
  PROCEDURE  Wayt;
 
IMPLEMENTATION
 
  PROCEDURE  Wait;
  VAR  w: Char;
  BEGIN
    w := ReadKey;
    IF (w = #$1B)  THEN  Halt;
    IF (w = #$0D)  THEN  WriteLn( stderr );
  END;  { Wait }
 
  PROCEDURE  Wayt;
  VAR  w: Char;
  BEGIN
    Write( stderr, #15 ); { Velka hviezdica ako prompt }
    w := ReadKey;
    Write( stderr, #8#32#8 );
 
    IF (w = #$1B)  THEN  Halt;
    IF (w = #$0D)  THEN  WriteLn( stderr );
  END;  { Wayt }
 
  PROCEDURE  UnOpen;
  BEGIN
    Assign( stdin,  '' );  ReSet(   stdin  );
    Assign( stdout, '' );  ReWrite( stdout );
    AssignCrt( stderr  );  ReWrite( stderr );
  END;  { UnOpen }
 
  PROCEDURE  UnClose;
  BEGIN
    WriteLn( stdout );  Close( stdout );
    Close(   stdin  );  Close( stderr );
  END;  { UnClose }
 
  BEGIN { main() = UNINOUT.PAS }
    UnOpen;
  END.  { main() = UNINOUT.PAS }