somma di matrici

esci algebraturbo.htm

inserimento di due matrici:esegue la loro differenza

program matrice3;
uses crt;

var a,b,c,r:integer;
n,m,s:array[1..20,1..20] of integer;
(* dimensione ridondante probabile matrice *)

procedure chiede1;
begin
for a:=1 to r do
begin
for b:=1 to c do
begin
write('scrivi dato riga ',a,' colonna ',b ,'=');readln(m[a,b]);
end;
end;
end;

procedure chiede2;
begin
for a:=1 to r do
begin
for b:=1 to c do
begin
write('scrivi dato riga ',a,' colonna ',b ,'=');readln(n[a,b]);
end;
end;
end;

procedure esegue_differenza;
begin
for a:=1 to r do
begin
for b:=1 to c do
s[a,b]:=m[a,b]-n[a,b];
end;
end;

procedure mostra_differenza;
begin
for a:=1 to r do
begin
for b:=1 to c do
begin
write(s[a,b],' ');
end;
writeln;
end;
end;

procedure limiti;
begin
write('numero righe < 11 =');readln(r);
write('numero di colonne < 11 =');readln(c);
clrscr;
end;

procedure pausa;
begin
writeln('premi enter per proseguire');readln;
clrscr;
end;

begin
clrscr;
limiti;(* richiesta numero righe e colonne per matrici *)
writeln('richiesta dati prima matrice');chiede1;pausa;
writeln('richiesta dati seconda matrice');chiede2;pausa;
writeln('esegue differenza due matrici ');esegue_differenza;pausa;
writeln('visualizza somma delle due matrici');mostra_differenza;pausa;
end.