MC111 - Introdução ao Processamento de Dados

program verifica_saida;

procedure proc1(var a: integer; var b: integer);
begin 
    a := a + 1; 
    b := b + 1;
end;

procedure proc2(a: integer; b: integer);
begin
   proc1(a, b);
   writeln ('a = ', a);
   writeln ('b = ', b);
end;

var
   x, y: integer;
begin
   x := 1; y := 2;
   proc2(x, y);
   writeln ('x = ', x);
   writeln ('y = ', y);
end.

a = 2
b = 3
x = 1
y = 2

const tam_vet = 100;
type tipo_vetor = array [1..tam_vet] of real;

• (a) (1.5 ponto) Escreva um procedimento que preenche as posições de um vetor com v[i] = 1/i.

  Resposta:

      procedure preenche(var vet: tipo_vetor);
      var i: integer;
      begin
         for i := 1 to tam_vet do
           vet[i] := 1/i;
      end;
    

• (b) (1.5 ponto) Escreva uma função que soma os valores contidos em um vetor.

  Resposta:

     function soma(var vet: tipo_vetor): real;
     var
       s: real;
       i: integer;
     begin
        s := 0;
        for i := 1 to tam_vet do
          s := s + v[i];
        soma := s;
     end;
     

• (c) (1.0 ponto) Utilizando as rotinas preenche e soma, escreva uma função que calcula o valor da série 1 + 1/2 + 1/3 + ... + 1/100.

  Resposta:

     function serie: real; 
     var
        vet : tipo_vetor;
     begin
        preenche(vet);
        serie := soma(vet);
     end;
  

const n_linhas = 100, n_colunas = 100;
type tipo_matriz = array [1..n_linhas, 1..n_colunas] of integer;

Resposta:

procedure mult_escalar (var mat: tipo_matriz; x: integer); 
var
   i, j: integer;
begin
   for i := 1 to n_linhas do
     for j := 1 to n_colunas do
        mat[i,j] := mat[i,j] * x;
end;

program verifica_saida;
var
   arq1, arq2, arq3 : text;
   v1, v2	    : integer;
   
begin
   assign (arq1, 'dados1.txt'); reset(arq1);
   assign (arq2, 'dados2.txt'); reset(arq2);
   assign (arq3, 'saida.txt');  rewrite(arq3);

   while (not eof(arq1)) and (not eof(arq2)) do
   begin
      readln(arq1, v1);
      readln(arq2, v2);
      writeln(arq3, v1 + 2 * v2);
   end;
   while (not eof(arq1)) do 
   begin
      readln(arq1, v1);
      writeln(arq3, v1);
   end;
   while (not eof(arq2)) do 
   begin
      readln(arq2, v2);
      writeln(arq3, 2 * v2);
   end; 
   close(arq1);
   close(arq2);
   close(arq3);
end.