Pascal/Turbo Pascal - Cuael es el mayor

   
Vista:
Imágen de perfil de Misael

Cuael es el mayor

Publicado por Misael (34 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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Sudoky gráfico
- Music Maker
- Vectores
Imágen de perfil de xve

Cuael es el mayor

Publicado por xve (21 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

Cuael es el mayor

Publicado por Misael (34 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

Cuael es el mayor

Publicado por David (140 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

Cuael es el mayor

Publicado por Misael (34 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

Cuael es el mayor

Publicado por David (140 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

Cuael es el mayor

Publicado por Misael (34 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