Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Дополните программу. При верном вводе пароля он появляется на экране через временную задержку разного цвета.

Напишите программу, запрашивающую у оператора строку, а затем выводящую ее на экран. Выполните трассировку программы. | Ввести с клавиатуры натуральное число. Найти сумму его первой и последней цифры и вывести на экран. Выполните трассировку программы. | Напишите программу, запрашивающую у оператора строку, а затем выводящую каждое слово в отдельной строке. Выполните трассировку программы. | Ввести с клавиатуры натуральное число. Поменять порядок следования цифр в числе и вывести на экран. | Введите две строки. В случае если они одинаковые. Выводится сообщение о том что строки совпали, в противном случае выводится сообщение, о том что строки не совпадают. | Напишите программу, которая получает строку и слово. С помощью макроса определить входит ли данное слово в строку. | Напишите программу, в которой вводятся целые числа а, b. Напишите макрокоманду определения min. | Напишите программу, в которой вводятся целые числа c, d. Напишите макрокоманду определения max. | Ввести с клавиатуры натуральное число. Проверить будут ли его цифры все различны. Вывести на экран сообщение. Преобразование строки в число производить в макрокоманде. | Дана длина ребра куба. Найти площадь полной поверхности этого куба. |


Читайте также:
  1. Creating optional variables Создание дополнительных переменных
  2. II. Информация о платных дополнительных образовательных услугах.
  3. P.S. Вот так через много лет Юткевич расписался на стене моего кабинета
  4. Quot;Ожидаю поезд N … и вслед за ним через… мин можете отправить поезд N …..до _____ км с возвращением обратно".
  5. V 7. Правовые основы перемещения товаров и транспортных средств международных перевозок через границу Таможенного союза.
  6. VI. Список дополнительной литературы.
  7. VIII. Дополнительная информация

codesg segment para 'code'

assume cs:codesg, ds:codesg, ss:codesg, es:codesg

org 100h

begin: jmp main

 

main proc near

call clear_scrin

; вывод сообщения на экран

mov row,09

mov col,10

lea bp, [message]; адрес строки

mov cx, 15;длина строки

call write_string

 

;Cмещение курсора на конец выведеного сообщения

add col, 18

lea si, cout

wr:

; Установка позиции курсора

mov ah, 02h

mov bh, 00

mov dl, col

int 10h

;ожидание ввода с клавиатуры без эхоотображения

mov ah, 00h

int 16h

cmp al, 0dh; конец ввода «Enter»

je wr1

; Введенный символ из al записывается в строку cout

mov [si], al

inc si

; выводится на экран в текущую позицию курсора символ '*'

mov ah, 09

mov al, '*'

mov bh, 00

mov cx, 1

int 10h

inc col

inc coun

cmp coun, 5;вводится только 5 символов

jne wr;повторяем ввод символа

 

lea si, parol

lea bp, [cout]

wr1:

mov ah, [si]

mov al, [bp]

cmp ah, al

jne q;выход из программы

cmp cl, coun

je wr2

inc si

inc bp

inc cl

jmp wr1

 

;выход из программы

MOV ah, 8h

int 21h

 

q:

call clear_scrin

mov ah, 13h;установка курсора

mov bh, 0

mov bl, 12

mov dh, 6

mov dl, 6

lea bp, mess1

mov cl, 10

mov ch, 0

mov al, 1

int 10h

ret

 

wr2:

call ok

main endp

 

;вывод на экран сообщения о правильном вводе пароля

ok proc near

call clear_scrin

k:

lea bp,[mess];адрес строки

mov cl, 5

call write_hello

jmp k

ret

ok endp

 

clear_scrin proc near

; Очистка экрана

mov ax, 0600h; ah=06-прокрутка экрана

; al=00-весь экран

mov bh, 07

mov cx, 0000

mov dx, 184fh

int 10h

ret

clear_scrin endp

 

write_string proc near

 

mov ah, 13h

mov al,1

mov bh, 00; номер видео страницы

mov bl, 12

mov dh, 6;координаты по строке

mov dl, 6;координаты по столбцу

int 10h

ret

write_string endp

 

write_hello proc near

 

mov ah, 13h

mov al,1

mov bh, 00;номер видео страницы

call cveta

mov dh, 6;координаты по строке

mov dl, 6;координаты по столбцу

int 10h

ret

write_hello endp

 

cveta proc near

inc bl

cmp bl, 0eh

jb m1

mov bl, 02h

m1: ret

cveta endp

 

message db 'Vvedite parol: '

mess db 'hello'

mess1 db 'Vi owiblis!'

str1 label byte

row db 00

col db 00

cout db 6 dup (' ')

parol db 'hello'

count db?

coun db 0

codesg ends

end begin

 


Дата добавления: 2015-08-17; просмотров: 77 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
C0 - Нижний левый угол B3 - Вертикальная линия| Дополните программу. Введите строку текста и выведите его по буквам в режиме телетайпа разными по цвету буквами.

mybiblioteka.su - 2015-2024 год. (0.008 сек.)