Pascal/Turbo Pascal - Cuael es el mayor

 
Vista:
Imágen de perfil de Misael
Val: 9
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Cuael es el mayor

Publicado por Misael (41 intervenciones) el 30/03/2015 17:30:31
necesito realizar este programa; mostrar el mayor de 10 números ingresados ya termine lo malo es que solo tengo que ingresar 10 números. y el que ice puedo ingresa la cantidad de números que yo quiero y solo tiene q ser 10. espero me puedan ayudar.

Num-mayor
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
Imágen de perfil de xve

Cuael es el mayor

Publicado por xve (25 intervenciones) el 30/03/2015 18:52:20
Hola Misael, no nos has mostrado el código para poder probarlo... pero tienes que cambiar el While num > 0 por un bucle for()

Con esto tiene que ser suficiente.
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
Imágen de perfil de Misael
Val: 9
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Cuael es el mayor

Publicado por Misael (41 intervenciones) el 30/03/2015 19:39:32
es como este solo q con 10 números encontrar cual es el mayor


Num-mayor
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
sin imagen de perfil

Cuael es el mayor

Publicado por David (224 intervenciones) el 30/03/2015 20:27:58
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Uses CRT;
 
Const
  TOPE = 10; {Esto te permite una solución más general, ya que si quieres ingresar una cantidad distinta
                          de números, bastará con que cambies esta constante por el valor que desees
                          sin necesidad de modificar todo el código}
 
Var
  MAYOR, I,N : Integer;
 
begin
  i:=1;
  MAYOR:=0;
  Writeln('Ingrese ',tope,' n£meros');
  Writeln('Introduzca el ',i,'§ n£mero: ');
  readln(N);
 
  While (i<TOPE) and (n<>0) DO {Aquí controlamos que no se haya llegado al tope o se haya introducido un valor 0}
    begin
      Clrscr;
      I:=I+1;
      Writeln('Para detener y ver el mayor, ingrese 0 y enter');
      Writeln('Introduzca el ',i,'§ n£mero: ');
      readln(N);
      if n> mayor then
        mayor :=n;
    end;
    Writeln('El mayor es ',mayor);
    readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael
Val: 9
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Cuael es el mayor

Publicado por Misael (41 intervenciones) el 30/03/2015 21:48:59
Te agradezco, es exacto, tu solución, el problema es que ten que ver en pantalla los números que voy ingresando
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
sin imagen de perfil

Cuael es el mayor

Publicado por David (224 intervenciones) el 31/03/2015 00:21:36
En ese caso te podría bastar con que eliminases el clrscr.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael
Val: 9
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Cuael es el mayor

Publicado por Misael (41 intervenciones) el 01/04/2015 16:53:49
si David tiene razón logre solucionarlo y sin reservar muchas variables excelente tu solución te agradezco

Doy por Resuelto este tema
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