programa sumador

[Ñuño Martínez]

¡Qué malvadosos son, apañeros! El/La pobre tsue se está haciendo un lío morrocotudo. Como sigan así vamos a perder un adepto. ¡Un poco de seriedad, por favor! ¿Acaso no somos profesionales? ¿Acaso no nos encontramos, hace tiempo, en su misma situación? ¿Y los niños? ¿Por qué nadie piensa nunca en los niños?

[off-topic]1999.... 1999... ¿qué hago? ¿Sucumbo al síndrome de Al?

[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?

[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.