Ez hogyan tudná úgy át írni hogy a Visual Basic tuja kezelni (ez az összefuttatás tétele ha minden igaz)?

Változó: i,j,db:egész

i:=0; j:=0; db:=-1

Ciklus amíg i<n és j<m

db:=db+1

Elágazás

s[i]<z[j] esetén unio[db]:=s[i]; i:=i+1

s[i]=z[j] esetén unio[db]:=s[i]; i:=i+1; j:=j+1

s[i]>z[j] esetén unio[db]:=z[j]; j:=j+1

Elágazás vége

Ciklus vége

Ciklus amíg i<n

db:=db+1; unio[db]:=s[i]; i:=i+1

Ciklus vége

Ciklus amíg j<m

db:=db+1; unio[db]:=z[j]; j:=j+1

Ciklus vége

Eljárás vége