Pascal - Konsolowe

Suma tablic

Suma tablic
Pascal - Konsolowe

Program: sumujący dwie tablice.

Użytkownik wyznacza wielkość tablic jak i podaje wszystkie wartości. Program najpierw sumuje wartość wszystkich elementów poszczególnych tablic, potem sumuje obydwie tablice.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tablica_w_tablicyl;
uses Crt;
var i, j, l, z, w, k, suma_tablic : Integer;
    tablica : array[1..20,1..20,1..20] of Integer;
    suma_t : array[1..20] of Integer;
begin
     ClrScr;
     Write('Podaj liczbe tablicy Panie (max 20): ');
     Read(z);
     Write('Podaj liczbe wierszy tablicy Panie (max 20): ');
     Read(w);
     Write('Podaj liczbe kolumn tablicy Panie (max 20): ');
     Read(k);
     for l:= 1 to z do
     begin
     WriteLn('Tablica numer: ',l);
          for i:= 1 to w do
          begin
               for j:= 1 to k do
               begin
                    Write('Podaj liczbe calk. tab. [',i,'][',j,']: ');
                    ReadLn(tablica[l][i][j]);
               end;
          end;
     i:= 1;
     j:= 1;
     end;
     for l:= 1 to z do
     begin
          WriteLn('Tablica numer: ',l);
          for i:= 1 to w do
          begin
               for j:= 1 to k do
               begin
                    Write('[',tablica[l][i][j],']');
                    suma_t[l]:= suma_t[l] + tablica[l][i][j];
                    suma_tablic:= suma_tablic + tablica[l][i][j];
               end;
               WriteLn;
          end;
     WriteLn('Suma tablicy ',l,' wynosi ',suma_t[l]);
     i:= 1;
     j:= 1;
     end;
     Write('Suma tablic wynosi: ', suma_tablic);
     ReadKey;
end.