Pascal/Turbo Pascal - SUMA DE LOS n PRIMEROS TERMINOS

   
Vista:

SUMA DE LOS n PRIMEROS TERMINOS

Publicado por Esteban (12 intervenciones) el 30/08/2013 15:08:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program SUMA_DE_N;
 
uses crt;
var
n: INTEGER;
NUMERADOR: INTEGER;
DENOMINADOR:INTEGER;
BEGIN
    WRITE('INGRESAR n: ');
    READ(n);
	NUMERADOR:=1;
	DENOMINADOR:=1;
    While (Denominador>1) do
    begin
	      DENOMINADOR:=(n + 1);
	end;
 
    Writeln('El siguiente: ',Numerador,'/',Denominador)
END.

nO ENCUENTRO EL ERROR PARA QUE EL DENOMINADOR SE SUME 1. ESPERO AYUDA
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

SUMA DE LOS n PRIMEROS TERMINOS

Publicado por Christian (8 intervenciones) el 31/08/2013 03:50:18
La condición esta mal planteada, el denominador se inicia en un y luego haces la repetición condicionando mientras 1 sea mayor que 1, por eso no entra el bucle, debería asignarse que entre al bucle mientras el denominador sea menor que N e incrementar denominador de uno en uno. Espero te sirva esta modificación:

Program SUMA_DE_N;
Uses crt;
Var n: INTEGER;
NUMERADOR: INTEGER;
DENOMINADOR:INTEGER;
Begin
Write('INGRESAR n: ');
Read(n);
NUMERADOR:=1;
DENOMINADOR:=1;
While (Denominador<n) do
Begin
Writeln('El siguiente: ',Numerador,'/',Denominador);
Denominador:=Denominador + 1;
End;
Readkey;
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