Найти координату пересечения прямых - Pascal ABC

Формулировка задачи:

Даны коэффициенты прямой y=kx+b. Найти координаты ее пересечения с линией y=x.

Код к задаче: «Найти координату пересечения прямых - Pascal ABC»

textual
var k,b,x,y:real;
begin
writeln('Введите k,b');
readln(k,b);
if(k=1)and(b=0) then write('Прямые совпадают')
else if k=1 then write('Прямые параллельны')
else
 begin
  x:=-b/(k-1);
  y:=x;
  write('Прямые пересекаются в точке x=',x:0:2,' y=',y:0:2);
 end;
end.

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ