Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-03-2017
serka serka is offline
Miembro
NULL
 
Registrado: mar 2017
Posts: 10
Poder: 0
serka Va por buen camino
Thumbs up Programacion en delphi

Hola buenos días, tardes o noches

Llevo ya algún tiempo aprendiendo programación por mi cuenta desde cero y estoy algo avanzado en programación estructurada principalmente con delphi o pascal (como lo quieran nombrar) y me gustaría compartir mis conocimientos así mismo solicitar su amable asistencia cuando lo requiera.

por ejemplo estoy atorado en un programa con delphi 7 en una estructura condicional de hecho son dos estructuras en una el problema es que cuando es falsa la condición me saltan dos mensajes el condigo fuente es este:

Código Delphi [-]
var
numero:Integer;
espositivo:Boolean;
esnegativo:Boolean;
begin
    // programa principal
    write('Escriba un numero: ');
    readln(numero);
    esnegativo:= (numero < 0);
    espositivo:= (numero > 0);
        if esnegativo then
        begin
            writeln('El numero es negativo.');
        end else begin
        end; if espositivo then begin
            writeln('El numero es positivo.');
        end else begin
            writeln('El numero es cero.');
        end;
        readln
end.

Última edición por dec fecha: 02-03-2017 a las 09:27:23. Razón: Añadir etiqueta DELPHI
Responder Con Cita
  #2  
Antiguo 01-03-2017
CarlosReyesg CarlosReyesg is offline
Miembro
 
Registrado: ago 2010
Posts: 21
Poder: 0
CarlosReyesg Va por buen camino
Smile

antes de todo deberías de leer la guía de estilo para postear código
el código de las condiciones están malas según entiendo con lo que quieres hacer

si me permites darte un consejo
todos tenemos nuestros propios estilo
pero cuando escribas código ten el cuidado de escribir de una formas mas adecuada
se que es un problema de novatos.

y este mismo consejo les doy a mis alumnos en la programación
"escriban código pensando que otros lo puedan leerlo y entenderlo"

Código Delphi [-]
var
   numero      : Integer;
   espositivo  : Boolean;
   esnegativo  : Boolean;
begin
   // programa principal
   write('Escriba un numero: ');
   readln(numero);
   esnegativo := (numero < 0);
   espositivo := (numero > 0);

   if esnegativo then
   begin
      writeln('El numero es negativo.');
   end
   else
   if espositivo then
   begin
      writeln('El numero es positivo.');
   end
   else
   begin
      writeln('El numero es cero.');
   end;
   readln
end.

saludos
Responder Con Cita
  #3  
Antiguo 01-03-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola serka bienvenido a los foros de Club Delphi

Como bién te ha aconsejado Carlos, revisa nuestra guía de estilo y cuando incluyas código en tus mensajes, por favor usa las etiquetas de este modo:



Una observación personal; tanto begin/end innecesario me hace el código difícil de leer, me resulta mas limpio así:
Código Delphi [-]
var
  numero      :Integer;
  espositivo  : Boolean;
  esnegativo  : Boolean;
begin
  Write('Escriba un numero: ');
  ReadLn(numero);

  espositivo  := numero > 0;
  esnegativo  := numero < 0;

  if espositivo then
    WriteLn('El numero es negativo.')
  else if esnegativo then
    WriteLn('El numero es positivo.')
  else
    WriteLn('El numero es cero.');

  Readln;
end.
Y que, obviando fines didácticos, podría resumirse a:
Código Delphi [-]
var
  numero :Integer;
begin
  Write('Escriba un numero: ');
  ReadLn(numero);

  if numero < 0 then
    WriteLn('El numero es negativo.')
  else if numero > 0 then
    WriteLn('El numero es positivo.')
  else
    WriteLn('El numero es cero.');

  Readln;
end.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 01-03-2017
serka serka is offline
Miembro
NULL
 
Registrado: mar 2017
Posts: 10
Poder: 0
serka Va por buen camino
Arrow Gracias por su generosa ayuda

Ante todo una enorme disculpa debí haber leído la guía de estilo hago un llamado a su tolerancia por favor disculpe mi imprudencia

Es un enorme placer ser asistido con su generosa ayuda les vuelvo a reiterar mi agradecimiento ya corregí el error del código del código
en cuestión fue un problema de encadenamiento de condicionales ya lo solucione

Código Delphi [-]
     var
     numero: Integer;
     espositivo: Boolean;
     esnegativo: Boolean;
     begin
            // programa principal

         write('Escriba un numero: ');
         readln(numero);
         
         esnegativo:= (numero < 0);
         espositivo:= (numero > 0);
                

                 if esnegativo then
                 begin
                        writeln('El numero es negativo.');
                 end 
                 else 
                 begin
                 if espositivo then begin
                        writeln('El numero es positivo.');
                 end 
                 else 
                 begin
                        writeln('El numero es cero.');
                 end;
           end;
        readln
      end.
Responder Con Cita
  #5  
Antiguo 02-03-2017
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Hola serka,

Si estas aprendiendo a programar, hazlo con estilo como el consejo que te da, CarlosReyesg, o el código limpio que te da ecfisa, facil de seguir y entender.

Un saludo.

P.D.: Se tu mismo, pero limpio y con estilo
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Programación en DELPHI 7 Entreiprese Gbyte Debates 0 27-06-2008 21:46:16
Programación Concurrente en Delphi AngelV OOP 3 11-09-2007 10:41:24
Futuro programacion Delphi ¿? jonathan.vila Debates 44 02-11-2006 18:51:15
Delphi 2006 y programación de PDA'S perinfo .NET 2 12-10-2006 23:06:34
Programación en delphi 2005 mminorm Varios 1 06-06-2005 13:13:58


La franja horaria es GMT +2. Ahora son las 07:13:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi