|
|
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 - _.B._
1
« en: Miércoles 17 de Enero de 2007, 15:50 »
Saludos! Prueba pasando "Ficha" como parámetro formal. procedure Vaciar_Almacen(var Ficha : T_Almacen);
Espero te sirva 
2
« en: Miércoles 17 de Enero de 2007, 15:45 »
Saludos! Con respecto a las dimensiones, tienes varias opciones. Puedes definir una matríz grande, y validar que las filas y columnas estén dentro del rango que decidas, al momento de capturar los datos. Luego trabajas sólo en la parte de la matríz limitada por los datos de entrada. Un dato. Al trabajar con matrices, sin conocer sus dimensiones, puedes trabajar con un vector (unidimensional). Sólo debes formular unas ecuaciones para llevar coordenadas de dos dimensiones a la posición del vector. Y vice-versa. Así, puedes declarar un vector de, por ejemplo, tamaño 100, y aceptar dimensiones como 2x50, 10x10, y demás; mientras que si creas una matríz de 10x10, ocupando el mismo espacio que tu vector de 100, limitarías las dimensiones a un máximo de 10. A programar!
3
« en: Miércoles 17 de Enero de 2007, 15:27 »
Mi primer impulso? Crear una nueva variable (en caso de archivos, un nuevo archivo), y añadirle, caracter a caracter, todo caracter que no sea una vocal repetida. Algo como: original: string; copia: string; ... copia[1] := original[1]; tam := 1; cont := 2; mientras cont <= tamaño de original hacer si original[cont] es vocal Y si original[cont] = copia[cont - 1] continuar con ciclo; si no copia[tam] := original[cont]; inc(tam); inc(cont); ...
Espero te sirva
4
« en: Lunes 25 de Diciembre de 2006, 23:27 »
¡Saludos Pere! Igual que para crear cualquier archivo, 'assign' recibe una dadena de caracteres como segundo parámetro, la cual puede ser cualquier variable. var archivo : TEXT; nombre : string; ... assign(archivo, nombre);
¡A programar!
5
« en: Jueves 14 de Diciembre de 2006, 13:57 »
Sip, debes abrir las imágenes como archivos binarios, y leer de todo un encabezado, o de variable en variable (ancho, largo, profundidad, etc.). Ahora, ¿es una imágen BMP o JPEG? Sus encabezados son distintos. Dale un googlazo para que encuentres el encabezado que buscas, y luego un fread te debería servir. Cualquier cosa vuelve a preguntar, que seguro alguien te responde. ¡A programar!
6
« en: Lunes 27 de Noviembre de 2006, 21:25 »
¡Saludos! Al parecer era cuestión de orden de prioridades en las sentencias. Podrías hacer un par de corridas en frío para verificar que el orden es correcto. Bueno, también había que tomar en cuenta la posibilidad de que leyera un número 0 al enviar un READ a un archivo sin números (al final del archivo si dejas espacios en blanco o saltos de línea). Hice unas pruebas, y con estas modificaciones funciona: Program Numero_Primo (fichero,output); Var Fichero: Text; Numero, Coord_X, Coord_Y: Integer; final,Primo: Boolean; h:char; Function numeroprimo(numero:integer):boolean; var valor,resto_div: integer; begin valor := 1; resto_div :=1; if numero = 1 then primo := true else begin while resto_div <> 0 do begin valor := valor +1; resto_div:= (numero mod valor); end; if numero = valor then numeroprimo := true else numeroprimo := false; end; end; Procedure salida_pantalla(numero1:integer;var primo:boolean); Begin writeln; Writeln('********************************************************'); Writeln('* Nombre del Alumno: Jos‚ Antonio Barreiro Calvi¤o *'); Writeln('* Asignatura: Fundamentos de Programaci¢n (FP I) *'); Writeln('* Curso: ITIG (Ingenieria T‚cnica Inform tica Gesti¢n) *'); Writeln('* N£mero de Matr¡cula: bd003 *'); Writeln('********************************************************'); writeln; if primo = false then writeln (output,'El N£mero: ',numero1, ' no es n£mero primo en la pos X:', coord_x, ' pos Y:', coord_y) else writeln (output,'El N£mero: ',numero1, ' es n£mero primo en la pos X:', coord_x, ' pos Y:', coord_y); End; { Cuerpo Principal. } Begin primo := true; coord_x:=0; coord_y := 1; assign (fichero, 'numeros.txt'); reset(fichero); repeat coord_x:=coord_x+1; read(fichero,numero); primo:=numeroprimo(numero); if (EOF(fichero)) and (numero = 0) then begin writeln; writeln('Se ha llegado al final de fichero. Pulse tecla ....'); end else salida_pantalla (numero,primo); if eoln(fichero) then begin coord_x := 0; coord_y := 1; end; until (eof(fichero)) and (numero = 0); close (fichero); End.
¡A programar!
7
« en: Jueves 10 de Agosto de 2006, 17:20 »
Gracias de nuevo!  ¡A programar!
8
« en: Martes 8 de Agosto de 2006, 20:52 »
¡Gracias a tí también por la respuesta Bicholey! Y por la explicación (me hacía falta).
Pero en mi caso particular, ¿apoyas la recomendación de Carmamezo de quedarme con los 512 MB a 400 MHz?
9
« en: Domingo 6 de Agosto de 2006, 06:51 »
Gracias por responder en tan corto tiempo! Eso tenía pensado  Lo que pasa es que no estaba seguro de la razón. Ahora otra pregunta para todos: entonces aquí vale la pena sacrificar Capacidad = (512 + 128) MB, 266 MHz por Velocidad = 512 MB, 400 MHz. ¿Correcto?
10
« en: Sábado 5 de Agosto de 2006, 09:57 »
Tengo 2 tarjetas de video ATi RADEON, diferentes modelos (una para PCI y otra para AGP), y son MUY buenas!!!!
11
« en: Sábado 5 de Agosto de 2006, 06:52 »
¡¡Saludos!! Tengo 2 opciones para mi Memoria RAM: 512 MB DDR400o 512 MB DDR400 junto con 128 MB DDR266 = 640 MB DDR266Es una Tarjeta Madre DDR400. ¿¿Cómo puedo saber cuál es la mejor opción?? 
12
« en: Sábado 10 de Junio de 2006, 04:35 »
como son archivos de fuente y no librerias en si (.lib), nada mas tenes que importarlas a tu proyecto yendo a project->add to project...dps el devc++ se encargara de compilarlas cuando hagas un build de todo tu proyecto ¡Gracias por la ayuda Chimps!
Header files = archivos de fuente 
Ahora, si yo no estoy trabajando con ningún Project, sino con archivos .cpp solos, ¿cómo hacerlo?
13
« en: Viernes 9 de Junio de 2006, 06:18 »
¡Saludos!
Necesito ayuda.
Estoy trabajando con Dev-C++ 4.9.9.2 - The Buggy Version  - y no logro configurarlo para que funcione con librerías creadas por mi.
Quizás es el cansancio, y espero que así sea y no sea difícil, pero ni un ejemplo sencillo puedo hacer que funcione.
En mi carpeta de trabajo c:\Cpp Stuff\Test tengo estos archivos:
general.h // Defines, typedef structs, consts y demás declaraciones comunes. claseBMP.h // Definición y cabecera de la clase. claseBMP.cpp // Código de las funciones y procedimientos de la clase. Test.cpp // Programa que utiliza las clases y también a la librería [B]general.h[/B]
¿Cómo configuro Dev-C++ para que utilice esas liberías? ¡Gracias de antemano, manos![/color]
14
« en: Viernes 9 de Junio de 2006, 04:58 »
la pila es una estructura dinamica de datos, estoy desconcertado... Sip, you're right Juan. Pero primero nos enseñan a simular una pila como una estructura "Estática" y luego como una "Dinámica", con punteros. Supongo que el la siguiente asignación nos manden a trabajar con listas enlazadas, y demás.
¿Alguien ha probado el código?
15
« en: Miércoles 7 de Junio de 2006, 09:23 »
Incluso en Borland Turbo Pascal puedes cambiarle el color a cada tipo de datos.
El notepad++ también cambia los colores.
¿Cuál compilador usas?
16
« en: Martes 6 de Junio de 2006, 06:01 »
¡Saludos!
De nuevo necesitando su ayuda.
Entregué un trabajo, codificado y compilado con Borland Turbo Pascal 7.0, y la Profesora de la asignatura me dijo que no pudo correr una pequeña parte del programa que permite graduar la velocidad de los sonidos que será utilizada durante todo el programa. Me dijo que lo tuvo que correr sin esa parte 
Es un trabajo en el que pedían, mediante el uso de Pilas Estáticas, manejar unas cajas.
SI PUEDEN, agradecería que algunos de ustedes bajaran los archivos y los corrieran a ver qué problemas consiguen.
Yo lo probé en 3 computadores (Windows 98 - 133 MHz, Windows XP 2.algo GHz, Windows XP 2.40 GHz), y funcionó bien. Lo único es que quizás necesite opciones más rápidas para el Windows 98 de 133 MHz, pero compiló bien, y fué ejecutado sin problemas.
Los archivos los pueden encontrar aquí:
http://mipagina.cantv.net/bernardolg/Pascal/index.html
¡Gracias de antemano![/size]
17
« en: Martes 6 de Junio de 2006, 05:17 »
¡Saludos! ¡Chuidiang, Mbrenes, Amilius, gracias a todos por las respuestas y ejemplos! Me han servido de mucho  ¡Sigan posteando! ¡A programar!
18
« en: Lunes 5 de Junio de 2006, 07:13 »
¡Saludos! Antes que nada, cuando declaro atributos privadas les coloco un "underscore" (' _') delante. Sólo lo hago para tener en cuenta que son privados. He visto códigos que utilizan uno, o dos seguidos, y no sé por qué lo hacen. ¿Existe alguna razón en particular para utilizarlas en los nombres de atributos y funciones? Mi otra duda es que cuando uno declara un destructor, ¿debe codificar como destruir el objeto?, ¿o el programa lo hace solo? Por ejemplo, parte de un código es el siguiente: class C_BitMap { private: uShort _arTipo; uLong _arTam; ... uLong _imAncho; uLong _imAlto; ... uChar _vectorBmp[maxPixeles]; public: // Constructor del Objeto a partir de un archivo bitmap. C_BitMap(const char in[]) { cargaArchivoBitMap(in); } ... // Destructor. ~C_BitMap() {} ...
¿Ese destructor debe llevar algún código para liberar la memoria? ¿Cómo lo llamo en el código principal para que destruya a un objeto? ¡Gracias de antemano!
19
« en: Jueves 11 de Mayo de 2006, 02:30 »
¡Eureka!
Mostrar u ocultar el cuadro de diálogo Convertir archivo
En el menú Herramientas, elija Opciones y, a continuación, haga clic en la ficha General.
Active o desactive la casilla de verificación Confirmar conversiones al abrir. Luego al abrir un archivo .PAS seleccionas que es un archivo de texto codificado, y luego seleccionas que está codificado como MS-DOS ¡Espero no se me olvide de nuevo! ¡A programar! [/color]
20
« en: Jueves 11 de Mayo de 2006, 01:57 »
¡Saludos Enko! Gracias por la pronta respuesta.  Lo que pasa es que estoy tratando de tener opciones para imprimir, cambiarle el tamaño de letra, márgenes, y todo lo que hacía con el Word que tenía antes. No recuerdo cómo hacía para que aparecieran las opciones de imprimir código del sistema, o algo así Bueno, si tu lo sabes, o alguien más me ayuda, estaría muy agradecido. Lo que estoy haciendo hasta el momento es abrir los archivos con Free Pascal, copiar todo a Windows, pegarlo 'especial' en FrontPage, y ahí editarlo. Pero preferiría abrirlo directamente con Word.
21
« en: Miércoles 10 de Mayo de 2006, 22:10 »
Saludos! Por favor necesito quien me puede decir cómo imprimir archivos .pas usando MS Word 2003 para que utilice la codificación del pascal (que se impriman los caracteres especiales!). Sino qué otro edior puedo utilizar para esto, si no es MS Word. Gracias!
24
« en: Lunes 1 de Mayo de 2006, 06:56 »
¡Saludos! Gracias por las respuestas  Carmamezo: - ¿Los tocaste mientras están encendidos y verdaderamente están tan calientes? Sip. Eso fué lo que me llevó a instalar el HDD Thermometer- Pon más ventiladores externos. Coloqué por fuera un ventilador, conectado a la pared, directo sobre los 2 discos duro, y bajó algo más de 15°C. - ...existen en el mercado unos sistemas para refrigerar discos. Estuve revisando, y pocas opciones, y algo costosas  Ahora lo que hice fué conectar el ventilador a una de las tomas de la fuente de poder (12V - GND - GND - 5V), un cable en 12V y el otro en GND, y lo instalé por dentro del case. No baja mucho la temperatura (de 5°C a 7°C), pero espero que sea suficiente hasta que consiga uno que sople directamente sobre los discos. Su -: Aunque tardé demasiado tiempo en ordenar los discos, si no consigo mejor solución, tendré que re-ubicarlos. ¡Gracias!, ¡y a programar!
25
« en: Viernes 28 de Abril de 2006, 05:01 »
¡Saludos! Antes que nada, te sugiero realices un par de tutoriales de principio a fin de Pascal. Aprenderás mucho más que si revisas código regado Pascal es muy fácil, una vez que lo aprendes y lo practicas bastante Además, lo considero el mejor "primer escalón" para aprender a programar. De Pascal a C o C++ no te llevará más de 2 o 3 meses, y de C o C++ a Java, quizás te lleve la mitad del tiempo. Claro, a nivel muy profesional toma más tiempo. Pero para la mayoría de las tareas a nivel escolar y universitario, ese es un buen estimado de tiempo de estudio. Con respecto a algunas de tus preguntas, el write() muestra o imprime en pantalla los argumentes que le pases. Bien sean números, texto, etc., o combinación de ellos. El writeLn(), a diferencia del write(), agrega un salto de línea al final de la impresión. writeln (' ') solamente imprime un espacio en blanco y salta a la línea siguiente el cursor. Supongo que un simple writeLn; serviría. Para utilizar el writeLn como tu planteas, sugeriría algo así: writeLn('EL RESULTADO ES: ', c);
¡A programar!
|
|
|
Mostrar Mensajes
