Hoch Rechnungsprogramm

[boxer123]

ok thanks, ich habe es geschafft . Kann man das eigentlich so umschreiben das er zahlen generiert die wenn amn also die gleiche rechnung durchführt dann für 772 genau auch 772 rauskommt sohne zahlen soll er generieren kann man das machen?

[Bjoerk]

Das mit dem MOD DIV war nicht schlecht. Hatten wir das letzens nicht auch bei Dir ?

Delphi-Quellcode:

uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxN = 10;
var
  Value, N, I, Total: integer;
  Number: array [1..MaxN] of integer;
begin
  Edit2.Text:= '';
  if TryStrToInt(Edit1.Text, Value) then
  begin
    N:= Length(IntToStr(Value));
    if N <= 10 then
    begin
      for I:= 1 to N do
        Number[N-I+1]:= Value mod Round(IntPower(10, I)) div Round(IntPower(10, I-1));
      Total:= 0;
      for I:= 1 to N do
        Total:= Total + Round(IntPower(Number[I], 3));
      Edit2.Text:= IntToStr(Total);
    end;
  end;
end;

[boxer123]

was ist denn das sorry ich verstehe den nicht ^^ bin noch anfänger. Können wir das nicht mit div und mod lassen^^

[Bjoerk]

Das hast du doch in #1 geschrieben ?

[boxer123]

hmm hatte ich nicht nur das mit div und mod geschrieben^^

[Bjoerk]

Wenn du’s auch für etwas größere Zahlen haben möchtest, dann kannst du aus den integer int64 und aus dem TryStrToInt ein TryStrToInt64 machen.

[Luckie]

Bitte ändere den Titel so, dass er etwas über dein Problem aussagt. Hilfe bei einem Programm braucht hier wohl jeder.

[himitsu]

PS: Wie vielleicht bekannt sein sollte, wäre es nicht schlecht, daß du noch deinem Threadtitel einen ordentlichen (den unterschriebenen AGBs folgenden) Text verpasst.

[Luckie]

@himitsu: Lies mal meinen Beitrag.