Pascal - Konsolowe

Suma kolumn i wierszy

Suma kolumn i wierszy
Pascal - Konsolowe

Program: sumujący wszystkie wiersze jak i kolumny w tablicy.

Program losuje wartości tablicy o wymiarach zdefiniowanych w kodzie a następnie dokonuje obliczeń.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program dtab;
uses crt;
var i,j,suma :integer;
    tab: array[1..5,1..10] of integer;
    tabk: array[1..10] of integer;
    tabw: array[1..5] of integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
    for j:=1 to 10 do
    tab[i,j]:=random(20)+1;
 for i:=1 to 5 do
 begin
   suma:=0;
   for j:=1 to 10 do suma:=suma+tab[i,j];
   tabw[i]:=suma;
   end;
 for j:=1 to 10 do
 begin
  suma:=0;
   for i:=1 to 5 do suma:=suma+tab[i,j];
   tabk[j]:=suma; {sumowanie w kolumnie}
 end;
 textcolor(green);
 writeln('******************************************************************');
 writeln('Program wyyświetlający i sumujący tablice w kolumnach i wierszach.');
 writeln('******************************************************************');
 textcolor(white);
 writeln;
 for i:=1 to 5 do
   begin
   for j:=1 to 10 do write(tab[i,j]:4); textcolor(3);
   write(tabw[i]:4);
   textcolor(white);
   writeln;
   end;
 textcolor(3);
 for j:=1 to 10 do write('****');writeln;
 for j:=1 to 10 do
 begin
 write(tabk[j]:4);
 write;
 end;
 readln;
end.