Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program lola1;
- function det2x2(a11, a12, a21, a22: real): real;
- begin
- det2x2:=a11*a22-a12*a21;
- end;
- var
- x, y, a1, a2, b1, b2, c1, c2: real;
- begin
- writeln('Put a1, b1, c1');
- readln(a1, b1, c1);
- writeln('Put a2, b2, c2');
- readln(a2, b2, c2);
- x:=det2x2(c1, b1, c2, b2)/det2x2(a1, b1, a2, b2);
- y:=det2x2(a1, c1, a2, c2)/det2x2(a1, b1, a2, b2);
- writeln('x=', x, ' y=', y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement