Exercício, media e derivada

[Pedriv0]

Foi me passado um trabalho com 2 programas para entregar:

(1) Escreva um programa que gere um vetor P com 200 valores

reais entre 1 e 0.0001 e que calcule a média µ destes valores.

Além disso, o programa deve selecionar de P todas as amostras

de tamanho n=3 e calcular a sua respectiva média x . Em

seguida, deve calcular e imprimir a média destas médias e a

média µ.

Esse é o programa que eu fiz, e queria opinião de vocês se está certo

Program EXERCICIO_1 ;
VAR
	P: ARRAY [1..200] OF REAL;
	I, K, J, CONT : INTEGER;
	MI, MEDIA_TOTAL, SOMA, MEDIA_N: REAL;
 Begin
 SOMA:=0;
 MEDIA_N:=0;
 CONT:=0;
 FOR I:=1 TO 200 DO 
 	BEGIN
	 P[I]:=1/(1+RANDOM(10000));
      SOMA:=SOMA+P[I];
     END;
 MI:=SOMA/200;
 FOR I:=1 TO 200 DO
 	FOR J:=1 TO 200 DO   
 		FOR K:=1 TO 200 DO
 		  BEGIN
 			MEDIA_N:=(P[I]+P[J]+P[K])/3+MEDIA_N;
 			CONT:=CONT+1;
 		  END;
 MEDIA_TOTAL:=MEDIA_N/CONT;
 WRITELN(CONT);
 WRITELN(MI);
 WRITELN(MEDIA_TOTAL);

A 2 é mais complicada

(2)

E eu n sei mtu bem por onde começar mas estou tentando se alguem puder dar uma ideia ou fazer parte ou todo, o que puder para ajudar eu agradeço.

[Simon Viegas]

Olá Pedriv0,

1) Exercício 1

  P[I]:=1/(1+RANDOM(10000));

Creio que esta fórmula para gerar os números está errada.

DICA PARA TESTES

Uma forma de verificar o resultado da fórmula seria exibindo os números na tela. Ex.:

FOR I:=1 TO 200 DO 
  BEGIN
  P[I]:=1/(1+RANDOM(10000));
  writeln(P[I]:0:30); //:X:Y - X=Casas reservadas a esquerda e Y=casas decimais 
                      //Esse recurso serve para deixar de exibir 
                      //em "formatação científica"
  readln; //aguarda um ENTER antes de continuar
  SOMA:=SOMA+P[I];
  END;

2) Cálculo da média (MI)

A fórmula está certa... o problema só está nos valores (supondo o que foi comentado no item 1).

3) Escopo do problema

Além disso, o programa deve selecionar de P todas as amostras de tamanho n=3

O quê exatamente significa "tamanho n=3" ???

Eu particularmente não entendi. O melhor que consegui imaginar foi "números com 3 casas decimais". Ex: "0.102", "0.908", "0.001" etc. Ou até mesmo números com "3 dígitos". Ex.: "0.10", "0.66", "0.01" etc.

Primeiro precisamos saber o que é preciso fazer, para depois analisarmos/acharmos uma solução..

***

Por enquanto é isso...