programa sumador

[ContraVeneno]

Vamos a ver... si estás usando delphi:
En tu formulario colocas dos cajas de texto (Tedit) que vienen en la paleta standar. Al primero le llamaremos edtValorInical y al segundo edtValorFinal.

Además de esos dos TEdits, colocamos un botón y luego le das doble click a ese botón y Delphi te llevará al evento OnClick del mismo.

Ahí, la idea es hacer lo siguiente:

Variables: Contador, Sumatoria: Entero
              ValorInicial, ValorFinal: Entero
              Promedio: Real
Inicio
 Contador = 0
 Sumatoria = 0
 Promedio = 0
 ValorInicial = edtValorInicial.Text
 ValorFinal = edtValorFinal.Text
 Mientras ValorInicial <= ValorFinal hacer
  Sumatoria = Sumatoria + ValorInicial
  valorInicial = ValorInicial + 1
  Contador = Contador + 1
 Fin
 Promedio = Sumatoria / Contador;
 Mostrar(Promedio)
Fin

ya, no quería hacerte tu tarea, pero ya la hice, que los dioses del olimpo me perdonen...

yo lo hubiera hecho con un arreglo y usando la función "mean", pero bueno....

[roman]

Código Delphi [-]
{
  Función para calcular el promedio de los números en un rango dado, usando
  while.
}
function Promedio(ValorInicial, ValorFinal: Integer): Double;
var
  I: Integer;

begin
  I := 0;
  while I > 0 do
    Sleep(0);

  Result := (ValorInicial + ValorFinal) / 2;
end;

// Saludos

[[felipe88]]

Empezado por roman

Código Delphi [-]
{   Función para calcular el promedio de los números en un rango dado, usando   while. } 
function Promedio(ValorInicial, ValorFinal: Integer): Double; 
var   I: Integer;  
begin   I := 0;   while I > 0 do     
Sleep(0);    
Result := (ValorInicial + ValorFinal) / 2; 
end;

// Saludos

buenisimo...

[roman]

Pues es que...

pa' que tanto ciclo, estando el camino tan derecho

// Saludos

[ContraVeneno]

Empezado por roman

Código Delphi [-]
{   Función para calcular el promedio de los números en un rango dado, usando   while. } 
function Promedio(ValorInicial, ValorFinal: Integer): Double; 
var   I: Integer;  
begin   
 I := 0;   
 while I > 0 do     
  Sleep(0);    
 Result := (ValorInicial + ValorFinal) / 2; 
end;

// Saludos

¡Eso es abuso de poder! y eso me pasa a mi por pensar como programador....

[[Delphius]]

Amigo roman, eso no se vale!

Saludos,

[roman]

¿Por que no vale? Usa un while ¿no? Si prefieren así:

Código Delphi [-]
function Promedio(ValorInicial, ValorFinal: Integer): Double;
begin
  {$HINTS OFF}
  while false do
    ;
  {$HINTS ON}

  Result := (ValorInicial + ValorFinal) / 2;
end;

// Saludos

[ContraVeneno]

Empezado por roman

¿Por que no vale? Usa un while ¿no?

[[Delphius]]

Empezado por ContraVeneno

No pude evitar reirme con esa animación ¿De donde las sacas?

Por cierto, tampoco es necesario llevar la cuenta de elementos entre un número y otro. Si se hiciera uso del while y se recorriera los números en un rango, pues ¿que no es que basta con dividir la suma con la diferencia entre el máximo y el mínimo?

Saludos,

[tsue]

muchas gracias por toda la ayuda que me hab brindado, logre terminar el programa desde el domingo pero como era para el lunes no iba a postearlo asta que pasara la entrega de tarea ya que alguien podia piratearlo y luego tendria problemas con el profe bueno este es el codigo que hice me base mucho en el codigo de caral y en el lenguaje ensamblador

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var numinicial, numfinal, numactual, cantidad, total: integer;
begin
   numactual := 0;
   cantidad := 0;
   numinicial := 10;
   numfinal := 50;
   while numinicial <= numfinal do
   begin
   Inc(numactual, numinicial);
   Inc(numinicial);
   Inc(cantidad);
   end;
   total:= numactual div cantidad;
   Edit3.Text:= IntToStr(Total);
end;

procedure TForm1.Button2Click(Sender: TObject);
var numinicial, numfinal, numactual, cantidad, total: integer;
begin
   numactual := 0;
   cantidad := 0;
   numinicial := strToint(Edit4.Text);
   numfinal := strToint(Edit5.Text);
   while numinicial <= numfinal do
   begin
   Inc(numactual, numinicial);
   Inc(numinicial);
   Inc(cantidad);
   end;
   total:= numactual div cantidad;
   Edit6.Text:= IntToStr(Total);
end;

end.

[[cHackAll]]

Empezado por Robert01

....pero lo que si despertó fue la confusión, está claro ahí arriba....

Empezado por tsue

...me base mucho en el codigo de caral y en el lenguaje ensamblador

Ja, siempre se aprende algo nuevo y de esta historia solo me queda dar la razon a Robert01, al parecer si lo he confundido un poquito al muchacho pero es para mi un consuelo:

Empezado por Robert01

Lo haré cuando tenga tiempo

Saber que algún dia las críticas se convertiran en algo más util para la comunidad.

Saludos

[Mya]

Empezado por tsue

muchas gracias por toda la ayuda que me hab brindado, logre terminar el programa desde el domingo pero como era para el lunes no iba a postearlo asta que pasara la entrega de tarea ya que alguien podia piratearlo y luego tendria problemas con el profe bueno este es el codigo que hice me base mucho en el codigo de caral y en el lenguaje ensamblador
Código Delphi [-]unit Unit1;

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;

var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
var numinicial, numfinal, numactual, cantidad, total: integer;
begin numactual := 0; cantidad := 0; numinicial := 10; numfinal := 50; while numinicial <= numfinal do begin Inc(numactual, numinicial); Inc(numinicial); Inc(cantidad); end;
total:= numactual div cantidad;
Edit3.Text:= IntToStr(Total);
end;

procedure TForm1.Button2Click(Sender: TObject);
var numinicial, numfinal, numactual, cantidad, total: integer;
begin numactual := 0; cantidad := 0; numinicial := strToint(Edit4.Text); numfinal := strToint(Edit5.Text); while numinicial <= numfinal do begin Inc(numactual, numinicial); Inc(numinicial); Inc(cantidad); end;
total:= numactual div cantidad;
Edit6.Text:= IntToStr(Total);
end;

end.

porcierto me puse a leer los mensajes y creo que perdiste la apuesta caral.

[[Caral]]

Hola
Claro que no perdí la apuesta, nunca pregunto por la función, por eso me da la razón en pensar que nunca la entendió (ni yo).
Me gusto la parte en la que mezclo el código de cHackAll, humildemente modificado por mi con el código ensamblador, que por cierto esta tan bien logrado que lo escondió dentro del código delphi.
Maestros han creado a un genio sin saberlo.
Saludos

[Robert01]

Ese código en ensamblador está realmente bueno.

[Robert01]

Lo siento, parece que le di dos veces al botón de enviar