Distance_LP - pre zadaný bod a priamku vypočíta vzdialenosť bodu od priamky
Delphi & Pascal (česká wiki)
Kategória: Zadania Pascal
Program: Poilinp.pas, Poilinu.pas
Súbor exe: Poilinp.exe, Poilinu.tpu
Potrebné: Angeom02.tpu, Uninout.tpu, Egavga.bgi
Vývoják: Poilin.doc, Amater.txt
Príklady: Angeom02.pas, Uninout.pas
Program: Poilinp.pas, Poilinu.pas
Súbor exe: Poilinp.exe, Poilinu.tpu
Potrebné: Angeom02.tpu, Uninout.tpu, Egavga.bgi
Vývoják: Poilin.doc, Amater.txt
Príklady: Angeom02.pas, Uninout.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;
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 }