Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » {10. Obtener un algoritmo que permita calcular la siguiente serie: h(n)=1 + ½ + 1/3 + ... + 1/n}

Pascal/Turbo Pascal - {10. Obtener un algoritmo que permita calcular la siguiente serie: h(n)=1 + ½ + 1/3 + ... + 1/n}

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Luciano

{10. Obtener un algoritmo que permita calcular la siguiente serie: h(n)=1 + ½ + 1/3 + ... + 1/n}

Publicado por Luciano (2 intervenciones) el 05/11/2022 10:15:52
Hola, me pidieron hacer esto, no lo termine de entender como hacerlo y me gustaría saber si se hace con el ciclo for, while y repetir
{10. Obtener un algoritmo que permita calcular la siguiente serie: h(n)=1 + ½ + 1/3 + ... + 1/n}

ssso
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

{10. Obtener un algoritmo que permita calcular la siguiente serie: h(n)=1 + ½ + 1/3 + ... + 1/n}

Publicado por dario (87 intervenciones) el 06/11/2022 03:27:10
Hola, esto es lo que buscas.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
program serie;
var n,i:integer;
    s:real;
begin
  write('Valor de n: ');
  readln(n);
  s:=0;
 
  for i:= 1 to n do
    s:= s + (1/i);
 
  writeln('La suma de la serie es: ',s:4:2);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar