calcolo determinanti

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.