Pezision

[boxer123]

Guten Tag, ich habe schon sehr viel erreicht, ich komm nun mit einem Programm nicht mehr vorwärts.

Also das Programm soll folgendes machen, nehmen wir mal eine Zahl z.b 333, diese Zahl soll das Programm erstmals zerhacken ,dann hätten wir folgende Ziffer.

3 3 3 diese 3 Ziffern soll er Multiplitzieren mit folgenden Prinzip : 3 * 3 * 3, dass wäre 27 und jetzt soll das Programm die 27 zerhacken und nun hätten wir dann 2*7 ist 14 und das soll er solange machen bis eine ein stellige Zahl rauskommt und er muss naklar die Schritte aufzählen z.b hier warens 3 und das Programm soll eine Zahl finden mit 9 Schritten.

Wenn was Unklar ist schreibt .

[DeddyH]

Was mir unklar ist: was ist Dir unklar?

[Medium]

Deine Frage? (Nicht, dass es in deinen mindestens letzten zwei Threads nicht auch schon um das Zerlegen von Zahlen in Ziffern ging... )
Was hat der Titel, abgesehen davon, dass es das Wort nicht gibt, eigentlich mit dem Thema zu tun?

[mkinzler]

Und was ist Pezision?

[Daniel]

Zitat von boxer123:

Wenn was Unklar ist schreibt .

Mir ist unklar, an welcher Stelle Du jetzt festhängst, bzw. worin genau Dein Problem besteht. Wie weit bist Du denn mit der Problemlösung?

[boxer123]

Das mit dem Zerlegen ist nicht das Problem, das Problem ist, dass er es solange machen soll bis er eine Zahl mit 9 Schritten gefunden hat.

[Luckie]

Der wievielte Thread zu dem Thema ist das jetzt? Der dritte? Und was bedeutet Pezision? Und was hat der mir unbekannte begriff mit dem Problem zu tun? Und wann merkst du eigentlich, dass es im Grunde genommen immer wieder das gleiche Problem ist, was du uns hier präsentierst?

[boxer123]

Pezision sind die Schritte die man raushat

Hier mein Ansatz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ziffer:array[1..10] of integer;
stellen,i,j,divisor,faktor,summe,p,zahl:longint;
    begin
        zahl := strtoint (edit1.text) ;
        stellen := length (edit1.text) ;
    repeat
        zahl := zahl + 1 ;
        divisor := 1 ; faktor:= 10 ; summe:=0 ;
    for i:= 1 to stellen do
  begin
    ziffer[i]:= (zahl mod divisor) div (divisor div 10) ;
    for j:= 2 to stellen do
    summe:= ziffer[i]*ziffer[j];
  end;
    until zahl=9;
edit2.text:= inttostr(summe);
end;

end.

edit;

[Luckie]

Zitat von boxer123:

Pezision sind die Schritte die man raushat

Das Wort kennt weder mein Duden noch Google. Oder meinst du Präzision?

[DeddyH]

Wenn der Divisor 1 ist, was soll denn dann bei

Zitat:

(zahl mod divisor) div (divisor div 10) ;

herauskommen?