Seguimos buscando a Arshak. Ayudanos compartiendo!
Encuesta no oficial de docentes
Resultados de la encuesta no oficial de docentes
Probaste el SIGA Helper?

Donar $100 Donar $200 Donar $500 Donar mensualmente


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
[Algoritmos] Máximos y Mínimos
Autor Mensaje
CarooLina Sin conexión
Colaborador

********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 3.743
Agradecimientos dados: 1.496
Agradecimientos: 1.683 en 547 posts
Registro en: Sep 2010
Mensaje: #16
RE: [Algoritmos] Máximos y Mínimos
no te explique que es INC() ? jaja perdon !!! OJOOOO EN PASCAL, la variable que pongas dentro de los parentesisi tiene que iniciar en cero y ser de tipo ENTERO! si o si ehhhh!!!!

love
03-05-2012 13:06
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
walterfabiank08 Sin conexión
Empleado de Fotocopiadora
Sin estado :(
**

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 45
Agradecimientos dados: 5
Agradecimientos: 255 en 21 posts
Registro en: Dec 2013
Mensaje: #17
RE: [Algoritmos] Máximos y Mínimos
Hola se que este post es bastante antiguo, pero el codigo que aparece no soluciona lo que pide el ejercicio e incluso entra en un loop infinito.
La estrategia para resolverlo está inicialmente en pensarlo como un Lote de números dividido por 0 pero inicialmente completos con valores en cada sublote. Una vez se lo tiene diagramado y con la estrategia armada ver en que partes es necesario mostrar por pantalla antes ya que no se está usando memoria dinámica ni archivos. Los nombres de las variables en c o pascal son algo dificil de elegir, no son aveces lo suficientemente expresivos.. les dejo el codigo del ejercicio de Lotes que funciona correctamente sin el uso de procedimientos ni funciones.



Program MI23;

Uses
Crt;

Var
Nro, Suma, Mayor,Minimo:Longint;
PrimerMin,PrimerMy:Boolean;
Cont,Sublote,PosLote,PosMy,SubloteMy:Word;

Begin

Writeln('Ingrese un entero para el lote, Finalize con uno negativo o Separe sublotes con un cero :');
Readln(Nro);
ClrScr;
If Nro = 0 Then
Begin
Sublote:=1;
Writeln('El Sublote ',Sublote,'° no tiene datos.');
Writeln('Aprete enter para continuar.');
Readln;
ClrScr;
end
Else
Begin
Sublote:=0;
end;

PrimerMy:=True;
While Nro >= 0 do
Begin
Sublote:=Sublote + 1;
PrimerMin := true;
posLote:= 0;
suma:= 0;
Cont:=0;
repeat
Begin
If nro <>0 then
Begin
suma:=suma + Nro;
Cont:=Cont + 1;
PosLote:=PosLote + 1;
If PrimerMy or (Nro>Mayor) Then
Begin
Mayor:=Nro;
PosMy:=PosLote;
SubloteMy:= Sublote;
PrimerMy:=False
end;
If PrimerMin or (Nro<Minimo) Then
Begin
Minimo:=Nro;
PrimerMin:=False;
End;
end;
Writeln('Ingrese otro entero para el lote, Finalize con uno negativo o Separe sublote con un Cero:');
Readln(Nro);
ClrScr;
end;
until nro <= 0;
If Cont<>0 Then
Begin
Writeln('El promedio del sublote es:',suma/cont:10:2);
Writeln('El Valor minimo del sublote ',Sublote,' es ',Minimo,'.');
Writeln('Presione enter para continuar.');
Readln;
ClrScr;
end
Else
Begin
Writeln('El sublote ', Sublote,'° no tiene datos.');
Writeln('Aprete enter para continuar.');
REadln;
ClrScr;
End;
ClrScr;
end;
If PrimerMy Then
If Sublote = 0 Then
Writeln('El Lote esta vacio.')
Else
Writeln('Hay ',Sublote,' sublotes vacios.')

Else
Begin
Writeln('Hay ', sublote,' sublotes y el valor mayor ingresado es ',mayor,'.');
Writeln('se encontro en el sublote ',SubloteMy,'° en ',PosMy,'° Posicion.');
end;
Readln;
end.]

(Este mensaje fue modificado por última vez en: 12-12-2013 15:35 por walterfabiank08.)
10-12-2013 22:49
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
[-] walterfabiank08 recibio 1 Gracias por este post
dyvakrrillo (11-12-2013)
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)