somma di matrici

esci algebraturbo.htm

inserimento di due matrici:esegue la loro somma

program matrice6;
uses crt;

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

procedure chiede(k:integer);
begin
for a:=1 to r do
begin
for b:=1 to c do
begin
write('scrivi dato riga ',a,' colonna ',b ,'=');
if k=1 then readln(m[a,b]) else readln(n[a,b]);
end;end;end;

procedure esegue_somma;
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(k:integer);
begin
for a:=1 to r do
begin
for b:=1 to c do
begin
if k=1 then write(m[a,b],' ')
else
if k=2 then write(n[a,b],' ')
else 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');chiede(1);pausa;
writeln('richiesta dati seconda matrice');chiede(2);pausa;
writeln('esegue somma due matrici ');esegue_somma;pausa;
writeln('prima matrice');mostra(1);writeln;
writeln('seconda matrice');mostra(2);writeln;
writeln('somma matrici');mostra(3);writeln;pausa;
end.