Pascal - Procedury i funkcje

Działania na tablicy

Działania na tablicy
Pascal - Procedury i funkcje

Program: wykonujący kilka działań na tablicy.

Losujący tablicę dwuwymiarową a następnie sumuje wartość wierszy oraz element minimalny każdej kolumny.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program zadanie2;
uses crt;
var
s,i,j,sr:integer;
tab1:array[1..10,1..13] of integer;
suma:array[1..10] of integer;
min:array[1..13] of real;
procedure los;
begin
for i:=1 to 10 do
        for j:=1 to 13 do
                begin
                tab1[i,j]:=random(6)+0
                end;
end;
procedure sum;
begin
for i:=1 to 10 do
        begin
        s:=0;
    for j:=1 to 13 do
                        BEGIN
                        s:=s+tab1[i,j];
                        end;
        suma[i]:=s;
        end;
end;
procedure minim;
begin
        end;
procedure wypisz;
begin
textcolor(13);
writeln;  textcolor(white);
write('                                                                   ');
textcolor(12);
write('Suma');
textcolor(yellow);
for i:=1 to 10 do
        begin
        writeln;
        for j:=1 to 13 do
                write(tab1[i,j]:4, ' ');
                write('| ');
                textcolor(red);
                write(suma[i]:3);
                textcolor(yellow);
        end;
writeln; textcolor(white);
writeln; writeln;
textcolor(green);
writeln('Minimalna wartosc kazdej kolumny kazdej kolumny');
for i:=1 to 13 do
  begin
   write(min[i]:5:1);
  end;
end;
begin
clrscr;
los;
sum;
wypisz;
readln;
end.