Даны числа а1 b1 с1, а2 b2, c2

@Myqkish · Регистрация: 22.11.2015

Author24 — интернет-сервис помощи студентам

Люди помогите решить пожалуйста)

Даны числа а1 b1 с1, а2 b2, c2. Определить взаимное расположение прямых, заданных уравнениями а1х + b2у = с1, а2х + b2 у = с2, то есть найти координаты точки пересечения прямых, или сообщить, что прямые совпадают, не пересекаются или вообще не существуют.

@Puporev · 22.11.2015, 14:07

Pascal

var a1,b1,c1,a2,b2,c2,k:integer;
    x,y:real;
begin
writeln('Введите коэффициенты первой прямой:');
readln(a1,b1,c1);
writeln('Введите коэффициенты второй прямой:');
readln(a2,b2,c2);
k:=0;
if(a1=0)and(b1=0) then k:=k+1;
if(a2=0)and(b2=0) then k:=k+1;
if k=1 then write('Одна из прямых не существует')
else if k=2 then write('Обе прямые не существуют')
else
 begin
  if(a1=a2)and(b1=b2)and(c1=c2) then
  write('Прямые совпадают')
  else if a1*b2-b1*a2=0 then write('Прямые параллельны')
  else
   begin
    x:=(b1*c2-b2*c1)/(a1*b2-b1*a2);
    y:=(a2*c1-a1*c2)/(a1*b2-b1*a2);
    writeln('Координаты точки пересечения:');
    write('x=',x:0:2,' y=',y:0:2);
   end;
 end;
end.

@Myqkish 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 10
		1
	Даны числа а1 b1 с1, а2 b2, c2 22.11.2015, 13:59. Показов 2773. Ответов 1 Метки нет (Все метки) Люди помогите решить пожалуйста) Даны числа а1 b1 с1, а2 b2, c2. Определить взаимное расположение прямых, заданных уравнениями а1х + b2у = с1, а2х + b2 у = с2, то есть найти координаты точки пересечения прямых, или сообщить, что прямые совпадают, не пересекаются или вообще не существуют. 0

	22.11.2015, 14:07

Даны числа а1 b1 с1, а2 b2, c2

Решение