Wyznacznik
Wszystkie dane podanawane są przez użytkownika.
Kompilator: Turbo Pascal
program tablica;
uses crt;
var macierz:array[1..3,1..3] of integer;
i,j:byte;
ilosc:byte;
wyznacznik:real;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('Podaj T[',i, ' ,',j, ']: ');
readln(macierz[i,j]);
end;
wyznacznik:=macierz[1,1]*macierz[2,2]*macierz[3,3]+
macierz[1,2]*macierz[2,3]*macierz[3,1]+
macierz[1,3]*macierz[2,1]*macierz[3,2]-
macierz[1,1]*macierz[2,3]*macierz[3,2]-
macierz[1,2]*macierz[2,1]*macierz[3,3]-
macierz[1,3]*macierz[2,2]*macierz[3,1];
writeln('wyznacznik',wyznacznik);
readln;
end.