TESTE Biblioteca

UNIT teste_biblio;
INTERFACE
  uses crt;
  type
  matriz10 = array [1..10,1..10] of integer;
  vetor5 = array [1..5] of real;
  function soma(x,y:integer):integer;
  function mult(x,y:integer):integer;
  function soman(x:integer):integer;
  procedure posi(var x:integer);
  procedure seg(x,y,z:integer);
  procedure mostrarmatriz(x:matriz10);
  procedure preencher1_10(var x:matriz10);
  function matriz(x,y:matriz10):matriz10;
  procedure ordenar(var x:vetor5);
  procedure preencher5(var x:vetor5);
  procedure mostrar5(var x:vetor5);

IMPLEMENTATION
  function soma(x,y:integer):integer;
  begin
    soma:=x+y;
  end;

  function mult(x,y:integer):integer;
  begin
    mult:=x*y;
  end;

  function soman(x:integer):integer;
  var
    c:integer;
  begin
    soman:=0;
    for c:=1 to x do
    begin
      soman:=soman+c;
    end;
  end;

  procedure posi(var x:integer);
  begin
    if (x<0) then
    begin
      repeat
        readln(x);
      until(x>0);
    end;
  end;

  procedure seg(x,y,z:integer);
  begin
  x:=x*60;
  x:=x*60;
  y:=y*60;
  z:=z+y+x;
  writeln(z);
  end;

  procedure mostrarmatriz(x:matriz10);
  var
    l,c:integer;
  begin
    for l:=1 to 10 do
    begin
      for c:=1 to 10 do
      begin
       write(x[l,c],' ');
      end;
      writeln;
    end;
  end;

  procedure preencher1_10(var x:matriz10);
  var
    l,c:integer;
  begin
    for l:=1 to 10 do
    begin
      for c:=1 to 10 do
      begin
        if l=1 then
          x[l,c]:=c;
        if l=2 then
          x[l,c]:=c+10;
        if l=3 then
          x[l,c]:=c+20;
        if l=4 then
          x[l,c]:=c+30;
        if l=5 then
          x[l,c]:=c+40;
        if l=6 then
          x[l,c]:=c+50;
        if l=7 then
          x[l,c]:=c+60;
        if l=8 then
          x[l,c]:=c+70;
        if l=9 then
          x[l,c]:=c+80;
        if l=10 then
          x[l,c]:=c+90;
      end;
    end;
  end;

  function matriz(x,y:matriz10):matriz10;
  var
  l,c:integer;
  begin
    for l:=1 to 10 do
    begin
      for c:=1 to 10 do
      begin
       matriz[l,c]:=x[l,c]+y[l,c];
      end;
    end;
  end;

  procedure ordenar(var x:vetor5);
  var
    c,d:integer;
    aux:real;
  begin
    for c:=1 to 5 do
    begin
      for d:=1 to 5 do
      begin
        if (x[c]<x[d]) then
        begin
          aux:=x[c];
          x[c]:=x[d];
          x[d]:=aux;
        end;
      end;
    end;
  end;

  procedure preencher5(var x:vetor5);
  var
    c,aux:integer;
  begin
    aux:=5;
    for c:=1 to 5 do
    begin
      x[c]:=aux;
      aux:=aux-1;
    end;
  end;

  procedure mostrar5(var x:vetor5);
  var
    c:integer;
  begin
   for c:=1 to 5 do
     write(x[c]:0:0,' ');
  end;


END.