Pezision

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

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

[Delphi-Laie]

Zitat von 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.

Diese Zahl scheint extrem groß zu sein. Mit den Delphi-Integertypen wird man vermutlich nicht erfolgreich sein. Es gibt "Bastellösungen" (nicht abwertend gemeint) für beliebig große Zahlen. Nur, um eine solche Zahl zu finden, wird wohl auch die Rechenzeit ins Astronomische wachsen. Mit Mathematik ist man wohl besser aufgehoben als mit dem sturen Probieren ("brute force").

Moderatoren und Administratoren, ich bewundere Eure Geduld....

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

[boxer123]

Zitat von DeddyH:

Wenn der Divisor 1 ist, was soll denn dann bei

Zitat:

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

herauskommen?

Bei welcher Zahl? Meinst du vielleicht wenn der Benutzer etwas eingibt, mit diesem Rhytmus teilt er die Zahl.


Ja glaub schon Präzision! Habe gehört, dass es so heißen soll.

[Medium]

Wenn, dann eher Progression, oder, wenn es einen seltsamen mathematischen Zusammenhang geben sollte, auch Präzession. Dein Rythmus heisst mit Vornamen übrigens Algo, und hat ein i statt eines y
(Es ist i.A. wenig sinnvoll, mit Wörtern zu hantieren, deren Bedeutung einem nicht klar ist. Gerade bei einem "Fachpublikum" stiftet man so gewaltig mehr Verwirrung, als wenn man das Gewünschte alternativ umschreibt.)

[Bummi]

ich würde vorschlagen wir kürzen das Ganze diesmal ab

Delphi-Quellcode:

Function QMult(const s:String):String;
var
 a:Array of Integer;
 i:Integer;
 IRes:Integer;
begin
  SetLength(a,Length(s));
  for I := 1 to Length(s) do a[i-1] := Ord(s[i]) - 48;
  IRes := a[0];
  for I := Low(a) + 1 to High(a) do IRes := IRes * a[i];
  Result := IntToStr(IRes);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 start:Integer;
 SSTart:String;
 cnt:Integer;
begin
   If TryStrToInt(Edit1.Text, Start) then
      begin
         cnt := 0;
         Dec(Start);
         while cnt < 9 do
            begin
               inc(Start);
               SSTart := IntToStr(start);
               cnt := 0;
               while length(SSTart) > 1 do
                  begin
                  inc(cnt);
                  SStart := QMult(SStart);
                  end;
            end;
         Showmessage(IntToStr(Start));
      end;
end;