Zistí či bod leží na priamke

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

Program: Bod_pria.pas
Subor exe: Bod_pria.exe
Subor ubuntu: Bod_pria

Zistí či bod leží na priamke. Vstupom sú koeficienty priamky a koeficienty bodu.
{ BOD_PRIA.PAS              Copyright (c) TrSek alias Zdeno Sekerak }
{ Zisti ci bod lezi na priamke                                      }
{ Vstup : koeficienty priamky, koeficienty bodu                     }
{ Vystup: urci ci BOD lezi na priamke                               }
{                                                                   }
{ Datum:10.07.2000                             http://www.trsek.com }
 
program priamka_bod;
var a,b,c,x,y,v : real;
begin
 WriteLn('Zadaj priamku v tvare ax+by+c=0');
 Write('Zadaj a=');
 ReadLn(a);
 Write('Zadaj b=');
 ReadLn(b);
 Write('Zadaj c=');
 ReadLn(c);
 WriteLn('Zadaj vysetrovany bod A[x,y]');
 Write('Zadaj x=');
 ReadLn(x);
 Write('Zadaj y=');
 ReadLn(y);
 v:=a*x+b*y+c;
 if( v=0 ) then
   WriteLn('Vysetrovany bod A[',x:6:2,',',y:6:2,'] lezi na priamke ',a:6:2,'x+',b:6:2,'y+',c:6:2,'=0')
  else
   WriteLn('Vysetrovany bod A[',x:6:2,',',y:6:2,'] nelezi na priamke ',a:6:2,'x+',b:6:2,'y+',c:6:2,'=0');
 ReadLn;
end.