Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > La Taberna
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-03-2017
serka serka is offline
Miembro
NULL
 
Registrado: mar 2017
Posts: 10
Poder: 0
serka Va por buen camino
Thumbs up Agradecería opinión sobre este código

Ante todo muchas gracias por sus generosos consejos por otro lado ya correjí el problema era un error de semántica pero como les digo mis queridos colegas ya lo solucione aquí esta mi otro formato mejorado que en su libro "programación en lenguajes estructurados" de la maestra María Asunción Criadero Clavero muestra como se debe escribir código legible y fácil de entender aquí esta el ejemplo:

Código Delphi [-]
* Nombre del programa: MediaTest *)

  (* Constantes *)
const
  PESO1 = 50;
  PESO2 = 20;
  PESO3 = 30;

  (* Variables *)
var
  NOTA1, NOTA2, NOTA3:Integer;
  MEDIA:Real;
begin
  // Obtener datos

  Write('Introdusca la primera nota: ');
  Readln(NOTA1);
  Write('Introdusca la segunda nota: ');
  Readln(NOTA2);
  Write('Introdusca la tercera nota: ');
  Readln(NOTA3);

  // Fin de obtener datos

  // Calcular Media

  Media:= NOTA1 * PESO1 / 100 + NOTA2 * PESO2 / 100 + NOTA3 * PESO3 / 100;

  // Fin Calcular Media

  // Mostrar Resultados

    // Imprimir cabecera

    Write('Notas del test Peso (%)');
    Writeln;

    // Fin Impimir cabecera

    // Imprimir datos de entrada

    Write(NOTA1, + PESO1);
    Writeln;
    Write(NOTA2, + PESO2);
    Writeln;
    Write(NOTA3, + PESO3);

    // Fin Imprimir datos de entrada

    // Imprimir media

    Writeln;
    Write('Media ponderada: ---' ,MEDIA);
    readln
    // Fin Imprimir media

  // Fin Mostrar Resultados

que les parece .....
Responder Con Cita
  #2  
Antiguo 03-03-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
A mi me parece correcto.
Un apunte, más de apariencia visual de los resultados que otra cosa. Puedes utilizar la función Format, para mejorar la salida de datos.

Por ejemplo, en lugar de esta línea:
Código Delphi [-]
Write(NOTA1, + PESO1);

Puedes poner esta:
Código Delphi [-]
Write(Format('Nota:%d  con peso:%d%%', [NOTA1, PESO1]));

Y verás que hay diferencia.

El primer %d significa que en esa posición va 1 número entero (el primer parámetro NOTA1). El segundo %d significa el segundo parámetro (PESO1) y el %% es para pintar el character de porcentaje(%).
Pruebalo y verás el cambio.

Aquí hay varios ejemplos de cómo se utiliza.

Algo similar puedes hacer con el resultado.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
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
Mi opinión sobre Clubdelphi yapt La Taberna 13 27-01-2011 18:44:19
Opinión sobre un código Carmelo Cash OOP 8 04-08-2008 18:53:24
Opinión sobre un proyecto nuevo. ppb Linux 2 17-01-2007 14:40:25


La franja horaria es GMT +2. Ahora son las 11:23:58.


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