Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Ergänzung zu "Von beliebigem Zahlensystem in ein anderes"

**sx2008**

Ich hätte da eine Vereinfachung:

Delphi-Quellcode:

			// Alt

Result := Result + (tmp*Round(IntPower(Base,Length(Value)-i))); 

// Neu

Result := Result * base + tmp;

Ungetestet, aber es ist im Prinzip das Horner Schema.

sx2008 Registriert seit: 15. Feb 2008 Ort: Baden-Württemberg 2.332 Beiträge Delphi 2007 Professional	#2 Re: Ergänzung zu "Von beliebigem Zahlensystem in ein an 21. Aug 2008, 22:10 Ich hätte da eine Vereinfachung: markieren Delphi-Quellcode: // Alt Result := Result + (tmpRound(IntPower(Base,Length(Value)-i))); // Neu Result := Result base + tmp; Ungetestet, aber es ist im Prinzip das Horner Schema.
	Zitat