Java in Delphi Übersetzung richtig misslungen

ute.h_80 · Beiträge: 18 Win XP D5 Enterprise

Hab versucht nen Java Code in Delphi zu übersetzen, aber es funktioniert nicht richtig. :oops:

Vielleicht kann mir ja jemand helfen.

Java Code

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

// sieve of Eratosthenes
   public void erat(long num) {
      String out = (num +" =");
      boolean isPrime = true, notfirst = false;
      long temp = num;
      
      while (temp % 2 == 0) {
   temp /= 2;
   if (notfirst) { out += " *"; }
   else { notfirst = true; }
   out += " 2";
   isPrime = false;
      }
      
      int check = 3;
      while (check <= (num / 2)) {
   while (temp % check == 0) {
      temp /= check;
      if (notfirst) { out += " *"; }
      else { notfirst = true; }
      out += (" "+ check);
      isPrime = false;
   }
   check +=2;
      }
      
      
      if (isPrime) { eratField.setText(prime); out += (" "+prime); }
      else { eratField.setText(composite); }

      eratcalc.setText(out);
   }

und hier mein Delphi versuch

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

     ERATO_WEG.Clear;
     num := Strtoint64(ERATO_ZAHL1.Text);

     ticks := GetTickCount;
     temp := num;
     notfirst := false;
     isPrime := true;

     WHILE (temp mod 2) = 0 DO
           BEGIN
                temp := temp div 2;
                IF notfirst = false THEN ERATO_WEG.Lines[0]:= ''
                ELSE notfirst := true;
                ERATO_WEG.Lines[0] := '2';
                isPrime := false;
           END;
     check := 3;
     WHILE check <= (num div 2) DO
           BEGIN
                WHILE (temp mod check) = 0 DO
                      BEGIN
                           temp := temp div check;
                           IF notfirst = false THEN ERATO_WEG.Lines[0] := ERATO_WEG.Lines[0] + ' * '
                           ELSE notfirst := true;
                           ERATO_WEG.Lines[0] := ERATO_WEG.Lines[0] + inttostr(check);
                           isPrime := false;
                      END;
                check := check + 2;
           END;
     ERATO_WEG.Lines[0] := ERATO_WEG.Lines[0] + ' = ' + inttostr(num);

     IF isPrime = true THEN ERATO_WEG.Lines.Add('Primzahl')
     ELSE ERATO_WEG.Lines.Add(inttostr(num) + ' = zusammengesetzte Primzahl');

Moderiert von Motzi: Code- durch Delphi-Tags ersetzt

teebee · Beiträge: 109 D6 Prof

Ich habe gerade keine Zeit, mir das genauer anzuschauen, aber zwei Dinge sind mir aufgefallen:

a) Ich würde aus Performancegründen (Du willst die Zeit messen, die das ganze dauert?) während des Algorithmus nicht immer auf die erste Zeile des Memos schreiben, sondern auf einen String, der dann zum Schluss ins Memo geschrieben wird.

b) Du hast die If-Anweisungen falsch übersetzt:
(z.B. im oberen Codebereich)

ute.h_80 hat folgendes geschrieben:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

...
      while (temp % 2 == 0) {
   temp /= 2;
   if (notfirst) { out += " *"; }
    ^^^^^^^
   else { notfirst = true; }
   out += " 2";
   isPrime = false;
      }
...

Hier wird geschaut, ob notfirst TRUE ist, Du prüfst auf FALSE:

ute.h_80 hat folgendes geschrieben:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

...
WHILE (temp mod 2) = 0 DO
           BEGIN
                temp := temp div 2;
                IF notfirst = false THEN ERATO_WEG.Lines[0]:= ''
                ^^^^^^^^^^^                                 ^^^^Hier löschst Du alles, es soll doch was angehängt werden...
                ELSE notfirst := true;
                ERATO_WEG.Lines[0] := '2';
                isPrime := false;
           END;
...

Ich würde es so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

...
While (temp Mod 2)=0 Do Begin
 temp := temp Div 2;
 If NotFirst Then OutString := OutString+" *" Else NotFirst := True;
 OutString := OutString+" 2";
 IsPrime := False;
End;
...

Wenn Du die If-Anweisungen nochmal checkst, sollte es eigentlich gehen, vorausgesetzt, der Algorithmus stimmt vom Prinzip...

Gruß, teebee

ute.h_80 · Beiträge: 18 Win XP D5 Enterprise

jetzt klappt es, DANKE!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme