(129 امتیاز از 36 رای)
Loading...
الگوریتم کراسکال با زبان اسمبلی به همراه سورس کد
در این پست سورس الگوریتم کراسکال با زبان اسمبلی را آماده کرده ایم که امیدواریم مورد استفاده قرار گیرد.
الگوریتم کراسکال الگوریتمی است که برای پیدا کردن یک زیرگراف فراگیر همبند با وزن کمتر در یک گراف وزندار است. الگوریتم کراسکال برای یافتن کوچکترین درخت فراگیر در یک گراف وزن دار مورد استفاده قرار می گیرد.
در این پروژه کاربر ابتدا مقدار خانه های ماتریس را به عنوان ورودی وارد می کند سپس برنامه کمترین وزن بین گره ها را پیدا کرده و در صفحه نمایش میدهد.
در ادامه می توانید قسمت های از تکه کد سورس الگوریتم کراسکال را مشاهده کنید.
تکه کد الگوریتم کراسکال با زبان اسمبلی:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | <strong><span style="color: #ff0000;">جهت دریافت کد کامل این برنامه از قسمت خرید محصول اقدام کنید</span></strong> exit macro mov ax,4c00h int 21h endm ;---------------------- gets macro str pushreg lea dx,str mov ah,0ah int 21h popreg endm ;---------------------- prints macro str pushreg lea dx,str mov ah,09h int 21h popreg endm ;---------------------- setvaluecost macro i1,j1,value pushreg mov cl,i1 mov ch,j1 mov row,cl mov col,ch pushreg call compute_addres popreg mov di,address mov cost[di],value popreg endm ;---------------------- getvaluecost macro i2,j2,n1 pushreg mov cl,i2 mov ch,j2 mov row,cl mov col,ch call compute_addres mov di,address mov cl,cost[di] mov n1,cl popreg endm ;---------------------- .model small .stack 64 .data strlist1 label byte max1 db 10 len1 db ? str1 db 11 dup('$') str2 db 5 dup(' '),'$' Matrix db 1,2,3,4,5,6,7,8,9 num db ? indexL db 'index[ $' indexR db ' ]= $' msgtitle db "******** Kruskal ******",10,13,10,13,'$' msgvertix db "The Number of Vertix=3",10,13,10,13,'$' msgAdj db "Please Enter the Adjacency Matrix",10,13,'$' msg1 db 10,13,"The Minimum Cost Edges Are:",10,13,'$' cost db N dup(N dup(0) ) ;int cost[3,3] ff db 0 ff2 db 0 ff3 db 0 .code main proc far mov ax,@data mov ds,ax ;========================= prints msgtitle prints msgvertix prints msgAdj getmatrix Matrix kruskal getc exit main endp end main |
سلام من قصد دارم این پروژرو خرید کنم اگه تو قسمت کد نویسش به مشکلی برخورد کردم می تونم از شما کمک بگیرم اشکالی که نداره ؟