elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ayuda procedimiento Pascal
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda procedimiento Pascal  (Leído 2,834 veces)
manu3742

Desconectado Desconectado

Mensajes: 20


Ver Perfil
Ayuda procedimiento Pascal
« en: 20 Abril 2011, 12:46 pm »

Vereis tengo una constante cuyo número de libro en la biblioteca es de 50.

Al utilizar este procedimineto que os pongo me salen para introducir datos de libros los 50.

qué código tengo que agregar para que únicamente me salga un libro a introducir y no los 50?

saludos y gracias por anticipado.


Código
  1. PROCEDURE lee_biblioteca(var biblioteca: Tbiblioteca; longitud: integer);
  2.  
  3. var
  4.  
  5. i: integer;
  6.  
  7. begin
  8.  
  9. for i:= 1 to longitud do
  10.  
  11. begin
  12.  
  13. writeln('Introduzca los datos del libro: ' , i);
  14. lee_libro(biblioteca[i]);
  15.  
  16. end;
  17.  
  18. end;


En línea

skapunky
Electronik Engineer &
Colaborador
***
Desconectado Desconectado

Mensajes: 3.667


www.killtrojan.net


Ver Perfil WWW
Re: Ayuda procedimiento Pascal
« Respuesta #1 en: 20 Abril 2011, 14:19 pm »

Se te ven los 50 libros porque haces:

for i:= 1 to longitud do

Donde imagino que "longitud" es 50... si quitas ese bucle ya no se te listarán los 50,es decir con ese bucle haces 50 veces el writeln de 1 a 50.


En línea

Killtrojan Syslog v1.44: ENTRAR
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: Ayuda procedimiento Pascal
« Respuesta #2 en: 20 Abril 2011, 14:45 pm »

HOLA!!!

Como dice skapunky , asi te salen los 50 ( suponiendo que long sea 50).

Ahora si long es el libro a ver tendrias que hacer:
Código:
i:=Longitud
Y yo pondria un:
Código:
ReadLn(datos)
Para que el usuario pudiese introducir los datos para el libro i.

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
manu3742

Desconectado Desconectado

Mensajes: 20


Ver Perfil
Re: Ayuda procedimiento Pascal
« Respuesta #3 en: 20 Abril 2011, 17:48 pm »

Gracias por contestar , pero no compila.

Dado esto, creo que tengo que hacer una busqueda en la tabla para que me diga que posición de las 50 entradas esta libre e introducir los datos del libro.

El problema es como hago una busqueda de una posicion libre en la tabla.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda con procedimiento
Programación Visual Basic
4D1cTo 8 3,342 Último mensaje 19 Febrero 2008, 03:54 am
por Chefito
Ayuda con procedimiento. Simular array en text
Bases de Datos
Hadess_inf 1 2,389 Último mensaje 22 Abril 2010, 21:50 pm
por ^Tifa^
procedimiento para dar de baja un registro en Pascal
Programación General
manu3742 3 4,850 Último mensaje 20 Abril 2011, 13:06 pm
por manu3742
AYUDA.PROCEDIMIENTO PARA DAR DE ALTA. PASCAL
Programación General
manu3742 3 4,783 Último mensaje 25 Abril 2011, 17:44 pm
por d(-_-)b
Ayuda con procedimiento
.NET (C#, VB.NET, ASP)
SγиtαxEяяoя 3 2,479 Último mensaje 10 Julio 2013, 21:10 pm
por SγиtαxEяяoя
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines