calcolo determinante con sarrus

esci algebraturbo.htm



program ordi2;
(* regola pratica per determinante terzo ordine *)
(* dati da inserire da tastiera *)

(* variante di ordine2 *)

uses crt;
var a1,a2,a3,b1,b2,b3,c1,c2,c3,scelta:integer;
ds:real;
s:string;

procedure dati;
begin
clrscr;
s:=' ';
writeln('calcolo determinante terzo ordine:regola di SARRUS ');
writeln('scrivi i valori richiesti:enter dopo ogni valore ');
write('a1=');readln(a1);
write('b1=');readln(b1);
write('c1=');readln(c1);
write('a2=');readln(a2);
write('b2=');readln(b2);
write('c2=');readln(c2);
write('a3=');readln(a3);
write('b3=');readln(b3);
write('c3=');readln(c3);
writeln('-----------------------');
writeln(a1:9,b1:9,c1:9,s,a1:9,b1:9);
writeln(a2:9,b2:9,c2:9,s,a2:9,b2:9);
writeln(a3:9,b3:9,c3:9,s,a3:9,b3:9);
writeln;
ds:=a1*b2*c3+b1*c2*a3+c1*a2*b3-a3*b2*c1-b3*c2*a1-c3*a2*b1;
writeln('determinante=',ds:4:3);
readln;
writeln('scrivi 1 per altro calcolo...2 per fine ');
write('scelta 1 o 2 ? ');readln(scelta);
case scelta of
1:dati;
2:exit;
end;
end;

begin
clrscr;
dati;
end.

--------------------------------------------------------------------------------

calcolo determinante terzo ordine:regola di SARRUS
scrivi i valori richiesti:enter dopo ogni valore
a1=3
b1=4
c1=5
a2=-5
b2=4
c2=8
a3=-2
b3=3
c3=9
-----------------------
3 4 5 3 4
-5 4 8 -5 4
-2 3 9 -2 3

determinante=117.000


--------------------------------------------------------------------------------

inizio