Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  uklad
Language: PASCAL
Code:
program UkladRownan;
var
  a1, a2, b1, b2, c1, c2 : Integer;
x, y, w, wx, wy : Real;
begin
  write('podaj a1: '); readln(a1);
write('podaj b1: '); readln(b1);
write('podaj c1: '); readln(c1);
write('podaj a2: '); readln(a2);
write('podaj b2: '); readln(b2);
write('podaj c2: '); readln(c2);

w := a1*b2-b1*a2;
wx := c1*b2-c2*b1;
wy := a1*c2-a2*c1;

if w = 0 then
Begin
 If wx = 0 and wy = 0 then
 Begin
  Writeln('Uklad nieoznaczony');
 End else writeln('Uklad sprzeczny');
End else
 Begin
  x := wx / w;
  y := wy / w;

  Writeln('x=',x);
  Writeln('y=',y);
 End;
end.          
Comments: