Hoch Programm

[boxer123]

Also das programm soll sich eine hohe zahl auswählen und sie dann auseinander nehmen und kommt drauf an wenn es eine 4 stellige zahl ist dann so mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.


Es funkt aber nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1 , zahl2:integer;
ziffer: Array [ 1..4 ] of integer;
begin
zahl1:= 1000;
repeat
  zahl1:= zahl1+1;
    ziffer[1]:= ( zahl1 mod 10 ) div 1;
    ziffer[2]:= ( zahl1 mod 100 ) div 10;
    ziffer[3]:= ( zahl1 mod 1000 ) div 100;
    ziffer[4]:= ( zahl1 mod 10000 ) div 1000;
  for i:= 1 to 4 do
    ziffer[i]:= ziffer[i] * ziffer[i] * ziffer[i] * ziffer[i];
  until zahl1= zahl2;
edit2.text:= InTTostr(zahl1);
end;

Edit: sorry habe das wichtige ausgelassen, das ergebnis soll der gleichen zahl gleich sein

[Klaus01]

.. wo wird zahl2 mit einem Wert versorgt?

Grüße
Klaus

[himitsu]

Zitat von Klaus01:

.. wo wird zahl2 mit einem Wert versorgt

Das, und ziffer wird auch nie wieder verwendet.

[Luckie]

Hatten wir das ganze nicht schon mal mit einer dreistelligen Zahl?

[Delphi-Laie]

Zitat von boxer123:

Also das programm soll sich eine hohe zahl auswählen

Hohe? Ich kenne nur große Zahlen, wobei auch das relativ ist: Jede Zahl ist winzig gegenüber der Unendlichkeit.

Zitat von boxer123:

und sie dann auseinander nehmen

Auseinander( )nehmen? Ich kenne bei Zahlen nur das Zerlegen. Wie sollen die zerlegt werden? Additiv? Multiplikativ?

Zitat von boxer123:

mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.

Hoch 4 genommen? Also mit 4 potenziert werden?

Zitat von boxer123:

Es funkt aber nicht.

Was, kein Funken?

[Bjoerk]

Ist mindestens der dritte Thread dieser Art. Boxer, mach' dir div und mod halt mal klar.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y, Z: Integer;
begin
  for X:= 2 to 4 do
    for Y:= 2 to 4 do
    begin
      ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' = ');
      ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' = '+IntToStr(X div Y));
    end;
  for X:= 2 to 4 do
    for Y:= 2 to 4 do
    begin
      ShowMessage (IntToStr(X)+' mod '+IntToStr(Y)+' = ');
      ShowMessage (IntToStr(X)+' mod '+IntToStr(Y)+' = '+IntToStr(X mod Y));
    end;
  for X:= 2 to 4 do
    for Y:= 1 to 2 do
      for Z:= 1 to 2 do
      begin
        ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' mod '+IntToStr(Z)+' = ');
        ShowMessage (IntToStr(X)+' div '+IntToStr(Y)+' mod '+IntToStr(Z)+' = '+IntToStr(X div Y mod Z));
      end;
end;

[jobo]

Für ein Hoch Programm ist jedenfalls der Ansatz richtig:
Eine Hoch Sprache verwenden.

[SirThornberry]

@Delphi-Laie + jobo: Wenn ihr nichts zum Thema beizutragen habt unterlasst doch bitte das sticheln. Wie man euren Aussagen entnehmen kann scheint ihr zu wissen was der Fragesteller meint. Nicht jeder hat Spaß daran mit Fachausdrücken um sich zu werfen. Von daher respektiert bitte wenn jemand eine Frage ohne Unmengen an Fachausdrücken stellt.

[jobo]

Ja, Du hast Recht. Auch wenn es meiner Meinung nach nicht alles immer so fürchterlich ernst sein muss. Die Grenze ist vielleicht Geschmackssache, aber letztlich schätze ich ja selber die Sachlichkeit hier.

[boxer123]

habe es alleine geschafft aber trozdem dankke