procedure aggiunta; (* matrice aggiunta *) var a11,a12,a13,a21,a22,a23,a31,a32,a33:real; d11,d12,d13,d21,d22,d23,d31,d32,d33:real; begin clrscr; writeln('scrivi elementi separati da spazio o enter '); writeln('scrivi elementi prima riga'); readln(a11,a12,a13); writeln('scrivi elementi seconda riga'); readln(a21,a22,a23); writeln('scrivi elementi terza riga'); readln(a31,a32,a33); clrscr; d11:=a22*a33-a32*a23; d12:=a21*a33-a31*a23; d13:=a21*a32-a31*a22; d21:=a21*a33-a32*a13; d22:=a11*a33-a31*a13; d23:=a11*a32-a31*a12; d31:=a12*a23-a22*a13; d32:=a11*a23-a21*a13; d33:=a11*a22-a21*a12; writeln; writeln('matrice originaria'); writeln(a11:10:2,a12:10:2,a13:10:2); writeln(a21:10:2,a22:10:2,a23:10:2); writeln(a31:10:2,a32:10:2,a33:10:2); writeln; writeln('matrice aggiunta'); writeln(d11:10:2,-d12:10:2,d13:10:2); writeln(-d21:10:2,d22:10:2,-d23:10:2); writeln(d31:10:2,-d32:10:2,d33:10:2); writeln; writeln('premi enter'); readln; end;
scrivi elementi separati da spazio o enter scrivi elementi prima riga 1 2 3 scrivi elementi seconda riga 4 5 6 scrivi elementi terza riga 7 8 9 matrice originaria 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 matrice aggiunta -3.00 6.00 -3.00 -12.00 -12.00 6.00 -3.00 6.00 -3.00
inizio