Zobraziť príspevky
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Pokyn dekana 4/2009 - Zrušenie povinnej evidencie hodnotení v indexoch
ak to tu cita niekto, kto chodil ku kleinovej... mate uz zapich v maise???
a ked xes len zaver tak ten ani v jednej dokumentacii som nemal napisany
asi taky ako rozdiel prekladat C subor cez gcc alebo tcc
JUMPS ; toto je direktíva pre podporu dlhých skokov
.MODEL SMALL ; tu som nadefinoval dátový model
.STACK 100H ; tu zasa veľkosť zásobníka
.DATA ; táto oblasť sa nastaví ako dátový segment - obsahuje premenné programu
ZNAK DB 0 ; tu sa uklada nacitany znak
VELKE DW 0
CISLA DW 0
JESLOVO DB 0
POCET DW 0
OZNAM DB "Napiste text a potvrdte ho Enterom:",10,13,"$"
TEXTIK DB 10,13,"Pocet slov s rovnakym poctom cislis a velkych znakov je: $"
.CODE ; kódovy segment - obsahuje všetky inštrukcie
; vypíše v osmickovej sústave obsah registra AX
PROC Vypis
PUSH AX BX DX ; vloží obsahy registrov do zásobníka
MOV DX,AX ; DX <- AX
MOV BX,32768 ; BX <- 32768
SKOK:
MOV AX,DX ; AX <- DX
MOV DX,0 ; DX <- 0
DIV BX ; AX <- DX:AX / BX, DX <- DX:AX MOD BX
PUSH BX ; uloží obsah registra BX do zásobníka
MOV BX,AX ; BX <- AX
MOV AH,02H ; číslo funkcie pre výpis znaku
PUSH DX ; uloží slovo zo zásobníka do registra DX
MOV DL,'0' ; DL <- ASCII kód '0'
ADD DL,BL ; DL <- DL + BL
INT 21H ; vykonanie funkcie
POP DX ; uloží slovo zo zásobníka do registra DX
POP BX ; a BX
PUSH AX DX ; uloží obsahy registrov do zásobníka
MOV DX,0 ; DX <- 0
MOV AX,BX ; AX <- BX
MOV BX,8 ; BX <- 8
DIV BX ; AX <- DX:AX / BX, DX <- DX:AX MOD BX
MOV BX,AX ; BX <- AX
POP DX AX ; uloží slová zo zásobníka do registrov
CMP BX,0 ; porovná BX a 0
JNZ SKOK ; a ak sa nerovnajú skočí na SKOK
POP DX BX AX ; uloží slová zo zásobníka do registrov
RET ; návrat na miesto volania funkcie
ENDP Vypis
; testuje, ci dane slovo splna podmienku
PROC Testuj
PUSH AX
CMP JESLOVO,0
JZ TESTUJ2
MOV AX,CISLA
CMP AX,VELKE
JNZ TESTUJ2
INC POCET
TESTUJ2:
MOV JESLOVO,0
MOV VELKE,0
MOV CISLA,0
POP AX
RET
ENDP Testuj
START:
MOV AX,@DATA ; AX = segment oblasti DATA
MOV DS,AX ; ten som nasledne uložil do DS
MOV AH,09H ; AH = číslo funkcie pre výpis reťazca
MOV DX,OFFSET OZNAM ; DX = offset OZNAM
INT 21H ; vykonanie funkcie
CITANIE:
; nacitam znak z klavesnice do AL
MOV AH,00H
INT 16H
; a ulozim ho do premennej ZNAK
MOV ZNAK,AL
; porovná AL so znakmi konca slova (medzera, koniec riadku)
CMP ZNAK,32
JZ TEST
CMP ZNAK,10
JZ KONIEC
CMP ZNAK,13
JZ KONIEC
; ak bol nacitany nevyditelny znak tak sa neberie v uvahu
CMP ZNAK,32
JL CITANIE
MOV AH,02H ; chcem vypisat dany znak
MOV DL,ZNAK ; DL = ASCII hodnota tohto znaku
INT 21H ; vypis znaku
MOV JESLOVO,1
CMP ZNAK,48 ; ak je znak mensi ako znak 0
JL CITANIE ; skoci sa na navestie CITANIE
CMP ZNAK,90 ; ak je znak vacsi ako znak Z
JG CITANIE ; tak je to to iste
CMP ZNAK,58
JL PRIDCIS
CMP ZNAK,64
JG PRIDVEL
JMP CITANIE
PRIDCIS:
INC CISLA
JMP CITANIE
PRIDVEL:
INC VELKE
JMP CITANIE
TEST:
MOV AH,02H ; chcem vypisat dany znak
MOV DL,32 ; DL = ASCII hodnota medzery
INT 21H ; vypis znaku
CALL Testuj
JMP CITANIE
KONIEC:
CALL Testuj
MOV AH,09H ; AH = číslo funkcie pre výpis reťazca
MOV DX,OFFSET TEXTIK ; DX = offset TEXTIK
INT 21H ; vykonanie funkcie
MOV AX,POCET
CALL Vypis
MOV AX,4C00H ; AX = číslo funkcie pre ukončenie programu
INT 21H ; vykonanie funkcie
END START
nema niekto zadanie č.24 mam to spravene ale neviem si spomenut naznenie tak ci by mi mohol nekdo napisat
dakujem
24.
Zostavte program na evidenciu športových kurzov. O každom športovom kurze sa evidujú tieto údaje: názov kurzu, typ, lokalita, adresa (ulica_číslo, mesto, PSČ, okres), časový interval, cena, vedúci kurzu, kontakt na vedúceho kurzu (tel. číslo, e-mail). Program nech umožňuje pridanie športového kurzu, odobratie športového kurzu, usporiadanie podľa lokality a typu, ako aj výpis zoznamu športových kurzov.
Na reprezentáciu zoznamu horských nosičov použite statické pole smerníkov a nech jednotlivé informačné položky záznamu majú dynamickú veľkosť. Záznamy reprezentujte štruktúrami a zoznam nech je uložený v súbore. Použite vlastné funkcie s parametrami.
tie hesla su "programming" a "is funny", ktore na ktoru neviem
v patok oslava 
