Variablen Verwendung

[Mb123]

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 !