Ir al contenido


Foto

Implementación de una clase PILA en delphi


  • Por favor identifícate para responder
6 respuestas en este tema

#1 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.945 mensajes
  • LocationMéxico

Escrito 17 septiembre 2009 - 12:40

de mis tiempos de estudiante quiero compartirles esto:



delphi
  1. type
  2.   Tarray = Array of char;
  3.   Tpila = Class
  4.     Private
  5.       Datos: Tarray;
  6.       indice: Integer;
  7.       NumElementos: Integer;
  8.     Public
  9.       Procedure Inicializa(Objeto: Tpila; NumEle: integer);
  10.       Procedure MeterCaracter(Objeto: Tpila; Dato : string);
  11.       Procedure Meterpalabra(objeto:TPila;Dato: String);
  12.       Procedure VaciarPila(objeto:TPila;Dato: TEdit);
  13.     end;
  14.  
  15.  
  16.  
  17.  
  18. implementation
  19.  
  20. Procedure Tpila.Inicializa(Objeto: Tpila; NumEle: integer);
  21. begin
  22. If (NumEle < 1) then
  23.   ShowMessage('La pila debe contener al menos un elemento')
  24. else if(NumEle > 25) then
  25.   ShowMessage('La pila debe contener Como máximo 25elementos')
  26. else
  27. begin
  28. indice := 0;
  29. NumElementos := NumEle;
  30. SetLength(Objeto.Datos,NumElementos);
  31. ShowMessage('su pila Almacenará como máximo ' + IntToStr(NumEle) + ' elementos');
  32. end;
  33. end;
  34.  
  35. Procedure Tpila.MeterCaracter(Objeto:Tpila; Dato : string);
  36. begin
  37. Indice := Indice + 1;
  38. If (indice > NumElementos) then
  39.   begin
  40.   Showmessage(IntToStr(indice) + ' Ha sobrepasado el tamaño de la pila' +'('+ intToStr(NumElementos) + ')' );
  41.   indice := indice - 1;
  42.   end
  43. else
  44.     Objeto.Datos[indice] := Dato[indice];
  45. end;
  46.  
  47. Procedure Tpila.MeterPalabra(objeto: TPila; Dato: String);
  48. Var
  49. i: Integer;
  50. begin
  51.   For i := 1 to NumElementos do
  52.   begin
  53.   objeto.datos[i] := Dato[i];
  54.   Indice := i;
  55.   end;
  56. end;
  57.  
  58. Procedure Tpila.VaciarPila(Objeto: Tpila;dato: TEdit);
  59. var
  60. i: integer;
  61. begin
  62. For i := indice downto 1 do
  63.   begin
  64.     Dato.text := Dato.text + Objeto.datos[i];
  65.   end;
  66. end;


  • 0

#2 Fenareth

Fenareth

    Advanced Member

  • Moderador
  • PipPipPip
  • 3.486 mensajes
  • LocationMexico City

Escrito 17 septiembre 2009 - 12:45

Jejeje que bueno que lo publicaste hasta ahorita mi amor, hace aproximadamente 4 meses se los dejé como problema de investigación a mis alumnos en la Universidad  :p... y hasta donde sé parieron chayotes para hacerlo, cosa que no hubiera sucedido con este código...

Saludox !  :D
  • 0

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.261 mensajes
  • LocationMéxico

Escrito 17 septiembre 2009 - 12:51

Jejeje que bueno que lo publicaste hasta ahorita mi amor, hace aproximadamente 4 meses se los dejé como problema de investigación a mis alumnos en la Universidad  :p... y hasta donde sé parieron chayotes para hacerlo, cosa que no hubiera sucedido con este código...

Saludox !  :D


Todo por no registrarse en DA y hacer la pregunta :p

Salud OS
  • 0

#4 Fenareth

Fenareth

    Advanced Member

  • Moderador
  • PipPipPip
  • 3.486 mensajes
  • LocationMexico City

Escrito 17 septiembre 2009 - 12:56


Jejeje que bueno que lo publicaste hasta ahorita mi amor, hace aproximadamente 4 meses se los dejé como problema de investigación a mis alumnos en la Universidad  :p... y hasta donde sé parieron chayotes para hacerlo, cosa que no hubiera sucedido con este código...

Saludox !  :D


Todo por no registrarse en DA y hacer la pregunta :p

Salud OS


:o Ustedes que les dicen la respuesta y yo que los ahorco  8o|  :p

Jejeje, bueno, que lo hagan, ya buscaré la manera de hacerlos parir chayotes de todos modos  (6)

Saludox !  :D
  • 0

#5 eduarcol

eduarcol

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.483 mensajes
  • LocationVenezuela

Escrito 17 septiembre 2009 - 01:23

Cuando yo daba clases les daba las opciones, ¿a ver, como quieren el examen?

A libro abierto o Normal, no se porque nadie queria el de libro abierto  :undecided:
  • 0

#6 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.261 mensajes
  • LocationMéxico

Escrito 17 septiembre 2009 - 02:32

Cuando yo daba clases les daba las opciones, ¿a ver, como quieren el examen?

A libro abierto o Normal, no se porque nadie queria el de libro abierto  :undecided:


Pues resulta que ese tipo de exámenes a libro abierto nos lo hacia un profesor en el bachillerato :s, son tremendos......

Salud OS
  • 0

#7 eduarcol

eduarcol

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.483 mensajes
  • LocationVenezuela

Escrito 17 septiembre 2009 - 03:34


Cuando yo daba clases les daba las opciones, ¿a ver, como quieren el examen?

A libro abierto o Normal, no se porque nadie queria el de libro abierto  :undecided:


Pues resulta que ese tipo de exámenes a libro abierto nos lo hacia un profesor en el bachillerato :s, son tremendos......

Salud OS


un examen a libro abierto es mas una tarea de investigacion de dos horas que una evaluación de lo que aprendistes al caletre.  YO NO ESTOY DE ACUERDO CON LAS EVALUACIONES, ya que no reflejan el real grado de conocimiento del estudiante, solo su capacidad de retención.
  • 0