- •Напишите программу, которая запрашивает у пользователя имя (максимум 10 символов) и затем трижды признаётся пользователю в любви.
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Напишите программу, запрашивающую у оператора строку, а затем выводящую ее на экран. Выполните трассировку программы.
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Напишите программу, вводящую строку запроса и ожидающую ответ. В зависимости от ответа “y” или “n” вывести на экран ту или иную строку. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку. Количество вводимых букв ограничьте программно. Выполните трассировку программы.
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Ввести с клавиатуры натуральное число. Найти сумму его первой и последней цифры и вывести на экран. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку, а затем выводящую ее на экран, предварительно изменив заглавные английские буквы на строчные. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку, а затем выводящую ее на экран в pамке. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку str1. Необходимо скопировать в строку str2 последний символ из str1 три раза. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку, а затем выводящую каждое слово в отдельной строке. Выполните трассировку программы.
- •Напишите программу, запрашивающую у оператора строку, а затем выводящую символы введенной строки на экран в обратном порядке. Выполните трассировку программы.
- •Ввести с клавиатуры натуральное число. Поменять порядок следования цифр в числе и вывести на экран.
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Напишите программу, которая вводит с клавиатуры слово и выводит слово лесенкой, уменьшая длину на один символ.
- •Оформите ввод пароля в рамке. Рамка расширяется при вводе символов. Для рисования рамки используйте коды символов:
- •Дополните программу: ввод пароля пока не будет введено правильное слово. При каждом неверном вводе выводите сообщение об этом.
- •Дополните программу. При верном вводе пароля он появляется на экране через временную задержку разного цвета.
- •Дополните программу. Введите строку текста и выведите его по буквам в режиме телетайпа разными по цвету буквами.
- •Дополните программу: вводите пароль 3 раза, каждый раз после ввода отображайте введенное слово и сообщайте верно или неверно введен пароль. Затем выход в dos.
- •Дополните программу: измените цвет выводимых на экран символов и при неверном вводе пароля в правом верхнем углу выводите сообщение «Ха-ха, Вы ошиблись!!!»
- •Дополните программу: измените цвет выводимых на экран символов и при неверном вводе пароля в правом нижнем правом углу выводите сообщение «Ха-ха, Вы ошиблись!!!»
- •Дополните программу: измените цвет выводимых на экран символов и при неверном вводе пароля в центре экрана выводится сообщение «Ха-ха, Вы ошиблись!!!»
- •Введите две строки. В случае если они одинаковые. Выводится сообщение о том что строки совпали, в противном случае выводится сообщение, о том что строки не совпадают.
- •Напишите программу, которая получает строку и слово. С помощью макроса определить входит ли данное слово в строку.
- •Напишите программу, в которой вводятся целые числа а, b. Напишите макрокоманду определения min.
- •Напишите программу, в которой вводятся целые числа c, d. Напишите макрокоманду определения max.
- •Напишите программу, в которой вводятся целые числа а, b, c, d. Найти max{min(a, b), min(c, d)}, для чего написать макрокоманды определения max и min.
- •Вывести на экран своё имя, фамилию и группу, используя макрокоманду.
- •Написать программу, которая спрашивала бы сокращенное имя, а печатала бы полное. В случае незнакомого имени – печатать "я с Вами не знакома".
- •Int 21h ; Вызов 21 прерывания dos
- •Int 21h ; Вызов 21 прерывания dos
- •Ввести с клавиатуры натуральное число. Проверить будут ли его цифры все различны. Вывести на экран сообщение. Преобразование строки в число производить в макрокоманде.
- •Ввести с клавиатуры два натуральных числа. Проверить есть ли у них одинаковые цифры. Если да, вывести их на экран. Преобразование строки в число произвести с помощью макрокоманды
- •Напишите программу, в которой вводится массив целых чисел. С помощью макроса отсортируйте массив любым известным алгоритмом.
- •Дана длина ребра куба. Найти площадь грани.
- •Дана длина ребра куба. Найти площадь полной поверхности этого куба.
- •Дана длина ребра куба. Найти объем этого куба.
Дана длина ребра куба. Найти площадь полной поверхности этого куба.
vvod macro s, fun ;ввод и вывод символов
mov ah, fun
lea dx, s
int 21h
endm
Convert MACRO Text, num
LOCAL m1
XOR ax, ax
XOR cx, cx
xor dh,dh
MOV cl, real
MOV di, 10
LEA bx, Text
m1:
MUL di
MOV dl, [bx]
SUB dl, 48
ADD ax, dx
INC bx
LOOP m1
MOV num, ax
ENDM
NewLine MACRO ;??????? ?? ????? ??????
MOV ah, 02h
MOV dl, 0ah
INT 21h
MOV ah, 02h
MOV dl, 0dh
INT 21h
ENDM
WriteInt MACRO num
LOCAL m1
LOCAL m2
XOR cx, cx
MOV di, 10
MOV ax, num
m1:
MOV dx, 0
DIV di
INC cx
PUSH dx
CMP ax, 0
JG m1
MOV ah, 2h
m2:
POP dx
ADD dl, 48
INT 21h
LOOP m2
ENDM
sgrani macro reb
mov al, byte ptr reb
mul byte ptr reb
mov sgr, ax
NewLine
vvod str1, 09h
WriteInt sgr
endm
spover macro sgr
mov bl, 6
mov ax, sgr
mul bl
mov spov, ax
NewLine
vvod str2, 09h
WriteInt spov
endm
getch macro
mov ah, 1h
int 21h
endm
codes segment para 'code'
assume cs:codes, ds:codes, ss:codes, es:codes
org 100h
beg: call main
string db 'Vvedite znachenie rebra: $'
str1 db 'Ploshad grani: $'
str2 db 'ploshad polnoi poverhnosti: $'
r label byte
max db 10
real db ?
text db 10 DUP('$'),'$'
reb dw ? ;число
sgr dw ?
spov dw ?
main proc near
vvod string, 09h
vvod r, 0ah
convert text, reb
sgrani reb
spover sgr
getch
mov ah, 4ch
int 21h
main endp
codes ends
end beg
Дана длина ребра куба. Найти объем этого куба.
vvod macro s, fun ;ввод и вывод символов
mov ah, fun
lea dx, s
int 21h
endm
Convert MACRO Text, num
LOCAL m1
XOR ax, ax
XOR cx, cx
xor dh,dh
MOV cl, real
MOV di, 10
LEA bx, Text
m1:
MUL di
MOV dl, [bx]
SUB dl, 48
ADD ax, dx
INC bx
LOOP m1
MOV num, ax
ENDM
NewLine MACRO ;??????? ?? ????? ??????
MOV ah, 02h
MOV dl, 0ah
INT 21h
MOV ah, 02h
MOV dl, 0dh
INT 21h
ENDM
WriteInt MACRO num
LOCAL m1
LOCAL m2
XOR cx, cx
MOV di, 10
MOV ax, num
m1:
MOV dx, 0
DIV di
INC cx
PUSH dx
CMP ax, 0
JG m1
MOV ah, 2h
m2:
POP dx
ADD dl, 48
INT 21h
LOOP m2
ENDM
sgrani macro reb
mov al, byte ptr reb
mul byte ptr reb
mov sgr, ax
NewLine
vvod str1, 09h
WriteInt sgr
endm
vcuba macro sgr
mov ax, sgr
mul reb
mov v, ax
NewLine
vvod str3, 09h
WriteInt v
endm
getch macro
mov ah, 1h
int 21h
endm
codes segment para 'code'
assume cs:codes, ds:codes, ss:codes, es:codes
org 100h
beg: call main
string db 'Vvedite znachenie rebra: $'
str1 db 'Ploshad grani: $'
str3 db 'obiom: $'
r label byte
max db 10
real db ?
text db 10 DUP('$'),'$'
reb dw ? ;число
sgr dw ?
v dw ?
main proc near
vvod string, 09h
vvod r, 0ah
convert text, reb
sgrani reb
vcuba sgr
getch
mov ah, 4ch
int 21h
main endp
codes ends
end beg