Pezision

[Medium]

Zitat von Bummi:

@vagtler

wenn Du Dir die Lernerfolge aus den Vorgängerthreads anschaust ...

... sollte klar werden, dass wir auf die Weise noch Länger "Freude" an seiner netten Art haben werden, und keinem, auch ihm nicht geholfen ist. Genau.

[boxer123]

Delphi-Quellcode:

var ziffer:array[1..10] of integer;
stellen,zahl:longint;
    begin
        zahl := strtoint (edit1.text) ;
    repeat
        zahl := zahl + 1 ;
        ziffer[1]:= (zahl mod 10) div 1;
        ziffer[2]:= (zahl mod 100) div 10;
        ziffer[3]:= (zahl mod 1000) div 100;
        ziffer[4]:= (zahl mod 10000) div 1000;
        ziffer[5]:= (zahl mod 100000) div 10000;
        ziffer[6]:= (zahl mod 1000000) div 100000;
        ziffer[7]:= (zahl mod 10000000) div 1000000;
        ziffer[8]:= (zahl mod 100000000) div 100000000;
        ziffer[9]:= (zahl mod 1000000000) div 100000000;
        ziffer[10]:= (zahl mod 10000000000) div 10000000000;
end;

so?

[DeddyH]

Einfacher geht das aber direkt über den String. Ich will mal nicht so sein:

Delphi-Quellcode:

var
  Ziffern: array of Byte; //oder auch integer, Byte reicht aber
  i, dummy, Laenge: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
    begin
      Laenge := Length(Edit1.Text);
      SetLength(Ziffern, Laenge);
      for i := 1 to Laenge do
        Ziffern[i - 1] := Edit1.Text[i];
    end;

[boxer123]

gehts auch mit copy ? Was ist der nächste schritt Multiplitzieren oder?

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

gehts auch mit copy ?

Klar geht das auch mit Copy, dauert nur länger bei gleichem Ergebnis.

Zitat von boxer123:

Was ist der nächste schritt Multiplitzieren oder?

Sieht ganz danach aus.

[boxer123]

Ich versuche gerade diese Befehle zu verstehen, weil wir hatten sie noch nicht in der Schule.
Können wir das lieber nicht mit Copy machen . Ich weiß es ist schwer mit mir ,weil ich will es auch verstehen.

[DeddyH]

Dann halt mit Copy und ohne den Fehler, den ich vorhin gemacht habe.

Delphi-Quellcode:

var
  Ziffern: array of integer;
  i, dummy, Laenge: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
    begin
      Laenge := Length(Edit1.Text);
      SetLength(Ziffern, Laenge);
      for i := 1 to Laenge do
        Ziffern[i - 1] := StringToInt(Copy(Edit1.Text, i, 1));
    end;

So sollte es funktionieren.

[boxer123]

JEtzt muss man Multiplitzieren und das tut man so;

Delphi-Quellcode:

for i:= 1 to .. do
for j:= 2 to .. do
ergebnis:=ziffer[i] * ziffer[j]

oder?

[DeddyH]

Eine Schleife genügt doch bei einem eindimensionalen Array.