Hi Leutz!

Ich hab das gerade nicht im Kopf und brauche das aber schnellstens also, soweit bin ich schon:

var dezimalzahl, basis, ergebnis :longint ;


begin

dezimalzahl:=strtoint(Edit1.Text);

basis:= strtoint(Edit2.text);

ergebnis:=strtoint(edit3.Text);


while dezimalzahl>0 do

begin

dezimalzahl:=dezimalzahl div basis;

ergebnis:= dezimalzahl mod basis;

end;


end;

 

In der While -Schleife is was faul, aber mir fällt dazu nix mehr ein!!

Wäre schön, wenn Ihr euch schnell melden würdet!!

CYA Utix

Hey Lithutix,

vielleicht solltes Du einfach Deine beiden Rechenzeilen tauschen? Also in der Schleife:

ergebnis:= dezimalzahl mod basis;

dezimalzahl:=dezimalzahl div basis;

denn sonst würdest Du ja dezimalzahl überschreiben, bevor du ergebnis berechnest?

Bis denn,

Horst

Danke, ich habs mit deiner Hilfe geschafft!!!

CYA UTIX