Mensajes

Problema con otro code...

Código [Seleccionar] Expandir



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.

Ya encontre un tuto de como hacer esferas en 3D, pero con este filtro se pueden hacer muchas más cosas.

Muchas gracias 

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.

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.

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.

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.

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.

Gracias jvchino.
No pego el code, pero ya le asigne al "contador" no_en_venta 0 y de tipo integer.

Salu2.

Problema con codigo que no consigo sacar.

Esto es lo que yo e hecho:

Código [Seleccionar] Expandir


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ódigo [Seleccionar] Expandir



(* -- 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

Código [Seleccionar] Expandir

   
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

Código [Seleccionar] Expandir


lectura[i].cuadros.precio;

al registro precio?

Salu2.

Se que a pasado mucho tiempo, pero lo deje un poco aparcado, y hoy me dio por ponerme y... SORPRESA...

Código [Seleccionar] Expandir



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.