Pascal - Media Aritmetica da intersecção

11 de junho de 2010

Pessoal,eu e alguns colegas estamos com dificuldades em encontrar a media aritmetica da intersecção deste problema. Estou tentando ainda, mas encontro muitas dificuldades para gerar o somatorio e ocontador. Estou enviando o problema para ver alguém de vocês encontra meu erro. Abraço a todos!

Enunciado:

{Dados M e N, números naturais, sendo M < N, fazer um programa que calcule e

apresente a média aritmética dos números naturais contidos na interseção I

Sendo:

C1 o conjunto dos números naturais contidos no intervalo [M, N];

C2 o conjunto de números contidos em uma matriz Mat[150,160] preenchida

com números aleatórios no intervalo [0, 10000) e randseed = 13;

C3 o conjunto dos números naturais perfeitos}

TENTATIVA DE RESOLUÇÃO:

program Exercicio;
uses crt;

var
   X: array[1..150,1..160] of integer;
   i, j, M, N, aux: integer;
   intersecao: boolean;


function verSeEstaNoIntervalo(umNumero, li, ls:integer):boolean;
begin
     result := ((umNumero >= li) and (umNumero <= ls));
end;


function verSePerfeito(umNumero: integer):boolean;
var
   sd, d: integer;
   perfeito: boolean;
begin
  d:=1;
  sd:=0;
  if (umNumero >5)
     then repeat
            if (umNumero mod d = 0)
              then sd:=sd + d;
            d:=d+1;
          until (d>umNumero div 2);
      perfeito:=((sd = umNumero)and(umNumero>5));
     result := perfeito;
end;


begin
     clrscr;
     textcolor(14);
     writeln();

     write('Informe o valor de M: '); readln(M);
     write('Informe o valor de N: '); readln(N);
     if (M > N)
        then begin
                  aux := M;
                  M := N;
                  N := aux;
             end;

     randomize;
     randseed := 13;
     for i:=1 to 150 do
         for j:=1 to 160 do X[i,j] := random(10000);

     for i:=1 to 150 do
         for j:= 1 to 160 do
             begin
             intersecao := ((verSeEstaNoIntervalo(X[i,j],M,N)) and
                           (verSePerfeito(X[i,j])));

                 if (intersecao = true)
                     then begin
                          media:=soma/ ........
                          end;
             end;

     writeln();
     writeln('Media aritmetica dos nuemros da interseccao:',);
     writeln();
     write('Digite qlq tecla para encerrar!');
     readkey;