Pezision

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

[vagtler]

Warum findet sich eigentlich *immer* jemand, der dann doch einfach den Code hinschreibt und damit weder dem Thread-Ersteller noch der Gemeinschaft einen nachhaltigen Gefallen tut?

[boxer123]

Kann man nicht irgendwie mein Ansatz bissen umformen damit er auch das richtige tut?

[mkinzler]

Zitat von vagtler:

Warum findet sich eigentlich *immer* jemand, der dann doch einfach den Code hinschreibt und damit weder dem Thread-Ersteller noch der Gemeinschaft einen nachhaltigen Gefallen tut?

Leider war das nur zu 99,x 5 die richtige Lösung

[DeddyH]

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

Bei welcher Zahl ist vollkommen wurscht. 1 div 10 ergibt 0, zahl mod 1 ergibt zahl. Im Ergebnis bedeutet das, dass Du Zahl durch 0 teilst.