Hoch Rechnungsprogramm

[boxer123]

Also das programm soll folgendes tun. zb. die zahl 112, der computer soll dann ausrechen

1 hoch 3, 1 hoch 3, 2 hoch 3

Und dann soll er das ergebnis in ein edit ausgeben.

Ich habe ein ansatz komm aber nicht weiter

Delphi-Quellcode:

var zahl1,zahl2,zahl3,i,:integer;
begin
  x:=strtoint(edit1.text);
    zahl1:= (x mod 10) div 1;
    zahl2:= (x mod 100) div 10;
    zahl3:= (x mod 1000) div 100;
  for i:= 1 to 3 do

[Bjoerk]

Wie meinen ??

[boxer123]

also das program soll diese zahl die der benutzer eingibt z.b 481 dann soll er die zahl in ziffern zerlegen und dann jeder einzelne zahl hoch 3 ausrechnen und dann zum schluss alles addieren

[himitsu]

Ich würde mir mal die Unit Math ansehn und was für Funktionen sie mir bietet.

wie z.B. Power


Wobei du "x hoch 3" notfalls auch hättest in die Grundrechenarten ( + - * / ) zuerlegen und somit auch ohne weitere Funktionen ausrechnen könntest.

[Romiox]

Delphi-Quellcode:

var i, Ergebnis :integer;
    zahlen: Array[1..3] of Integer;
begin
  x:=edit1.text;
  zahlen[1]:= strToInt(x[1]);
  zahlen[2]:= strToInt(x[2]);
  zahlen[3]:= strToInt(x[3]);
  for i:= 1 to 3 do
    zahlen[i] := zahlen[i]*zahlen[i]*zahlen[i];
  Result := // Ab hier is wieder klar, oder?

Im Grunde brauchst du, um ne for-Schleife verwenden zu können, das ganze doch nur als Array anlegen,
und als Index die Schleifenvariable zu nehmen.
(Und man könnte natürlich auch das einlesen mit in die Schleife ziehen, konsequenter Weise)

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