Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Информатика Pascal Используя подпpогpамму, найти точку пеpесечения пpямых. Через процедуру (((

Антон Карепанов Ученик (211), закрыт 4 недели назад
Используя подпpогpамму, найти точку пеpесечения пpямых
A1*X + B1*Y = C1 и A2*X + B2*Y = C2. Если они паpаллельные, выдавать об этом сообщение.
Лучший ответ
Профессор Оракул (50413) 1 месяц назад
procedure Cross(const a1,a2,b1,b2,c1,c2:real;var x,y:real;var par:boolean);
var det,dx,dy:real;
begin
det:=a1*b2-a2*b1;
dx:=c1*b2-c2*b1;
dy:=a1*c2-a2*c1;
par:=abs(det)>1e-6;
if par then begin x:=0;y:=0;end
else begin x:=dx/det;y:=y/det;end
end
Остальные ответы
Похожие вопросы