|
Ejercicio 1.
Uses CRT;
Const
VALORES = 3;
var
i,n, prod : Integer;
r : real;
Begin
prod:=1;
r:=0;
For i:=1 to valores do
begin
Writeln('Introduzca un valor');
readln(n);
prod:=prod*n;
end;
{r=prod^1/valores} {La raiz n-esima de un numero es ese mismo n£mero elevado 1 dividido por n}
{Aplicando logaritmos obtenemos la siguiente f¢rmula, donde r es la media geom,trica}
{ln r = 1/valores * ln(prod)}
r:=exp((ln(prod)/valores));
writeln(r);
readln;
end.
Ejercicio 2.
Uses CRT;
Const
valores = 3;
var
mayor,menor,i,n,suma:integer;
begin
writeln('Introduzca el primer valor: ');
readln(n);
mayor:=n;
menor:=n;
suma:=n;
for i :=2 to valores do
begin
Writeln('Introduzca el siguiente valor: ');
readln(n);
suma:=suma+n;
if n>mayor then mayor:=n
else if n<menor then menor:=n;
end;
Writeln('Suma: ',suma,' Mayor: ',mayor,' Menor: ',menor);
readln;
end.
He definido el numero de valores a introducir como constante , pero también puedes pedirlo por teclado.
Si tienes alguna duda, vuelve a escribir, y si no es así, por favor finaliza la pregunta.
Saludos.
|
