1 respuesta en este tema

[Nelsonguzmans]

Buenas Noches amigos necesito de su ayuda en respecto a pilas y colas 

necesito hacer un programa de menor o mayor que

ejm

del StringGrid "SG_NUMEROS" seleccionar los numeros mayores o menos de un umbral "5" y esos numero clasificarlos en un StringGrid para menores de 5 "SG_MENUMBRAL" y en otro StringGrid para mayores de 5"SG_MAYUMBRAL"

 

aca les dejo mi código de como voy 

 

sin mas a que hacer referencia les deseo buenas noches

 

 

 

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TipoPila = Record
              Dato: Array[1..4] of integer;
              Tope: 0..4;
             end;
  TipoPilaMen=Record
              Dato:Array [1..4] of integer;
              topemen:0..4;
              end;
    TipoPilaMay=Record
              Dato:Array [1..4] of integer;
              topemay:0..4;
              end;
 
  TForm1 = class(TForm)
    E_INGRESAR: TEdit;
    B_SALIR: TButton;
    B_AGREGAR: TButton;
    B_MOSTRAR: TButton;
    B_REINICIAR: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    SG_NUMEROS: TStringGrid;
    SG_MENUMBRAL: TStringGrid;
    SG_MAYUMBRAL: TStringGrid;
    E_UMBRAL: TEdit;
    B_UMBRAL: TButton;
    procedure B_REINICIARClick(Sender: TObject);
    procedure B_SALIRClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure B_AGREGARClick(Sender: TObject);
    procedure B_MOSTRARClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Pila:TipoPila;
  Pilamenor:TipoPilaMen;
  Pilamayor:TipoPilaMay;
  fila:integer;
  filamay:integer;
  filamen:integer;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.B_REINICIARClick(Sender: TObject);
begin
begin
 Application.MainForm.Hide;
 WinExec(PChar(ParamStr(0)), SW_NORMAL);
 TerminateProcess(GetCurrentProcess, 0);
end;
end;
 
procedure TForm1.B_SALIRClick(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Pila.Tope:=0;
  fila:=4;
  filamen:=4;
  filamay:=4;
end;
 
procedure TForm1.B_AGREGARClick(Sender: TObject);
begin
    If Pila.Tope<4 Then
   Begin
     E_INGRESAR.SetFocus;
     Pila.Tope:= Pila.Tope+1;
     Pila.dato[Pila.Tope]:=StrToInt(E_INGRESAR.text);
     SG_NUMEROS.Cells [0,fila-1]:= IntToStr(Pila.dato[Pila.Tope]);
     fila:=fila-1;
     E_INGRESAR.Clear;E_INGRESAR.SetFocus;
  end;
 
end;
 
 
 
procedure TForm1.B_MOSTRARClick(Sender: TObject);
   Begin
 If Pila.Tope<=4 Then
   Begin
     Pilamenor.topemen:= Pilamenor.topemen+1;
     Pilamenor.Dato[Pilamenor.topemen]:=Pila.dato[Pila.Tope];
     SG_MENUMBRAL.Cells [0,filamen-1]:= IntToStr(Pilamenor.Dato[Pilamenor.topemen]);
     filamen:=filamen-1;
     Pila.Tope:=Pila.Tope-1;
   end;
  If Pilamenor.topemen=4 then
   Begin
    Showmessage('Pila LLena');
   End;
end;
 
end.[/code]

 

 

[Delphius]

Hola Nelsonguzmans,

Bienvenido a DelphiAccess.

 

¿Podrías explicarte mejor? No termino de entender lo que pretendes hacer. Dedica minutos a reordenar y pensar bien tus palabras. Esto no está bien escrito:

 

 

necesito hacer un programa de menor o mayor que

ejm

del StringGrid "SG_NUMEROS"

 

'Menor a qué? ¿Mayor a qué?

¿Qué debemos entender por Clasificar? Hay dos acepciones a ese término: agrupar, u ordenar. Por que no es lo mismo pretender separar una pila en 2, que ordenar.

Entiendo que tienes una Pila original, y pareciera que la idea es de ésta pasar los items a 2 pilas. Pero insisto: no es lo mismo simplemente pasar, que los mismos estén ordenados.

 

Si es lo primero lo que necesitas es ir leyendo la pila, y pasarlo hacia una u otra dependiendo del valor.

Si es lo 2do, es algo ya mucho más elaborado, y deberías pensar en un algoritmo de ordenamiento y empleando pilas. Vas a necesitar al menos una pila auxiliar o temporal en la vayas poniendo y sacando items para ir ordenando a medida que lees desde la original.

 

Recuerda: Lo importante del concepto de PILA, o más en genera una estructura Lista LIFO es justamente que el ULTIMO ELEMENTO en ENTRAR sea el PRIMERO en SALIR. De allí su nombre en Inglés: Last In, Firt Out. Para hacerlo gráfico, piénsalo como una pila de platos que vas a poner a lavar. El primero a lavar será el que esté por encima de todo, y el último en lavar el que estaba debajo de todo.

 

Cuando uno saca de una pila y pone en otra, los elementos quedan exactamente en el orden inverso.

 

Tu código va bien.

Pero puntualicemos, ¿concretamente, en que tienes dudas? ¿En que parte te sientes trabajo? ¿Que código además de este estuviste probando? ¿Te salieron errores, cuáles?

En DelphiAccess no hacemos la tarea a nadie. Es parte de nuestras normas y reglas, en su lugar ayudamos y brindamos guías y propuestas para que cada quien pueda llegar a su solución. Además, brindarte código asi como sin más, no te beneficia. Lo importante es que hagas el ejercicio craneal.

 

Saludos,