|
26-may-2012 | #1 |
Erudito Ingreso: mayo-2010
Ubicación: Chile,Región de Valparaiso,El Quisco
Mensajes: 2.072
Sexo: País: Signo:
Agradecido: +3.024
|
Ayuda con Pila en Pascal
Hola amigos necesito de su ayuda, quisiera que me ayudaran con el codigo en pascal para "modificar" y "eliminar" si me pueden guiar seria grandioso. Bueno este codigo se trata de llenar una pila, casi todos los parametros estan listo solo me falta el modificar y eliminar, se que no es dificil pero en verdad no ando con la cabeza buena, ando totalmente nulo para programar asi que en verdad si me ayudan sería estupendo.
Les dejo el codigo Código:
Program Estructura; { Se utilizarán los siguientes procedimientos: PUSH --> Para insertar un elemento PULL --> Para sacar un elemento BUSCA -> Para determinar si el elemento existe en la pila MUEVE -> Para llevar los elementos a una pila auxiliar La variable TOPE indica la posición de inserción en la pila (último elemento ingresado) TOPE = Puntero que lleva la cuenta de elementos ingresados } Uses CRT; Var Pila:Array[1..20] of Integer; i,j,opcion,elemento,pos,Tope:Integer; Procedure Limpia; { limpia la pila } Var k:Integer; Begin For k:=1 to 20 do Pila[k]:=0; End; Procedure Imprime; { imprime la pila} Var k: Integer; Begin Writeln('Imprime la Pila'); Writeln; For k:=1 to 20 do Write(Pila[k]:3); Writeln; Readln; End; Procedure Busca(valor:Integer); { valor es el elemento a buscar } Var k:Integer; Encuentra:Boolean; Begin k:=1; Pos:=0; Encuentra:=False; While (Encuentra) do Begin If(Pila[k] <> 0) then Begin Encuentra:=True; Pos:=k; End Else k:=k+1; End; End; { Procedimiento para determinar si la pila tiene espacio para insertar un elemento a la pila. } Procedure Busca_espacio; Begin If(Tope = 1) and (Pila[1] <> 0) then Writeln('Pila llena.. no puede insertar elemento'); End; { Procedimiento que inserta un elemento } Procedure Push; Var k,m:Integer; {m es la variable que ubica el puntero en la pila} Begin Writeln('Ingrese elemento'); Read(Elemento); busca_espacio; For k:=1 to Tope do If(Pila[k]=0) and (k = tope) then Begin Pila[k]:=Elemento; Tope:=Tope-1; Writeln('Elemento=',Elemento,' Correctamente ingresado'); Readln; End; End; Procedure Pull; Begin End; Procedure Modifica; (AQUI ES DONDE DEBERIA IR EL CODIGO DE MODIFICAR) Begin End; Begin {programa principal} Limpia; opcion:=9; Tope:=20; While (opcion <> 0) do Begin { Clrscr;} Writeln(' MENU PRINCIPAL'); Writeln; Writeln(' 1 Inserta'); Writeln(' 2 Elimina'); Writeln(' 3 Modifica'); Writeln(' 4 Lista'); Writeln(' 0 Salir'); Writeln('Ingrese opcion : '); Read(opcion); Case opcion of 1:Push; 2:Pull; 3:Modifica; 4:Imprime; 0:Begin Writeln('Chao pescado...'); Readln; End; Else Writeln('Opcion invalida... vuelva a seleccionar'); End; End; End. No existen malos días,solo son malos momentos que sumados te marcan el día. Volviendo poco a poco al foro Respeta las REGLAS de y no hagas
|
26-may-2012 | #2 |
Banned Ingreso: julio-2009
Ubicación: Mexico City, Capital del Mundo
Mensajes: 33.485
Sexo: País: Signo:
Agradecido: +70.458
|
Aun existe Pascal ????????????????????????????????????????????
jajajajajajajajajajaja |
26-may-2012 | #3 | |
Erudito Ingreso: mayo-2010
Ubicación: Chile,Región de Valparaiso,El Quisco
Mensajes: 2.072
Sexo: País: Signo:
Agradecido: +3.024
|
Lo se, pero esto es con fin pedagógico No existen malos días,solo son malos momentos que sumados te marcan el día. Volviendo poco a poco al foro Respeta las REGLAS de y no hagas
|
|
09-nov-2012 | #5 | |
Novato Ingreso: agosto-2010
Mensajes: 41
Sexo: País: Signo:
Agradecido: +126
|
Recuerdo cuando vi eso. No es dificil, es simliar a las Colas... Lastimosamente no tengo los fuentes y es tedioso hacerlo a estas alturas (para mi jaja). sin embargo encontré este código sacado de http://html.rincondelvago.com/pilas-y-colas.html :
http://www.todoexpertos.com/categori...7/pilas-pascal y para el menu principal, puedes poner ese mismo que tu tienes... espero te sirva, y cualquier duda no dudes en contactarnos ;) Última edición por RHAF; 09-nov-2012 a las 15:51 Razón: otra fuente |
|
(0 miembros y 1 visitantes) | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Té Verde: 25 Razones para comenzar a tomarlo ahora mismo.... | cramercaba | Medicina y Salud | 13 | 28-ene-2012 17:46 |
ayuda Programa de calculadora en Pascal | RadamantiS | Programación | 2 | 07-ene-2012 17:29 |
*.* Shepara v1.0 Ayuda para Internacionalizar tus Aplicaciones [Concurso 2011] | nokiajavi | Tutoriales & Videos Tutoriales | 5 | 21-jul-2011 03:21 |
Manual fspassengers en español | Corbet | AudioLibros, Manuales, Libros & Revistas | 4 | 30-mar-2011 23:57 |
Ayuda Urgente ej, de pascal | Xmas | Programación | 1 | 15-feb-2011 13:02 |