[ Foro de Pascal ]

instrucciones innecesarias

01-Jul-2014 22:50
Invitado (raniro95)
1 Respuestas

hola compañeros, haber si este foro me ayuda.

les dejo un codigo que tengo en pascal pero para no extenderlo lo escribo en seudocodigo, espero me puedan ayudar en que instrucciones son innecesarias, gracias

 
programa instruccionessobrantes;
var
  n,numero,maximo:entero;
 begin
 read(numero);
n:=1;
max:=1;
maximo:=numero;
repeat 
    n:=n+1;
    read(numero);
    if (numero >maximo ) then
      begin
        maximo:=numero;
        max:=max+1;
      end;
until (n>100)
writeln("numero mayor:" ,maximo);
end;
 


gracias


05-Jul-2014 10:41
Nacho Cabanes (+32)

Basta con que mires qué variables usas y cuales no tienen una utilización real en la lógica del programa. En tu caso, verás que:

- n se usa como contador, y se comprueba si llega a 100

- numero se pide al usuario y se compara con el máximo actual

- maximo almacena el valor actual del máximo y se pide al final

- max se incrementa... para nada

Luego ya sabes qué órdenes sobran.  ;-)






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)