• Sábado 21 de Septiembre de 2019, 05:15

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

Páginas: [1]
1
Pascal / [Código Fuente] Re:Cubo magico
« en: Miércoles 13 de Noviembre de 2013, 06:56 »
Tuve abandonado este hilo mucho tiempo, muchas gracias por leer mis post y aun mas por comentar  :lightsabre:  :sorcerer:  :photo: :gracias:

2
Pascal / [Código Fuente] Cubo magico
« en: Viernes 31 de Agosto de 2007, 03:22 »
Este es un pequeño programa que resuelve el problema de generar un cubo magico, utiliza matrices. El codigo esta bastante claro en lo que respecta al uso de las reglas para generarlo, se los recomiendo. Les pido por favor dar sus opiniones acerca de que les parece el codigo....

Autor: Celso Francisco Canelo Blandon

3
Pascal / Re: Problema Para Finalizar El Ciclo For
« en: Lunes 7 de Mayo de 2007, 21:54 »
Cita de: "Enko"
Trata  de marcar bien los bloques begin end.
Código: Text
  1.  
  2. for i:=1 to 5 do
  3. begin
  4.    Writeln ('ingrese otro valor para saber si es maximo o minimo');
  5.    Readln (B);
  6.    if b > max then
  7.    begin
  8.       max := b;
  9.       c := c+1;
  10.    end else
  11.    if b<min then
  12.    begin
  13.       min := b;
  14.       f := f+1;
  15.    end;
  16. end;
  17.  
  18.  

por sierto, el bloque if, else if, else no lleva el ; salgo al final
Código: Text
  1.  
  2. if a then
  3. begin
  4.    ...
  5. end else
  6. if b then
  7. begin
  8.     ...
  9. end else
  10. begin
  11.    ...
  12. end;
  13.  
  14.  
tambien he visto que lo hacen:
Código: Text
  1.  
  2. if a then
  3. begin
  4.    ...
  5. end
  6. else if b then
  7. begin
  8.     ...
  9. end
  10. else
  11. begin
  12.    ...
  13. end;
  14.  
  15.  
Yo siempre us'e esta ultima, pero cuando vi la primera, resulta mas comoda ya que tenes menos posibilidad de equivocarte.
El problema que tenes en este programa es de logica, no se porque al final mandas a leer a readln(a), ni siquiera mandas un letrero men. y el otro error es que tenes una instruccion mal escrita que es sobre algo de colo, encerralo entre llaves y compilalo de nuevo. Me tome la molestia de corregirlo....

program programa1;
var
     max,min,a,b,c,f:real;
     i:integer;
begin
    writeln ('ingrese el primer valor');
     readln (a);
     c:=0;
     max:=a;
     min:=a;
     c:=c+1;
     f:=f+1;
     for i:=1 to 5 do
     begin
       writeln ('ingrese otro valor para saber si es maximo o minimo');
       readln (B);

       if b>max then
          begin
          max:=b;
          c:=c+1;
          end
       else
          if b<min then
          begin
          min:=b;
          f:=f+1;
          end;
     end;

   writeln ('el valor maxaimo es:', max:0:2);
   writeln ('la posicion del valor maximo es:', c:0:2);
   writeln ('el valor minimo es:', min:0:2);
   writeln ('la posicion del valor minimo es:', f:0:2);
   readln;
end.

Páginas: [1]