FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Programa de promedio
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Promedio.. digitos primos .. | luisito2011 | Varios | 3 | 07-05-2011 02:54:02 |
Promedio de fechas | Pancholp1986 | MySQL | 6 | 23-03-2011 15:34:29 |
cálculo de promedio en delphi ??? | Trident | OOP | 8 | 24-09-2010 20:18:40 |
promedio | velezbunzl | Varios | 12 | 17-03-2009 00:07:32 |
Sacar el promedio o media en sql ? | juangabriel1786 | SQL | 4 | 04-12-2008 23:33:28 |
|