Задача с функциями

[Серафимий Долговяз]

Задача две прямые представленны в виде Y=k1*X+b1 и Y=k2*X+b2; k1, k2,
b1,b2 задаются с экрана Программа должна включать в себя три функции:1-я вычисляет пересекаются ли две прямые;2-е другие находят x0 и y0(координаты точек пересечения)
Заранее спасибо

[Sazary]

Вроде все правильно..

uses crt;

var k1,k2,b1,b2 : integer;
x0,y0 : real;

function peresek(k1,k2 : integer) : boolean;
 begin
 if k1 <> k2 then peresek := true
 else peresek := false;
 end;

function findx0(k1,k2,b1,b2 : integer) : real;
 begin
 if peresek(k1,k2) then
   findx0 := (b2-b1)/(k1-k2) ;
 end;

function findy0(k1,k2,b1,b2 : integer) : real;
 begin
 if peresek(k1,k2) then
  findy0 := (b1*k2-b2*k1)/(k2-k1);
 end;

begin
clrscr;
write('k1= '); readln(k1);
write('b1= '); readln(b1);
write('k2= '); readln(k2);
write('b2= '); readln(b2);

if peresek(k1,k2) then
 begin
 writeln('Pryamye peresekayutsya!');
 x0 := findx0(k1,k2,b1,b2);
 writeln('x0 = ',x0:7:4);
 y0 := findy0(k1,k2,b1,b2);
 writeln('y0 = ',y0:7:4);
 end
 else writeln('Pryamye parallelny ili sovpadayut');
readln;
end.

[puporev]

Можно еще так.

uses crt;
function Peresech(a,b:integer):boolean;
begin
if a<>b then Peresech:=true
else Peresech:=false;
end;
function X0(a1,b1,a2,b2:integer):real;
begin
X0:=(b2-b1)/(a1-a2);
end;
function Y0(a1,b1,a2,b2:integer):real;
var c:real;
begin
c:=X0(a1,b1,a2,b2);
Y0:=a1*c+b1;
end;
var k1,b1,k2,b2:integer;
begin
clrscr;
writeln('Vvedite koefficienty 1 uravnenia:');
readln(k1,b1);
writeln('Vvedite koefficienty 2 uravnenia:');
readln(k2,b2);
if Peresech(k1,k2) then
   begin
    writeln('Pryamye peresekayutsa!');
    writeln('X0=',X0(k1,b1,k2,b2):0:2);
    writeln('Y0=',Y0(k1,b1,k2,b2):0:2);
   end
else
   begin
    if b1=b2 then  writeln('Pryamye sovpadayut! Sistema imeet beskonechnoe mnozestvo reshenij.')
    else writeln('Pryamye parallelny! Sistema ne imeet reshenij.');
   end;
readln
end.