• Viernes 8 de Noviembre de 2024, 16:57

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - lolita23

Páginas: [1]
1
Pascal / Re: Desencriptar clave
« en: Martes 4 de Agosto de 2009, 13:55 »
Muchas gracias a todos por vuestra ayuda, finalmente opte por mi solución xq me resulta mas fácil y mas sencilla.
Graciasss.

2
Pascal / Re: Desencriptar clave
« en: Viernes 24 de Julio de 2009, 00:28 »
Bueno, pero en caso de usar la pila esta bien como lo hice???

3
Pascal / Desencriptar clave
« en: Jueves 9 de Julio de 2009, 18:38 »
Bueno pues lo que tengo que hacer ahora es lo siguiente:
Me dan una palabra y lo que tengo que hacer es invertir cuando hay 2 vocales o mas seguidas.
Por ejemplo:
puerta-->peurta
Esto es lo que he hecho, si alguien me lo pudiera revisar....
MUCHAS GRACIAS.

Código: Pascal
  1.  
  2. PROCEDURE encriptar (VAR palabra:string)
  3. VAR
  4.    pila:tPila;
  5.    cola:tCola;
  6.    Car1,Car2:Char;
  7.    I:Integer;
  8. BEGIN
  9.     CrearPila(pila);
  10.     CrearCola(cola);
  11.     FOR (I:=1 to length(palabra)) DO
  12.     Begin
  13.        IF (palabra[I] Not in ['a','e','i','o','u']) THEN
  14.            MeterEnCola(palabra[I],cola);
  15.        ELSE
  16.            Apilar(palabra[I],pila);
  17.    REPEAT
  18.         SacarDeCola(Car1,cola);
  19.         Desapilar(Car2,pila);
  20.    UNTIL (EsVacia(cola) OR EsVacia(Pila)=True)
  21. END;{fin}
  22.  
  23.  

4
Pascal / Re: Comprobar que un arbol es ponderado
« en: Jueves 9 de Julio de 2009, 18:09 »
Ante todo muchas gracias.
Hice un procedimiento porq me dan la cabecera y me piden que sea un procedimiento, no por otra cosa.
Y lo de <=10, porq si la diferencia es igual o menor que 10 entre los 2 subarboles es ponderado sino no.
Gracias de nuevo.

5
Pascal / Re: Comprobar que un arbol es ponderado
« en: Miércoles 8 de Julio de 2009, 16:36 »
Bueno pues muchas gracias por contestar y por la información.
Una vez aclarado lo de Arbol Ponderado: es q la suma de los pesos de cada subarbol izq no suma más q el subarbol derecho.
Me puesto a la tarea, ahora si alguien me lo puede revisar.
MUCHAS GRACIAS.

Código: Pascal
  1. TYPE
  2.      tInfo=integer;
  3.      tArbol=^tNodo;
  4.      tNodo=record
  5.            Peso:tInfo;
  6.            iz,de:tArbol;
  7.       end;
  8. VAR
  9.     AB: tArbol;
  10.  
  11. {Hago un recorrido en Enorden y sumo el peso de los nodos}
  12. PROCEDURE Recorrido (Arbol:tArbol;Var Peso:integer);
  13. Begin
  14.      If (AB <> nil) then
  15.         Begin
  16.           Recorrido(Arbol^.iz,Peso);
  17.           Peso:=Peso+Arbol^.Peso;
  18.           Recorrido(Arbol^.de,Peso);
  19.         End;
  20. End;
  21.  
  22. PROCEDURE ComprobarPonderado (AB:Tarbol; VAR Ponderado:Boolean; VAR Peso:Integer)
  23. VAR 
  24.     X,SumaIzq,Sumador: Integer;
  25. BEGIN
  26.     If (AB=Nil) Then
  27.     Begin
  28.         Ponderado:=true
  29.         Peso:=0
  30.    End;{If}
  31.      Else Begin {AB<>Nil}
  32.        SumaIzq:=0;
  33.        sumaDer:=0;
  34.        Recorrido(Arbol^.iz,Sumaizq);{sumamos el subarbol izquierdo}
  35.        Recorrido(Arbol^.de,SumaDer);{sumamos el subarbol derecho}
  36.        x:=SumaDer-SumaIzq;
  37.       If (x <= 10) Then
  38.           Ponderado:=true
  39.       else
  40.          Ponderado:=False;
  41.    End;{Else}
  42. END;
  43.  
  44.  
  45.  

6
Pascal / Comprobar que un arbol es ponderado
« en: Martes 7 de Julio de 2009, 13:19 »
Hola, pues mi duda es sobre un ejercicio que tengo que hacer en el que me piden que mire si un arbol es ponderado.
Mi primera duda es sobre cuando un arbol es ponderado para poder empezar a hacerlo.
Si alguien me lo puede aclarar se lo agradeceria para poder empezar a escribir codigo.
Para realizar el ejercicio me dan esta cabecera:
PROCEDURE ComprobarPonderado(VAR Ponderado: Boolean; VAR Peso:Integer)

Páginas: [1]