n und e hatte ich in meinem code schon durch a und b ersetzt hier allerdings noch nich gepostet, sooorry .
aber wenn ich <> einsetze wird immer noch 0 , 1 , b ausgegeben :/
Delphi-Quellcode:
var
Form1: TForm1;
u1,u2,u3,v1,v2,v3,t1,t2,t3,q,a,b:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
u1:=1 ;
u2:=0 ;
u3:=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.
so sieht es jetzt aus !