• Jueves 18 de Abril de 2024, 13:46

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 - pere

Páginas: [1]
1
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Sábado 30 de Diciembre de 2006, 19:47 »
me da un poco de verguenza jeje pero tened en cuenta que estoy empezando eh? :lol:

2
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Sábado 30 de Diciembre de 2006, 19:24 »
gracias por aclararme la duda enko.
He probado tambien con las funciones low y high pero me ha salido un error y me ha cerrado el compilador, a saber...

3
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Sábado 30 de Diciembre de 2006, 10:47 »
jeje es precisamente eso lo que no se hacer. La verdad es que llevo poco tiempo en esto y aun me falta mucho, pero mucho mucho.
Pero bueno al final lo he hecho "a mi manera" y lo mas importante funciona  :P
Eso no quiere decir que no vaya a investigar como se hace, cuando tenga tiempo lo probaré de hacer con un pequeño programa a ver si me sale. Gracias de todas formas.

Una cosa mas si alguien pudiera echarle un vistazo al codigo para corregir y simplificar lineas le estaría muy agradecido ya que no tengo a nadie a quien preguntarle excepto a vosotros. Es mi primer programa y seguro que está hecho un patatal (aunque funciona jeje).

4
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Viernes 29 de Diciembre de 2006, 12:03 »
jejeje el problema es que la array no solo tiene tres elementos tiene unos cuantos mas ....  ,eso era un ejemplo,seguiré probando  :comp: .

5
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Viernes 29 de Diciembre de 2006, 01:25 »
Bien lo del for lo he pensado pero tengo el siguiente inconveniente.
bajo mi enterder se haría así

Código: Text
  1. type
  2. golitos = array [1..3] of integer;
  3. var goles:golitos; suma:integer;
  4. begin
  5. for suma := golitos[1] to golitos[3] do; {así leo todo el array creo}
  6.  

pero me falta la suma y no se me ocurre nada jo.

yo lo hago de la siguiente manera:

Código: Text
  1. type
  2. golitos:=array [1..3] of integer;
  3. var
  4. goles:golitos;
  5. suma: integer;
  6. begin
  7. suma:=goles[1]+goles[2]+...;
  8. writeln (goles);
  9. end;
  10.  

así si que me los suma pero entiendo que es una manera erronea porque si el array tiene 30 posiciones me volvería loco

6
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Viernes 29 de Diciembre de 2006, 00:28 »
Es otra preguntilla mas, que la pongo aquí para no abrir demasiadas discusiones.

vereis es que he creado un array en los cuales he depositado unos número y ahora yo quisiera sumar todos esos números, lo hago accediendo a cada uno de ellos por separado y luego los sumo, igualandolos a otra variable.
Ejemplo:
Código: Text
  1. suma {variable} := goles[1]+goles[2]+....
  2.  
Hasta ahí bien pero  se pueden sumar todos de golpe sin tener que acceder uno por uno al array? estoy casi seguro de que se puede hacer pero no se como por mas vueltas que le doy.

7
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Martes 26 de Diciembre de 2006, 14:55 »
Gracias a los dos por contestar, la verdad saiyan es que esa manera tambien la había probado pero sin concatenar y por consiguiente 'el error'. :P

Nunca me acostaré sin saber una cosa mas muchas gracias por eso.

8
Pascal / Re: Preguntar Nombre Para Crear Un Archivo
« en: Martes 26 de Diciembre de 2006, 00:36 »
Gracias .B. pero...

Pues no me sale...
debería ser algo así:


 program cambiar_nombre;
var
archivo: text;
nombre: string;
begin
writeln ('dame nombre');
readln (nombre);
assign (archivo,'C:\xxx.txt');
assign (archivo, nombre);
rewrite (archivo);
close (archivo);
end.

sin la linea /assign (archivo, nombre);/ me he dado cuenta de que crea el archivo xxx pero con ella no me crea ni con el nombre xxx.txt ni con el que guardo en la variable nombre o sea no me crea nada 'jo¡¡¡ que lío'.
que es lo que está pasando? y como lo puedo solucionar?

9
Pascal / Preguntar Nombre Para Crear Un Archivo
« en: Lunes 25 de Diciembre de 2006, 22:33 »
Mi problema esta vez es que quiero crear un archivo txt pero quiero ponerle yo el nombre directamente.
He creado una variable string para guardar un nombre en concreto, pero no se como asignársela al archivo para que éste se cree con el nombre de la variable string.

Podríais ayudarme? Ya he mirado en el buscador y no he encontrado nada que me ayudara pero sí otras cosas como el IOResult ('imprescindible en el hogar' jeje).

10
Pascal / Re: Escribir En Texto
« en: Viernes 15 de Diciembre de 2006, 09:55 »
muchisimas gracias por la rocomendación del libro y gracias por la explicación que ahora si que me haquedado claro como tengo que hacerlo.
Bueno a medida que vaya añadiendo cosas al programa seguro que iré preguntando mas cosas, otra vez gracias.

11
Pascal / Re: Escribir En Texto
« en: Jueves 14 de Diciembre de 2006, 21:08 »
JE JE JE supongo que no hay ninguno para pardillos y con el que tengo no me entero demasiado, por eso:
-Podríais ponerme un ejemplo claro de como utilizar el procedimiento seek() ? a ver si me entero....
-Dices que con el procedimiento seek puedes desplazarte  aleatoriamente, y una vez posicionado, de que manera realizo la lectura del valor de  este registro para yo poder hacer las operaciones que sean necesarias?

No se si me explico con claridad disculpen las molestias.

12
Pascal / Re: Escribir En Texto
« en: Jueves 14 de Diciembre de 2006, 10:41 »
gracias driverop lo probaré en cuanto llegue y si no me sale ya volveré a postear.

Por cierto me recomendais algún libro de turbo pascal que sea para pardillos como yo?

13
Pascal / Re: Escribir En Texto
« en: Jueves 14 de Diciembre de 2006, 09:54 »
gracias enko por la respuesta, lo que pasa es que si utilizo rewrite se borrará todo el archivo no? y eso no me interesa, lo que quiero es poder cambiar valor en una determinada situación dentro del txt por ejemplo:

goles de drogba 4

y si yo quiero que solo cambie el (4) por el valor que yo le ponga? como lo tengo que hacer?
Estoy intentando utilizar el goto (x,y) con el read pero al utilizarlo me lee todo el archivo y me posiciona el cursor en la posiciión (x,y)....
Ahora estoy en el trabajo y no me acuerdo muy bien como lo hice, esta tarde seguiré. Lo que si que se es que lo hago con un registro y de momento solo tengo un jugador, pero quiero ponerle el equipo entero y poder ir sumandole los goles a medida que vayamos marcando goles (supongo que tendré que utilizar arrays de registro :scream: .
venga un saludo.

14
Pascal / Escribir En Texto
« en: Miércoles 13 de Diciembre de 2006, 22:16 »
O mejor dicho en un texto.
Ante todo muy buenas y deciros que aunque escribo poco en el foro no he dejado de darle caña para a ver si aprendo algo de programación y tengo una duda (bueno tengo muchas pero esta es una de ellas).
A ver escribir algo en un txt ya se hacerlo pero hacer que lo escriba siempre en el mismo sito y reescribiendo lo que había escrito, se puede hacer?
Porfa darme unas pistillas que ando bastante perdido.

15
Pascal / Re: Compilacion En Memoria
« en: Sábado 18 de Noviembre de 2006, 11:55 »
No me pregunteis como pero ya está solucionado  :blink:

16
Pascal / Compilacion En Memoria
« en: Sábado 18 de Noviembre de 2006, 11:05 »
Hola muy buenas a todos soy nuevo por aquí, ante todo explicar que siempre he querido aprender a programar, de hecho he intentado hacerlo varias veces pero sin exitos. Esta es la priemra vez que entro en un foro de programación para preguntar mis dudas (ya lo hice en el de ensamblador pero leí que lo mejor es empezar con uno mas 'sencillo' como éste).

He conseguido generar un exe (compilando al disco) pero si quiero compilar en memoria, se me abre el dos (con la opcion run) sin ejecutarse el programa y además se me queda la pantalla colgada sin posibilidad de volver al Turbo pascal.
¿Que hago mal? mi SO es el W XP, como era de esperar y por si sirve de algo.

Tambien leí lo del parche pero creo que no lo hago bien o el que me he descargado... bueno lo mas seguro es que hago la picha un lío
Pueden ayudarme?

17
ASM (Ensamblador) / Re: Linea Que No Entiendo
« en: Domingo 12 de Noviembre de 2006, 22:04 »
pues tienes toda la razón del mundo y yo entendí lo contrario. Se me fué el santo al cielo :P

18
ASM (Ensamblador) / Re: Linea Que No Entiendo
« en: Domingo 12 de Noviembre de 2006, 21:42 »
no? ...  bueno ahora si que me has matao.
(Edito)
El valor que se le da a Ah determina cual de las opciones de la interrupcion 21h será utilizada, ya que esta interrupción cuenta con varias opciones.
Esta la he sacao de por ahí. la verdad es que no se si es lo que yo he intentado razonar pero de todas maneras que quedo con esa y con la tuya muchas gracias

19
ASM (Ensamblador) / Re: Linea Que No Entiendo
« en: Domingo 12 de Noviembre de 2006, 21:01 »
a ver si lo he entendido bien.
Pienso que la int 21 se puede utilizar de varias maneras, en este casa se utiliza el servicio 9 de la interrupcion 21 asignandoselo a ah para mostrar una cadena.
Me equivoco?

20
ASM (Ensamblador) / Re: Linea Que No Entiendo
« en: Domingo 12 de Noviembre de 2006, 20:46 »
gracias por la rapidez, me costará un poquito traducirlo.... el inglis no es lo mio.
pero supongo que hay que espavilarse

21
ASM (Ensamblador) / Linea Que No Entiendo
« en: Domingo 12 de Noviembre de 2006, 20:40 »
Hola soy nuevo por aquí y como veis empiezo preguntando, puesto que estoy pegao en esto y no entiendo algunas cosillas.
Vereis el programa lo entiendo mas o menos, menos una linea (que he puesto en rojo) que no le acabo de encontrar el sentido. Y si no la pongo me da error.
Este código está sacado de un tutorial que me he descargado, está escrito con el degug del win.

- a100
0C1B:0100 jmp 125 ; brinca a la dirección 125H
0C1B:0102 [Enter]
- e 102 'Cadena a visualizar 15 veces' 0d 0a '$'
- a125
0C1B:0125 MOV CX,000F ; veces que se desplegara la cadena
0C1B:0128 MOV DX,0102 ; copia cadena al registro DX
0C1B:012B MOV AH,09 ; copia valor 09 al registro AH
0C1B:012D INT 21 ; despliega cadena
0C1B:012F LOOP 012D ; si CX>0 brinca a 012D
0C1B:0131 INT 20 ; termina el programa.

Gracias de antemano y saludos

Páginas: [1]