| |
 Mostrar Mensajes
|
|
Páginas: 1 2 3 [4] 5 6
|
|
31
|
Programación / Ejercicios / Pascal y ficheros...
|
en: 24 Enero 2006, 20:55 pm
|
Problema con otro code...
program cuadros;
type
Tcuadro=record
NumCuadro:integer;
Titulo:string;
Autor:string;
Precio:real;
end;
Tfichero = file of Tcuadro;
procedure lee_cuadro(Var cuadros:Tcuadro);
begin
writeln;
write(' Numero de cuadro: ');
readln(cuadros.NumCuadro);
write(' Titulo cuadro: ');
readln(cuadros.Titulo);
write(' Autor: ');
readln(cuadros.Autor);
write(' Precio: ');
readln(cuadros.Precio);
writeln;
end;
procedure imprime_cuadro(cuadros:Tcuadro);
begin
writeln;
writeln(cuadros.NumCuadro,': ',cuadros.Titulo);
writeln(' Autor: ',cuadros.Autor);
if cuadros.Precio=0 then
writeln(' Precio: No en venta')
else
writeln(' Precio: ',cuadros.Precio:0:2);
writeln('---');
end;
procedure graba_fichero(nombre:string; VAR cuadros:Tcuadro);
var
fichero:Tfichero;
begin
assign (fichero, nombre);
rewrite(fichero);
write(fichero, cuadros);
close(fichero);
end;
procedure lee_fichero(nombre:string; VAR cuadros:Tcuadro);
var
fichero:Tfichero;
begin
assign(fichero, nombre);
reset(fichero);
read(fichero, cuadros);
close(fichero);
end;
var
cuadro1:Tcuadro;
cuadro2:Tcuadro;
nombre:string;
opcion:char;
begin
write('Introducir por teclado (T) o leer de fichero (F)?');
readln(opcion);
if opcion='T' then
begin
writeln('> Datos primer cuadro');
lee_cuadro(cuadro1);
writeln('> Datos segudno cuadro');
lee_cuadro(cuadro2);
write('Nombre del fichero donde guardar?');
readln(nombre);
graba_fichero(nombre, cuadro1);
graba_fichero(nombre, cuadro2);
end
else
if opcion='F' then
begin
write('Nombre del fichero donde leer?');
readln(nombre);
lee_fichero(nombre,cuadro1);
lee_fichero(nombre,cuadro2);
end;
end.
Como veis, lo que hace el programa, es pedir si kieres meter los datos por el teclado, o usar un fichero para leerlo... Lógicamente la primera vez que se ejecute el programa, se tendrá que elegir la opción T, para meter los datos. Estos datos son escritos en un fichero... Hasta aquí parece que todo fuca bien. Poro cuando llamo otra vez al programa, y le doy la opción F (fichero), para que me muestre por pantalla los datos que hay en ese fichero, se termina la ejecución del programa, sin mostrar nada... Por que? Y como lo hago? Salu2. |
|
|
|
|
32
|
Media / Diseño Gráfico / Re: 3D Photoshop
|
en: 13 Enero 2006, 01:31 am
|
Ya encontre un tuto de como hacer esferas en 3D, pero con este filtro se pueden hacer muchas más cosas. Muchas gracias  |
|
|
|
|
33
|
Media / Diseño Gráfico / 3D Photoshop
|
en: 13 Enero 2006, 00:05 am
|
|
Hola.
Necesito que alguien me diga de donde descargar el Filtro 3DTransform por que los tutos que e encontrado por hay para hacer figuras en 3d, todos usan ese filtro, y mi photoshop no lo trae.
Si hay otra manera de hacer figuras en 3D.. (el tuto que hay en esta sección, sobre 3D, no funciona... asi que no se como estaria explicado).
Nada más.
Salu2.
|
|
|
|
|
34
|
Media / Diseño Gráfico / Re: Pregunta un poco idiota.
|
en: 12 Enero 2006, 02:23 am
|
|
Joer, que velocidad en la respuesta xD.
Si si, ya lo ley... pero tu tuto es más... hacer una web ENTERA en Photoshop... mi duda está en crear templates (de todas maneras me encanto tu tuto, y confieso que no lo ley del todo, pero lo haré, que alomejor esta hay la respuesta a mi duda, y yo haciendo el idiota).
Salu2.
|
|
|
|
|
35
|
Media / Diseño Gráfico / Pregunta un poco idiota.
|
en: 12 Enero 2006, 02:12 am
|
|
Buenas.
A mos a ver... Como co*ñ* se crean templates en photoshop? Una idea general, no necesito una explicación detallada (ya me busco yo las castañas).
Idea que yo tengo:
Ejecutamos Photoshop (xD).
Que tamaño le damos al documento? (primera duda).
Nos ponemos a cacharear (barras, delimitación de donde va a estar el menú, que va a estar en el centro de la pagina etc etc). No?
Por ultimo, guardad para Web.
Y lo que yo haría luego... Abrir Dreamweaver (pagina html normal, dividida en frames o lo que sea), insertar la imagen del Potoshop, y luego guardar como plantilla, para luego usarla en el resto de las paginas...
Esto mismo, pero para PHP ya ni me lo imagino, pero por que no se nada de php, cuando sepa algo, pregunto.
Voy muy desencaminado?
Salu2.
|
|
|
|
|
36
|
Media / Diseño Gráfico / Re: Creación Web en Flash.
|
en: 28 Diciembre 2005, 19:16 pm
|
|
Conozco Dreamweaver... Pero quiero hacerla totalmente en flash, se que se puede... Hace tiempo, recuerdo una pagina, que estaba hecha totalmente en flash (y que tenia por cierto un monton de tutos, pero no recuerdo cual era, ni si seguirá..).
Bueno, si alguno sabe de algún manual de lo que quiero... se lo agradeceré.
Salu2.
|
|
|
|
|
37
|
Media / Diseño Gráfico / Creación Web en Flash.
|
en: 28 Diciembre 2005, 15:23 pm
|
|
Buenas.
Después de buscar en el foro, de mirar las chinchetas y de patearme google... Alguien sabe de algún manual en el cual se trate el tema de la creación Web con flash? Hablo de “montar” la Web entera en flash (a pesar de que por estos lares hay muchos retractores a esa idea, pero yo quiero hacerlo).
Salu2.
|
|
|
|
|
39
|
Programación / Ejercicios / Registros en Pascal
|
en: 26 Diciembre 2005, 02:04 am
|
Problema con codigo que no consigo sacar. Esto es lo que yo e hecho: program cuadros;
const
tamcoleccion=3;
type
Tcuadro=record
NumCuadro:integer;
Titulo:string;
Autor:string;
Precio:real;
end;
Tcoleccion= array [1..tamcoleccion] of Tcuadro;
procedure lee_cuadro(Var cuadros:Tcuadro);
begin
writeln;
write(' Numero de cuadro: ');
readln(cuadros.NumCuadro);
write(' Titulo cuadro: ');
readln(cuadros.Titulo);
write(' Autor: ');
readln(cuadros.Autor);
write(' Precio: ');
readln(cuadros.Precio);
writeln;
end;
procedure imprime_cuadro(cuadros:Tcuadro);
begin
writeln;
writeln(cuadros.NumCuadro,': ',cuadros.Titulo);
writeln(' Autor: ',cuadros.Autor);
if cuadros.Precio=0 then
writeln(' Precio: No en venta')
else
writeln(' Precio: ',cuadros.Precio:0:2);
writeln('---');
end;
procedure lee_coleccion (VAR lectura:Tcoleccion;tamcoleccion:integer);
var
i:integer;
begin
for i:=1 to tamcoleccion do
lee_cuadro(lectura[i]);
end;
procedure imprime_coleccion (lectura:Tcoleccion;tamcolecion:integer);
var
i:integer;
begin
for i:=1 to tamcoleccion do
imprime_cuadro(lectura[i]);
end;
function suma_coleccion(lectura:Tcoleccion;tamcoleccion:integer;VAR no_en_venta:real):real;
var
i:integer;
begin
for i:=1 to tamcoleccion do
if no_en_venta=0 then
no_en_venta:=i;
for i:=1 to tamcoleccion do
suma_coleccion:=suma_coleccion+lectura[i].cuadros.precio;
end;
var
coleccion1:Tcoleccion;
suma:real;
no_en_venta:real;
begin
writeln('>Datos primera coleccion: ');
lee_coleccion(coleccion1,tamcoleccion);
writeln('>Datos de los cuadros: ');
imprime_coleccion(coleccion1,tamcoleccion);
suma:=suma_coleccion(coleccion1,tamcoleccion,no_en_venta);
writeln('La suma es: ',suma:0:2);
writeln('Y hay ',no_en_venta,' cuadro no en venta');
end.
Tengo que hacer esto:
Añadir al programa anterior una función de nombre suma_coleccion. Esta función devuelve como resultado de la función el valor total de la colección. Pero como es posible que algunos cuadros no estén a la venta, esta función además devolverá como parámetro por referencia el número de cuadros que no están en venta.
Y llamarlo de esta manera, y no puedo hacerlo de otra:
(* -- Cálculo de la suma --*)
suma := suma_coleccion(coleccion1, TAMCOLECCION, no_en_venta);
(* -- Presentación de resultados --*)
writeln('>Datos de los cuadros');
imprime_coleccion(coleccion1, TAMCOLECCION);
writeln('> La suma es: ', suma:0:2);
writeln('> Y hay ', no_en_venta, 'cuadro no en venta');
De lo que yo e codeado, se que todo funciona menos la función suma_coleccion que se me solicita codear y llamar de esa precisa manera... Ideas? Lo de
for i:=1 to tamcoleccion do
if no_en_venta=0 then
no_en_venta:=i;
está claro que no es así pero no se me ocurre ninguna manera.. Y por que no me deja llamar asi lectura[i].cuadros.precio;
al registro precio? Salu2. |
|
|
|
|
40
|
Programación / Ejercicios / Re: Arrays en Pascal
|
en: 21 Diciembre 2005, 01:46 am
|
Se que a pasado mucho tiempo, pero lo deje un poco aparcado, y hoy me dio por ponerme y... SORPRESA...
program galeria;
const
tamcoleccion=4;
type
coleccion=array[1..tamcoleccion] of integer;
var
tabla1:coleccion;
tabla2:coleccion;
suma,suma1,suma2,busca:integer;
procedure lee_tabla(n:integer;tamacoleccion:integer; Var lectura:coleccion; Var suma:integer);
var
i:integer;
begin
writeln;
writeln('--Coleccion',n, '--');
writeln('Introduzca el precio de los cuadros');
writeln;
for i:=1 to tamcoleccion do
begin
write('Cuadro ',i,': ');
readln(lectura[i]);
suma:=suma+lectura[i];
end;
end;
procedure busca_precios(n:integer;tamcoleccion:integer;lectura:coleccion;busca:integer);
var
i:integer;
encontrado:boolean;
begin
encontrado:=false;
writeln('Coleccion ',n);
for i:=1 to tamcoleccion do
if busca=lectura[i] then
begin
encontrado:=true;
writeln('Encontrado precio ',busca, ' en cuadro ',i);
end;
if encontrado=false then
writeln('Precio ',busca,' no encontrado.');
end;
begin
suma1:=0;
lee_tabla(1,tamcoleccion,tabla1,suma1);
suma2:=0;
lee_tabla(2,tamcoleccion,tabla2,suma2);
if suma1>suma2 then
writeln('Coleccion 1 vale mas que coleccion 2');
if suma1<suma2 then
writeln('Coleccion 2 vale mas que coleccion 1');
writeln;
write('Introduzca el precio a buscar en las tablas (0 para terminar): ');
readln(busca);
while (busca>0) do
begin
busca_precios(1,tamcoleccion,tabla1,busca);
busca_precios(2,tamcoleccion,tabla2,busca);
writeln;
write('Introduzca el precio a buscar en las tablas (0 para terminar): ');
readln(busca);
end;
end.
JVCHINO, LO SAQUE xDD No hice el procedimiento, por que en el ejercicio no se me permitia codear mas procedimientos ni funciones, por eso lo hice en el programa principal. Muchas gracias.. ahora sigo, y ya te tendré que preguntar  . Salu2. |
|
|
|
|
|
| |
|
