Hallo ihr lieben!
wir müssen in der schule ein projekt auf die beine stellen und ich habe mich für die programmierung eines taschenrechners mit delphi entschieden.
nun habe ich nur das problem, dass ich mit dem logarithmus nicht weiterkomme.
folgenden algorithmus habe ich:
Delphi-Quellcode:
//Logarithmus
procedure TForm1.Button13Click(Sender: TObject);
var
i,j,kommastellen:integer;
Ergebnis,Power,Exponent : Extended;
begin
j := 0;
Ergebnis := 0;
Exponent := 0;
Kommastellen := 0;
while Kommastellen <= StrToInt(Edit1.Text) do
begin
for i := 9 downto 0 do
begin
Exponent := Exponent + i*Power;
Ergebnis := Power;//(StrToFloat(Edit1.Text), Exponent);
if Ergebnis <= StrToInt(Edit1.Text) then
begin
if j < 0 then
begin
Kommastellen := Kommastellen+1;
end;
j := j-1;
break;
end;
Exponent := Exponent - i*Power;//(10, j);
if i = 0 then
begin
j := j+1;
end;
end;
end;
Edit2.Text := FloatToStr(Round(Exponent*Power)/Power);
end;
nur, mit dem power haut bei mir was nicht hin. das programm funktioniert nur, wenn ich nichts in klammern nach power schreibe, was ja aber eigentlich hinmuss.
bitte bitte helft mir!!!
lg
[edit=mkinzler]Mit Tags und richtig eingerückt, sieht die Sache doch übersichtlicher aus? Oder? Mfg, mkinzler[/edit]