programa sumador

[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

[Mya]

Empezado por 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

no se si te burlas de el o le estas dando un punto bueno, mejor aclara no valla a ser que piense lo mismo

[juanelo]

Empezado por Mya

no se si te burlas de el o le estas dando un punto bueno, mejor aclara no valla a ser que piense lo mismo

Yo creo que no hay que aclarar nada, y que cada quien saque sus conclusiones.

[[Caral]]

Hola

Empezado por Mya

no se si te burlas de el o le estas dando un punto bueno, mejor aclara no valla a ser que piense lo mismo

A buen entendedor pocas palabras.
Saludos

[roman]

A mi me parece que aquí tenemos un caso de doble personalidad

// Saludos

[[egostar]]

Empezado por roman

A mi me parece que aquí tenemos un caso de doble personalidad

// Saludos

Pues viniendo el comentario de la fuente que viene no hay motivo para la duda, es una doble personalidad

Salud OS

[Mya]

Empezado por roman

A mi me parece que aquí tenemos un caso de doble personalidad

// Saludos

me imagino que el metodo que tienes para ver es la ip, pues bueno la mayor parte del tiempo pongo los post en la escuela para lo que lei de tsue pueda talvez que este estudiando donde yo estoy y siendo el laboratorio de computo tiene un solo servidor, no me sorprenderia que fuera tsue quien tmb aya posteado desde hay,

[Robert01]

Ese código en ensamblador está realmente bueno.

[Robert01]

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