Составить программу для нахождения углового коэффициента К и коэффициента Б в уравнении прямой, заданной уравнением у=КХ+Б, если известно что график этого уравнения проходит через точки с координатами (Х1,У1),(Х2,У2) — Pascal(Паскаль)

Program Uglk;
Var
  x1,x2,y1,y2:integer;
  k,b:real;
Begin
  Writeln('Введите x1,y1');
  Readln(x1,y1);
  Writeln('Введите x2,y2');
  Readln(x2,y2);
  k=(y2-y1)/(x2-x1);
  b=y1-k*x1;
  Writeln('k= ',k,'b= ',b);
  Readln;
End.

Похожие записи/страницы:

Leave a Comment

57 − 55 =