#asembler

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? n1 db ? enter1 db ? njiri db ? rac db ? rac1 db ? vroom db ? .data novired db 13, 10, 0 .code start: ; vroom kao brojac pocinje na nuli i unosimo karaktere ; zajedno sa bh kao brojacem do 8 za binarnu vrednost mov vroom,'0' invoke StdIn, addr n, 1 invoke StdIn, addr enter1, 2 invoke StdOut, addr novired invoke StdIn, addr n1, 1 invoke StdIn, addr enter1, 2 invoke StdOut, addr novired mov bl,n mov cl,n1 mov bh,0 petlja: ; provera ako je bh inkrementiran preko nule i ; redno uzimanje cifre 0 ili 1 za prvi karakter inc bh cmp bh,8 jg kraj shl bl, 1 jc dalje mov rac,'0' bb1: ;redno uzimanje cifre 0 ili 1 za drugi karakter shl cl, 1 jc dalje1 mov rac1,'0' bb2: ; poredjenje te cifre i inkrementiranje vrednosti vroom ; ako se razlikuju i povratak na pocetak petlje mov al, rac cmp al, rac1 jne hexd jmp petlja dalje: mov rac,'1' jmp bb1 dalje1: mov rac1,'1' jmp bb2 hexd: inc vroom jmp petlja kraj: ;vracanje vrednosti vroom kao bitovne razdaljine invoke StdOut, addr vroom invoke ExitProcess, 0 predji proc invoke StdOut, addr novired ret predji endp end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>5vikr B C 1 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera C je 01000011. Binarni zapisi oba karaktera razlikuju se samo na nultoj poziciji. ) C:\masm32\coRoNA\DoM20>5vikr B A 2 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera A je 01000001. Binarni zapisi oba karaktera razlikuju se na nultoj i prvoj poziciji. ) C:\masm32\coRoNA\DoM20>5vikr B a 3 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera a je 01100001. Binarni zapisi oba karaktera razlikuju se na nultoj, prvoj, i petoj poziciji. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? .data nula db '0', 0 jedan db '1', 0 zahtev db "Unesi karakter: ", 0 .code start: invoke StdOut, addr zahtev ; unosimo broj invoke StdIn, addr n, 1 ; ubacujemo ga u registar mov bl, n ; bh sluzi kao brojac mesta mov bh, 8 petlja: ; proveravamo da li smo stigli do kraja cmp bh, 0 je kraj ; vrsimo pomeranje ulevo za jedno mesto shl bl, 1 ; ukoliko je cf=1 skacemo na labelu dalje jc dalje ; ako nije stampamo 0 invoke StdOut, addr nula ; i skacemo na labelu dalje2 jmp dalje2 dalje: ; ako je cf = 1 onda dodajemo 1 invoke StdOut, addr jedan dalje2: ; posto posle dodavanja jedinice nemamo skok, ide dalje ; i onda u svakom slucaju smanjujemo bh za 1 dec bh ; ponavljamo petlju dok bh ne postane 0 loop petlja kraj: invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>2sar Unesi karakter: w 01110111 C:\masm32\coRoNA\DoM20>2sar Unesi karakter: ~ 01111110 C:\masm32\coRoNA\DoM20>2sar Unesi karakter: B 01000010

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? karakter db ? enter1 db 2 dup(?) levo db ? desno db ? .data poruka db "Unesi karakter:", 0 poruka1 db "Jeste palindrom!", 0 poruka2 db "Nije palindrom!", 0 .code start: invoke StdOut,addr poruka invoke StdIn,addr karakter,1 invoke StdIn,addr enter1,2 MOV AL,karakter MOV CL,karakter ; AH ostaje 1 ako je karakter palindrom ; ako se u jednom paru elementi razlikuju on postaje 0 MOV AH,1 MOV BH,0 for1: ; 4 prolaza u petlji zato sto uzimamo po jedan bit s obe strane cmp BH,4 je kraj ADD BH,'1' ; provera da li su elementi sa leve strane 0 ili 1 shl AL,1 ; slucaj kada je s leve strane element 0 jc prvi MOV levo,'0' ;provera da li su elementi sa desne strane 0 ili 1 shr CL,1 jc drugi ;slucaj kada je s desne strane element 0 MOV desno,'0' jmp prekrajfor1 ; slucaj kada je s leve strane element 1 prvi: MOV levo,'1' shr CL,1 jc drugi MOV desno,'0' jmp prekrajfor1 ; slucaj kada je s desne strane element 1 drugi: MOV desno,'1' jmp prekrajfor1 prekrajfor1: MOV BL,levo ; gleda se da li je uzeti element s leve ; jednak uzetom elementu s desne strane cmp BL,desno je for1 MOV AH,0 ; prvi put kada naidjemo na par kom elementi nisu jednaki zavrsavamo ; s daljim proverama i stampamo poruku da broj nije palindrom jmp kraj kraj: cmp AH,1 je kraj1 invoke StdOut,addr poruka2 jmp kraj2 kraj1: invoke StdOut,addr poruka1 kraj2: invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>4nem Unesi karakter: B Jeste palindrom! ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), dakle, binarni zapis karaktera je palindrom. ) C:\masm32\coRoNA\DoM20>4nem Unesi karakter: b Nije palindrom! ( U navedenom primeru važi: zapis karaktera b je 01100010 (vidi ASCII tabelu), dakle, binarni zapis karaktera nije palindrom. ) C:\masm32\coRoNA\DoM20>4nem Unesi karakter: ~ Jeste palindrom! ( U navedenom primeru važi: zapis karaktera ~ je 01111110 (vidi ASCII tabelu), dakle, binarni zapis karaktera je palindrom. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? .data novired db 13, 10, 0 brojac db '0', 0 poruka db "Unesite karakter: ", 0 odgovor db "Broj binarnih jedinica u zapisu karaktera je: ", 0 .code start: ; Unosi se karakter invoke StdOut, addr poruka invoke StdIn, addr n, 1 invoke StdOut, addr novired MOV BL, n ; U BL je smesten karakter MOV BH, 0 ; BH predstavlja redni broj cifre zapisa pocetak: ; Da li je kraj zapisa? INC BH CMP BH, 8 jg kraj ; Bit najvece tezine se istiskuje (on se smesta u CF) SHL BL, 1 ; Proverava se da li je taj bit jedinica jc povecaj jmp pocetak povecaj: ; Posto jeste jedinica, brojac se povecava za jedan INC brojac jmp pocetak kraj: ; Ispisuje se resenje invoke StdOut, addr odgovor invoke StdOut, addr brojac invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>3kri Unesite karakter: w Broj binarnih jedinica u zapisu karaktera je: 6 ( U navedenom primeru važi: zapis karaktera w je 01110111 (vidi ASCII tabelu), pa ASCII zapis karaktera ima šest binarnih jedinica. ) C:\masm32\coRoNA\DoM20>6and Unesi karakter: a Broj binarnih jedinica u zapisu karaktera je: 3 ( U navedenom primeru važi: zapis karaktera a je 01100001 (vidi ASCII tabelu), pa ASCII zapis karaktera ima tri binarne jedinice. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? ca db ? nc db ? .data upis db "Unesi karakter: ", 0 ispis db "Trazeni karakter: ", 0 .code start: invoke StdOut, addr upis invoke StdIn, addr ca, 1 ; BL predstavlja broj jedinica binarnog zapisa unetog karaktera ; BH je broj pozicije do koje smo stigli u prolasku ; binarnog zapisa unetog karaktera a AH nam služi za upisivanje ; jedinica u binarni zapis trazenog karaktera mov BL, 0 mov BH, 0 mov AL, ca mov AH, 1 petlja: ; racuna broj jedinica inc BH cmp BH,8 jg novi1 shl AL, 1 jc dodaj jmp petlja dodaj: inc BL jmp petlja novi1: mov nc, 0 mov AL, nc novi: ; dodaje stepene dvojke za svaku jedinicu BL-a cmp BL, 0 je kraj or AL, AH add AH, AH dec BL jmp novi kraj: mov nc, AL invoke StdOut, addr ispis invoke StdOut, addr nc invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>6and Unesi karakter: w Trazeni karakter: ? ( U navedenom primeru važi: zapis karaktera w je 01110111 (vidi ASCII tabelu), zapis karaktera ? je 00111111. Binarni zapisi oba karaktera imaju po šest jedinica dekadni ASCII kod prvog je 119, a drugog 63. ) C:\masm32\coRoNA\DoM20>6and Unesi karakter: a Trazeni karakter: ( U navedenom primeru važi: zapis karaktera a je 01100001 (vidi ASCII tabelu), zapis zvuka: BELL je 00000111 (audio izlaz). Binarni zapisi oba karaktera imaju po tri jedinice dekadni ASCII kod prvog je 97, a drugog 7. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? rastojanje db ? cifra db ? enter1 db 2 dup(?) .data poruka db "Unesi rastojanje:", 0 poruka1 db "Unesi niz pozitivnih brojeva (0 za kraj niza):", 0 poruka2 db "Unesi cifru:", 0 poruka3 db "Broj trazenih parova je: ", 0 greska1 db "Pogresno ste uneli rastojanje!", 0 greska2 db "Prvi element ne moze da bude 0!", 0 novired db 13,10,0 suma db 1, 0 .code start: invoke StdOut,addr poruka ; unos rastojanja invoke StdIn,addr rastojanje,1 invoke StdIn,addr enter1,2 cmp rastojanje,'0' jle greskaa1 invoke StdOut,addr poruka1 ; unos prvog elementa invoke StdOut,addr novired invoke StdOut,addr poruka2 invoke StdIn,addr cifra,1 invoke StdIn,addr enter1,2 cmp cifra,'0' je greskaa2 MOV BL,cifra ; posto se uvek radi sa dva elementa u isto vreme ; jedan cuvamo u BL MOV suma,'0' for1: invoke StdOut,addr poruka2 ; unos elemenata u petlji invoke StdIn,addr cifra,1 invoke StdIn,addr enter1,2 MOV BH,cifra ; drugi element ide u BH cmp cifra,'0' je kraj ; proverava se koji je broj veci ; da ne bi dobili negativan broj cmp BL,BH jg negativan MOV BH,BL MOV BL,cifra negativan: ; racunamo rastojanje izmedju dva elementa SUB BL,BH ADD BL,'0' cmp BL,rastojanje jge krajfor1 ; rastojanje izmedju dva elementa je manje od R ; pa povecavamo sumu ADD suma,1 krajfor1: ; rastojanje izmedju dva elementa nije manje od R ; pa: drugi element ide u BL i pocinje nova petlja MOV BL,cifra jmp for1 kraj: invoke StdOut,addr poruka3 ; stampa se resenje invoke StdOut,addr suma jmp zavrsi greskaa1: ; poruka za greske invoke StdOut,addr greska1 jmp zavrsi greskaa2: invoke StdOut,addr greska2 jmp zavrsi zavrsi: invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM12>nem Unesi rastojanje: 3 Unesi niz pozitivnih brojeva (0 za kraj niza): Unesi cifru: 1 Unesi cifru: 5 Unesi cifru: 7 Unesi cifru: 8 Unesi cifru: 0 Broj trazenih parova je: 2 C:\masm32\coRoNA\DoM12>nem Unesi rastojanje: 3 Unesi niz pozitivnih brojeva (0 za kraj niza): Unesi cifru: 0 Prvi element ne moze da bude 0! C:\masm32\coRoNA\DoM12>nem Unesi rastojanje: 0 Pogresno ste uneli rastojanje!

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? cifra db ? x db ? pojedi db 2 dup(?) kor1 db ? .data zahtev db "Unesi cifru: ", 0 zahtev1 db "Unesi X: ", 0 ispis db "Data tacka pripada intervalu: ", 0 zarez db ", ", 0 kor2 db '0' .code start: ; unosi se X invoke StdOut, addr zahtev1 invoke StdIn, addr x, 1 invoke StdIn, addr pojedi, 2 petlja1: invoke StdOut, addr zahtev invoke StdIn, addr cifra, 1 invoke StdIn, addr pojedi, 2 mov AL, cifra cmp AL, '0' je kraj cmp AL, x jl prva jg druga jmp petlja1 prva: ; ako naidjemo na cifru koja ja manja od X, ; ona postaje nova donja granica mov kor1, AL jmp petlja1 druga: ; ako prvi put naidjemo na cifru koja je veca od X, ; ona postaje nova gornja granica cmp kor2, '0' jne petlja1 mov kor2, AL jmp petlja1 kraj: invoke StdOut, addr ispis invoke StdOut, addr kor1 invoke StdOut, addr zarez invoke StdOut, addr kor2 invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM12>and Unesi X: 5 Unesi cifru: 2 Unesi cifru: 4 Unesi cifru: 6 Unesi cifru: 8 Unesi cifru: 0 Data tacka pripada intervalu: 4, 6 C:\masm32\coRoNA\DoM12>and Unesi X: 5 Unesi cifru: 2 Unesi cifru: 6 Unesi cifru: 8 Unesi cifru: 0 Data tacka pripada intervalu: 2, 6 C:\masm32\coRoNA\DoM12>and Unesi X: 5 Unesi cifru: 2 Unesi cifru: 8 Unesi cifru: 0 Data tacka pripada intervalu: 2, 8

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? R db ? cifra db ? slred dw ? .data poruka1 db "Unesite R: ", 0 poruka2 db "Unesite cifru: ", 0 poruka3 db "Unesite sledecu cifru: ", 0 poruka4 db "Broj susednih parova na rastojanju manjem od R je ", 0 brojac db '0', 0 .code start: invoke StdOut, addr poruka1 invoke StdIn, addr R, 1 invoke StdIn, addr slred, 2 invoke StdOut, addr poruka2 invoke StdIn, addr cifra, 1 invoke StdIn, addr slred, 2 mov bl, cifra mov bh, R sub bh, '0' pocetak1: invoke StdOut, addr poruka3 invoke StdIn, addr cifra, 1 invoke StdIn, addr slred, 2 mov al, cifra cmp al, '0' je kraj sub al, bl mov bl, cifra cmp al, 0 jl znak jmp proveri jmp pocetak1 znak: neg al proveri: sub al, bh cmp al, 0 jl povecaj jmp pocetak1 povecaj: mov al, brojac inc al mov brojac, al jmp pocetak1 kraj: invoke StdOut, addr poruka4 invoke StdOut, addr brojac invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM12>tad Unesite R: 3 Unesite cifru: 1 Unesite sledecu cifru: 3 Unesite sledecu cifru: 5 Unesite sledecu cifru: 7 Unesite sledecu cifru: 9 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 4 C:\masm32\coRoNA\DoM12>tad Unesite R: 2 Unesite cifru: 1 Unesite sledecu cifru: 3 Unesite sledecu cifru: 5 Unesite sledecu cifru: 7 Unesite sledecu cifru: 9 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 0 C:\masm32\coRoNA\DoM12>tad Unesite R: 3 Unesite cifru: 1 Unesite sledecu cifru: 5 Unesite sledecu cifru: 7 Unesite sledecu cifru: 9 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 2 C:\masm32\coRoNA\DoM12>tad Unesite R: 3 Unesite cifru: 1 Unesite sledecu cifru: 5 Unesite sledecu cifru: 9 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 0 C:\masm32\coRoNA\DoM12>tad Unesite R: 5 Unesite cifru: 1 Unesite sledecu cifru: 5 Unesite sledecu cifru: 9 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 2 C:\masm32\coRoNA\DoM12>tad Unesite R: 0 Unesite cifru: 1 Unesite sledecu cifru: 2 Unesite sledecu cifru: 3 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 0 C:\masm32\coRoNA\DoM12>tad Unesite R: 0 Unesite cifru: 1 Unesite sledecu cifru: 0 Broj susednih parova na rastojanju manjem od R je 0