Pascal/Turbo Pascal - ayuda por favor con este problemita

   
Vista:

ayuda por favor con este problemita

Publicado por luis miguel (1 intervención) el 11/05/2009 04:53:57
hola programadores les agradeceria si me pueden ayudar con este problemita que me esta rompiendo el coco :S pues bien ahi les va:

es sobre el calculo de una serie la serie es A= 1/x + 1/x(al cuadrado) + 1/x(al cubo)....+hasta 1/x(a la n).. donde x es un numero leido por teclado... pls aiudenme T_T
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

RE:ayuda por favor con este problemita

Publicado por Martin (74 intervenciones) el 11/05/2009 14:52:00
Hola. Luis Miguel.
No es mi fuerte las matematicas, no obstante intentaré ayudarte.
El algoritmo que te paso lo hago así entendiendo que lo que llamas "A" es la variable que contendrá el valor de la operación.
Yo creo que lo importante sería que entendieras y comprendieras el algoritmo, más que el hecho de resolver el problema que espero sea lo que pides.
Un saludo: Antonio



{$n+}
program Potencias;
uses crt;
var
A, X, X2 : extended;
n, i : integer;

begin
clrscr;
write('Introduce valor de "X": ');
readln(X);
writeln;
write('Introduce valor de "n": ');
readln(n);
A := 1/x;
X2 := X;

for i := 1 to n do
begin
X := X*X2;
A := A+(1/X);
end;
writeln;
writeln;
writeln('A = ',A:6:3)
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

RE:ABRE EL TUYO Y LO ENCUENTRAS

Publicado por martin (74 intervenciones) el 11/05/2009 14:59:06
Perdona.
No lo hice bien al enviar la respuesta.
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