Programación General > Pascal

 Detectar Numero Mayor Y Meror

(1/3) > >>

luisoswaldo:
necesito alguna orientacion de como indentificar si se introducen una serie ilimitada de numeros cual es el mayor y cual el menor.
Por favor digan si existe algun link sobre este tema

lo que he pensado es esto:

write ('numero'); read (num)
numay:=0;
numen:=100;(por decir algo)

if num > numay then numay:=ed;
if num > numen then numen:=ed;

write ('numero mayor', numay);
write ('numero menor', numen);

entonces si por ej introduzco 23 y 54 me dice que el mayor es 54, pero no guarda a 23 como menor.

Tendria que compar a 23 con 54. pero para ser sincero no tengo muy claro como acerlo. pense hacerlo con un array pero creo que tendria que saber de antemano la cantidad de numeros que se van a introducir.

Les doy gracias de antemano por la ayuda que puedan darme.

Enko:

--- Código: Text --- const   MIN = 0;   MAX = 100;var   N: Integer;begin    Write('ingrese un numero');    Readln(N);    if N > MAX then        WriteLN('el numero ', N, ' es mayor que ', MAX)    else if N < MIN then        WriteLn('el numero ', N, ' es menor que ', MIN)    else        WriteLn('el numero ', N, ' esta entre ', MIN, ' y ', MAX);  ReadLn;end.  Fijate que el codigo no lo compile, pero deberia funcionar bien.

Si quieres que la seria sea ilimitada solo debes poner el codigo que coloque entre este bucle:

--- Código: Text --- repeat   ... aca va el codigountil 1<>1;  Asi se repetiria infinitas veces.



--- Citar ---if num > numay then numay:=ed;
if num > numen then numen:=ed;

--- Fin de la cita ---
Creo que un signo de mayor ">" deberia ser menor en realidad.

Si quieres comparar 2 numeros seria asi:

--- Código: Text --- var   A,B: integer;begin   Readln(A);   ReadLn(B);   If A > B then       WriteLn(A, ' es mayor que ', B)   else if A < B then       WriteLn(A, ' es menor que ', B)  else      WriteLN('los numeros son iguales');  Readln;  

luisoswaldo:
hola gracias por tu ayuda pero me pare que no me explique bien.

lo que yo necesito es saber si introduzco una serie de numeros como: 3,5,6,1,5,7,10,20,infinito.

me diga cual es el mayor y cual el menor
en este caso
may=20
menor=1

disculpa tienes razon me equivoque cuando lo transcribi

if num > numay then numay:=ed;
if num < numen then numen:=ed;

lencho:
supongo que entonces tendrias que guardar todos los numeros (n) en un vector.
Luego el almacenar en dos variables el valor de la primer casilla: mayor = v[0], menor = v[0].
Por ultimo recorrer todo el vector haciendo las comparaciones que te sugirio Enko.

BYTE.

luisoswaldo:
muchas gracias lo voy a intentar y les aviso como me va, por que no tengo mucho tiempo programando y aun no entiendo bien como funsiona un arreglo internamente

Navegación

[0] Índice de Mensajes

[#] Página Siguiente