chu trình Euler:

Void Eulercycle (void){

Stack:= ø;EC:=ø;  rỗng

Chọn u là đỉnh nào đó của đồ thị;

u -> stack;  // nạp u vào stack

while (stack != ø){ // rỗng

// Duyệt cho đến khi stack rỗng

X=top(stack); // X là phần tử đầu của stack

If(ke(x)!=ø){  // rỗng

Y=đỉnh đầu trong danh sách ke(x);

Stack <- Y; // nạp y vào stack

Ke(x)=ke(x)\{y};

Ke(y)=Ke(y)\{x}; //loại cạnh (x,y) ra khỏi đồ thị

} // kết thúc if

Else {

X<-stack; // lấy x ra khỏi stack

CE <- x; //nạp x vào CE

}// thoát else

}//thoát while

}//kết thúc void