Delphi - como sumar numeros

   
Vista:

como sumar numeros

Publicado por mary (2 intervenciones) el 24/08/2008 05:19:29
hola kiero sumar numeros del 10 al 50 cuales con los comados para acerlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- NotePlus
- My Bomber Man
- Ocultar proceso

RE:como sumar numeros

Publicado por Amelia Gonzalez (6 intervenciones) el 24/08/2008 06:24:53
Hola aqui va el codigo

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
i,a,b,n:integer;
begin
a:= EditFormato1.AsInteger;
b:= EditFormato2.AsInteger;
n:=0;
for i := a to b do
begin
n:=n+i;
EditFormato3.AsFloat := n;
end;

end;
espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como sumar numeros

Publicado por Amelia Gonzalez (6 intervenciones) el 24/08/2008 06:27:32
Con el while
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
a,b,n:integer;
begin
a:= EditFormato1.AsInteger;
b:= EditFormato2.AsInteger;
n:=0;
while a <= b do
begin
n:=n+a;
EditFormato3.AsFloat := n;
a:= a+1;
end;

end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar