programa sumador

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

[ContraVeneno]

Empezado por Delphius

No pude evitar reirme con esa animación ¿De donde las sacas?
...¿que no es que basta con dividir la suma con la diferencia entre el máximo y el mínimo?

Las obtengo de gamereplays.org.... sobre la imagen, dale click con el botón derecho y luego en "Copiar dirección de la imagen" y así es como las puedo poner.

y respecto a tu segunda pregunta, creo que te hace falta leer el primer mensaje de Román en este hilo, eso fue precisamente lo que él hizo, por eso dije que era abuso de poder de conocimiento (que no todos tenemos). Y puse que "eso me pasa por pensar como programador" porque hice lo que pidieron, sin pensar que hay caminos mucho más fáciles.

[[Delphius]]

Empezado por ContraVeneno

Las obtengo de gamereplays.org.... sobre la imagen, dale click con el botón derecho y luego en "Copiar dirección de la imagen" y así es como las puedo poner.

y respecto a tu segunda pregunta, creo que te hace falta leer el primer mensaje de Román en este hilo, eso fue precisamente lo que él hizo, por eso dije que era abuso de poder de conocimiento (que no todos tenemos). Y puse que "eso me pasa por pensar como programador" porque hice lo que pidieron, sin pensar que hay caminos mucho más fáciles.

Gracias por el dato,
No se porque no se me pasó por la cabeza lo del botón secundario. Ando en otra nube

A ver, creo que no se me entendió. A lo que voy es que si se emplease un ciclo para ir desde el elemento inicial hasta el final para llevar la suma y la cuenta... pues, como que hacemos una operación al vicio. ¿De que sirve contar los elementos si sabemos cuantos son?

(10 + 11 + ... + 49 + 50)/41 = 30

(10 + 11 + ... + 49 + 50)/((50-40) + 1) = 30

¿Se entiende?

Ya se que es lo mismo sumar los extremos directamente y dividirlos por la mitad. Yo hacía referencia a ese paso innecesario de contar los elementos.

Saludos,

[[Caral]]

Hola
Voy a hacer una apuesta:
A que tsue pregunta como se usa la función de Roman.
Si no supo como hacerlo con el ejemplo sencillo de cHackAll, vamos a ver si puede con la función.
No se valen mensajes.
Yo apuesto a que pregunta.
Saludos

[[egostar]]

Empezado por Delphius

Gracias por el dato,
No se porque no se me pasó por la cabeza lo del botón secundario. Ando en otra nube

A ver, creo que no se me entendió. A lo que voy es que si se emplease un ciclo para ir desde el elemento inicial hasta el final para llevar la suma y la cuenta... pues, como que hacemos una operación al vicio. ¿De que sirve contar los elementos si sabemos cuantos son?

(10 + 11 + ... + 49 + 50)/41 = 30

(10 + 11 + ... + 49 + 50)/((50-40) + 1) = 30

¿Se entiende?

Ya se que es lo mismo sumar los extremos directamente y dividirlos por la mitad. Yo hacía referencia a ese paso innecesario de contar los elementos.

Saludos,

Pues eso mismo y como dice roman, para que tanto brinco estando el piso tan parejo.

10+50=60/2=30

Salud OS

[[Delphius]]

Empezado por egostar

Pues eso mismo y como dice roman, para que tanto brinco estando el piso tan parejo.


Salud OS

Eso lo sabemos amigo, pero si recuerdas a tsue le pidieron que lo realice implementando el ciclo while. Por ello va mi comentario: es al vicio ir contando, si inicialmente de partida ya sabemos cuantos elementos hay desde uno hacia otro con una simple resta.

Calculo que el objetivo del profesor de tsue es practicar el uso de ciclos, y le pidió que calcule promedios.

¿Tanto embrollo hicimos por esto?

Código Delphi [-]
function Promedio(Inicial, Final: integer): double;
var suma, Ini: integer;
begin
  suma: integer;
  Ini: inicial;
  while Ini <= final do
    begin
      suma := suma + Ini;
      inc(Ini);
    end;
   result := suma / (Final - Inicial + 1);   
end;

Saludos,

[[maeyanes]]

Corrigiendo un par de errores de Delphius:

Código Delphi [-]
function Promedio(Inicial, Final: integer): double;
var
  suma, Ini: integer;

begin
  suma := 0;
  Ini := inicial;
  while Ini <= final do
  begin
    suma := suma + Ini;
    inc(Ini)
  end;
  result := suma / (Final - Inicial + 1)
end;

Saludos...

[[Delphius]]

Empezado por maeyanes

Corrigiendo un par de errores de Delphius:

Código Delphi [-]function Promedio(Inicial, Final: integer): double; var suma, Ini: integer; begin suma := 0; Ini := inicial; while Ini <= final do begin suma := suma + Ini; inc(Ini) end; result := suma / (Final - Inicial + 1) end;



Saludos...

¡Auch! Eso dolió

Saludos,

[roman]

No sé si el profesor se tomará a mal esto:

Código Delphi [-]
function Promedio(ValorInicial, ValorFinal: Integer): Double;
var
  BeStupid: Boolean;

begin
  Result := 0;
  BeStupid := true;

  while BeStupid do
  begin
    Result := (ValorInicial + ValorFinal) / 2;
    BeStupid := false;
  end;
end;

// Saludos

[ContraVeneno]

jejejeje... tal vez ya sería demasiado...

Delphius, cierto, cierto, ya veo el punto al que te refieres y sí tienes razón.

[Robert01]

Me pregunto:

¿Que va a pasar si hay alguno que no está atento y trata de calcular la media de una serie de datos cualquiera aplicando la función propuesta?

10,11, 10, 15, 12,15, 15,10, 14,20

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

[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