Pascal - Procedury i funkcje

Zerowanie tablicy

Zerowanie tablicy
Pascal - Procedury i funkcje

Program: losujący tablicę a następnie zerujący ją.

Program losuje wartości do tablicy dwuwymiarowej, a następnie po prostu ją zeruje.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tablic;
uses crt, modtab22;
var tabl2:tablica2;

begin

textcolor(10);
  clrscr;
  randomize;
  writeln('Po wylosowaniu:');
  writeln;
  losuj2(tabl2,12,16);
  pisz2(tabl2);

  writeln;
  writeln('Po wyzerowaniu:');
  writeln;
  zeruj(tabl2);
  pisz2(tabl2);

  readkey;
end.

Wymagany plik do poprawnego działania programu (Po utworzeniu należy zmienić nazwę na „tab2.tpu” lub „tab2.pas”):

unit tab2;

interface
uses crt;
const k=10; w=5;

type tablica2=array[1..w,1..k] of integer;

procedure pisz2(tab:tablica2);
procedure losuj2(var tab:tablica2;p,l:integer);
procedure zeruj(var tab:tablica2);

implementation

procedure pisz2(tab:tablica2);
var i,j:integer;
begin
for i:=1 to w do
 begin
 for j:=1 to k do write (tab[i,j]:4);
 writeln;
 end;
end;

procedure losuj2(var tab:tablica2;p,l:integer);
var i,j:integer;
 begin
  for i:=1 to w do
  for j:=1 to k do
  tab[i,j]:=random(l-p+1)+p;
 end;

 procedure zeruj(var tab:tablica2);
 var i,j:integer;
 begin
  for i:=1 to w do
   begin
    for j:=1 to k do tab[i,j]:=0;
   end;
  end;

end.