Delphi-Quellcode:
[...]
var
Form1: TForm1;
u1,u2,u3,v1,v2,v3,t1,t2,t3,q,a,b:integer;
[...]
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
u1:=1 ;
u2:=0 ;
u2:=a ;
v1:=0 ;
v2:=1 ;
v3:=b ;
while v3>0 do
begin
q:= u3 DIV v3;
t1:=u1-q*v1 ;
t2:=u2-q*v2 ;
t2:=u3-q*v3 ;
u1:=v1 ;
u2:=v2 ;
u3:=v3 ;
v1:=t1 ;
v2:=t2 ;
v3:=t3 ;
ListBox1.Items.Add(IntToStr(u1));
ListBox1.Items.Add(IntToStr(u2));
ListBox1.Items.Add(IntToStr(u3));
end;
end;
end.
Ich hab den Code jetzt so geschrieben, allerdings krieg ich als ausgabe nur die startwerte
u1=0
u2=1
u3=b
..
Ich denk mein Fehler liegt an dieser Stelle
while v3>0 do
In der Darstellung oben heißt "!=" doch soviel wie: bis v3=o wird oder ? Ich hab ja jetzt einfach geschrieben v3>0 :S
kann mir da jemand weiterhelfen ? danke !