Chodze do LO i na informatyce przerabiamy pętle. Nauczyciel kazał nam napiasac program dzieki któremu można obliczyc układ trzech równań za pomocą pętli. Czy ktoś wie jak napisać taki program bo ja jestem kompletnie zielony. ściągnełem od kolegi program do obliczania równania z dwoma niewiadomymi (ale chyba nie jest dokończony). czy mógłby mi ktos napisać taki programik ?
var A: array[1..2,1..2] of real;
x,C: array[1..2] of real;
temp,w:array[1..2] of real;
i,j:integer;
wg:real;
begin
for i:=1 to 2 do
for j:=1 to 2 do
begin
writeln('podaj ',i,j,' skadowĄ tab A');
readln(A[i,j]);
end;
for i:=1 to 2 do
begin
writeln('podaj ',i,' skadowĄ tab C');
readln(C[i]);
end;
wg:=A[1,1]*A[2,2]-A[1,2]*A[2,1];
writeln('wyznacznik g˘wny wynosi ',wg:0:3);
for i:=1 to 2 do begin temp[i]:=a[i,1];
a[i,1]:=c[i];
end;
w[1]:=A[1,1]*A[2,2]-A[2,1]*A[1,2];
readln;
end.