[ Foro de Pascal ]

instrucciones innecesarias

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

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.  ;-)