Система уравнений

@go777 · Регистрация: 29.04.2010

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

Составить функцию для вычисления корней системы уравнения вида:
a1,x+b1y=c1,
{ a2,x+b2y=c2.
В программе предусмотреть вывод вида и корней уравнения на дисплей.

@I2um1 · 02.10.2011, 19:45

Толком не тестировал:

Pascal

var a1, b1, c1, a2, b2, c2, x, y : real;
begin
   write('a1 = '); readln(a1);
   write('b1 = '); readln(b1);
   write('c1 = '); readln(c1);
   write('a2 = '); readln(a2);
   write('b2 = '); readln(b2);
   write('c2 = '); readln(c2);
   x := (c1 - b1 * c2 / b2) / (a1 - b1 * a2 / b2);
   y := (c2 - a2 * x) / b2;
   writeln('x = ', x:0:4, '; y = ', y:0:4)
end.

С функцией например так:

Pascal

function solution_x(a1, b1, c1, a2, b2, c2 : real) : real;
   begin
      solution_x := (c1 - b1 * c2 / b2) / (a1 - b1 * a2 / b2)
   end;
var a1, b1, c1, a2, b2, c2, x, y : real;
begin
   write('a1 = '); readln(a1);
   write('b1 = '); readln(b1);
   write('c1 = '); readln(c1);
   write('a2 = '); readln(a2);
   write('b2 = '); readln(b2);
   write('c2 = '); readln(c2);
   x := solution_x(a1, b1, c1, a2, b2, c2);
   y := (c2 - a2 * x) / b2;
   writeln('x = ', x:0:4, '; y = ', y:0:4)
end.

@go777 2 / 2 / 0 Регистрация: 29.04.2010 Сообщений: 63
		1
	Система уравнений 02.10.2011, 19:21. Показов 1328. Ответов 1 Метки нет (Все метки) Составить функцию для вычисления корней системы уравнения вида: a1,x+b1y=c1, { a2,x+b2y=c2. В программе предусмотреть вывод вида и корней уравнения на дисплей. 0

	02.10.2011, 19:45

Система уравнений

Решение