Programa de promedio

[alenbebote]

Hola acabo de iniciar en esto de delphi y me han dejado un programa que calcule el promedio de 6 edits, el programa si me funciona, pero el profesor dice que tambien saque el promedio de por ejemplo 3 edits solamente y al momento de correr el programa y solo rellenar 3 edits me marca un error no se como hacer que si lleno solo 2, 3, 4 o 5 edits tambien me saque el promedio y no me salga el error espero me puedan ayudar

procedure TPromediometal.Button2Click(Sender: TObject);
var
c1,c2,c3,c4,c5,c6: integer;
x: real;
begin
c1:=Strtoint (edit1.text);
c2:=Strtoint (edit2.text);
c3:=Strtoint (edit3.text);
c4:=Strtoint (edit4.text);
c5:=Strtoint (edit5.text);
c6:=Strtoint (edit6.text);
x:=(c1+c2+c3+c4+c5+c6) / 6;
end;
memo1.lines.clear;
memo1.lines.add (FormatFloat ('Tu promedio #.##!' ,x));
if x < 7 then
memo1.lines.add ('Reprobaste ¡Lo Sentimos!')
else
memo1.lines.add ('Aprobaste ¡Felicidades!');
end;

[roman]

Por favor, usa etiquetas adecuadas para escribir código.

Necesariamente debes verificar Edit por Edit cuál se rellenó y contarlos pues, si sólo se escribieron tres números, entonces el promedio no puedes tomarlo dividiendo entre seis.

// Saludos

[alenbebote]

Empezado por roman

Por favor, usa etiquetas adecuadas para escribir código.

Necesariamente debes verificar Edit por Edit cuál se rellenó y contarlos pues, si sólo se escribieron tres números, entonces el promedio no puedes tomarlo dividiendo entre seis.

// Saludos

no tengo idea como verificar los edits, como le puedo hacer para que no me marque error, mi profesor me dijo que no me faltaba mucho, realmente no se demasiado-- es que el profesor dijo que el puede rellenar el edit 3 con el 5 y con el 6 osea que seria c3+c5+c6 / 3 pero no se como hacer eso

[ecfisa]

Hola alenbebote.

roman se refiere a que encierres tu código entre las etiquetas [delphi] tu_codigo [/delphi] para que se pueda leer más fácil.

no tengo idea como verificar los edits, como le puedo hacer para que no me marque erro

Una forma, no la única pero sí sencilla, es que asignes este código al evento OnExit de cada uno de los Edits:

Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
var
  cd: Double;
begin
  with Sender as TEdit do
  begin
    if not TryStrToFloat(Text, cd) then  // si no se puede convertir...
    begin
      ShowMessage('Error en la nota ingresada'); // mostrar mensaje de error
      SetFocus  // devolver el foco al Edit
    end
  end
end;

Saludos.

[alenbebote]

Empezado por ecfisa

Hola alenbebote.

roman se refiere a que encierres tu código entre las etiquetas [delphi] tu_codigo [/delphi] para que se pueda leer más fácil.



Una forma, no la única pero sí sencilla, es que asignes este código al evento OnExit de cada uno de los Edits:

Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
var
  cd: Double;
begin
  with Sender as TEdit do
  begin
    if not TryStrToFloat(Text, cd) then  // si no se puede convertir...
    begin
      ShowMessage('Error en la nota ingresada'); // mostrar mensaje de error
      SetFocus  // devolver el foco al Edit
    end
  end
end;

Saludos.

ok pero no entiendo como poner este codigo debo de hacer una variable cd:double;
me podrias ayudar en un ejemplo de mi ejercicio, es mi examen final y no eh podido con
este programa mil gracias

[ecfisa]

Hola.

Seleccioná todos los edits mediante el mouse o presionando la tecla Shift y haciendo click sobre cada uno de ellos hasta que estén todos seleccionados.

Luego anda al Object inspector, donde dirá: 6 items selected. Hace click sobre la pestaña Events y doble click sobre OnExit. Delphi automáticamente te generará la cabecera:

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin

end;

Agrega la declaración de variable y el código entre el begin/end que te puse en el mensaje anterior.

Saludos.

[Casimiro Notevi]

Empezado por alenbebote

ok pero no entiendo como poner este codigo debo de hacer una variable cd:double;
me podrias ayudar en un ejemplo de mi ejercicio, es mi examen final y no eh podido con
este programa mil gracias

¿Examen final?, una simple suma y división

Pues entonces, me temo que tu resultado será menor de 7, según tu ejemplo:

Código Delphi [-]
if x < 7 then
  memo1.lines.add ('Reprobaste ¡Lo Sentimos!')
else
  memo1.lines.add ('Aprobaste ¡Felicidades!');