Topics

Zdravim, nenajde sa nejaka dobra dusa, ktora by darovala, pripadne za nejaky darcek mi dala listok na promocie o 9:45, nijak mi to nevychadza a potreboval by som 6 listkov.
kontaktovat ma mozete aj priamo marossitko@gmail.com

PS: pokial tu nenapisem, neupravim prispevok, tak stale zhanam

Zdar, nejaka lamavica sa riesi? alebo kedy? ako? kde? neviem o tom nic, tak sa pytam

Na FTP-cku som nasiel nejake programy na skusku, avsak hned prvy ked som chcel prekompilovat mi vyhodilo 20 Errorov a 11 varovani. skusal som ich postupne odstranovat ale aj tak ziaden vysledok. mohol by sa niekto na to pozriet? popripade napisat vlastne riesenie?
Pr.1.Bc
Majme reťazec definovaný ako dvojica <dĺžka reťazca><reťazec>. Reťazec nie je ukončený zvláštnym znakom, ale je ukončený CR. Napíšte program na zápis reťazca z klávesnice, uloženie v danom formáte a vytlačenie na obrazovke. Dĺžka reťazca je obmedzená 255 znakmi.

Code [Select] Expand

.model small
.stack 100
.data ret db 255 dup($)
.code pom db 248 dup($)
citaj: proc
mov ah,01
int 21h
ret
citaj: endp
start: mov ax,@data
modv ds,ax
mov cx,0
vstup: call citaj
mov [POM+CX],ac
cmp al,10
je vypis
cmp cx,246
je vypis
inc cx
jmp vstup
vypis: mov [ret],'c'
mov ax,cx
div 100
add ah,'0'
mov [ret+1],ah
sub ah,ah
div 10
add an,'0'
mov [ret+2],ah
add al,'0'
mov [ret+3],al
mov [ret+4],'>'
mov [ret+5],'<'
bx=0
kopir: mov [ret+6+bx],[pom+bx]
inc bx
cmp cx,bx
jae kopir
mov [ret+6+bx],'>'
mov ah,09
mov dx,offset ret
int 21h
mov ah,4ch
int 21h
end start