Последние записи
- Рандомное слайдшоу
- Событие для произвольной области внутри TImage
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
20th
Фев
Assembler, работа с строкой
Posted by obzor under assembler
Составить программу, которая вводит случайный текст, который заканчивается точкой. Вывести True, если а встречается реже чем b. Иначе, вывести False.
На тебе халявный вариант на FASM’e:
org 100h
jmp start
mess0 db 13,10,'ENTER TEXT: $'
mess1 db 13,10,'<==== TRUE $'
mess2 db 13,10,'<=== FALSE $'
start:
mov ax,3 ; CLS и видео/режим 80х25/16
int 10h ;
mov ah,9 ; запрос на ввод строки
mov dx,mess0 ;
int 21h ;
xor bx,bx ; сброс счётчика: BL='a', BH='b'
@@: ; <----------------------------<<----+
mov ah,1 ; ввод символа с эхом |
int 21h ; |
cmp al,'.' ; это точка? |
je next ; да - заканчиваем ввод |
cmp al,'a' ; "а" ? |
je @10 ; переход на метку |
cmp al,'b' ; "b" ? |
je @20 ; |
jmp @b ; --->------------>>----+------>>----+
@10: ; встретилась "а" |
inc bl ; счётчик +1 |
jmp @b ; --->------------->>---+
@20: ; встретилась "b" |
inc bh ; счётчик +1 |
jmp @b ; --->------------->>---+
next: ;
cmp bh,bl ; сравниваем счётчики
jb fls ; переход, если BH < BL
jz start ; если равно - начинаем ввод сначала..
mov dx,mess1 ; мессага TRUE
jmp print ;
fls: ;
mov dx,mess2 ; мессага FALSE
print: ;
mov ah,9 ; функция 09h DOS
int 21h ; выводим результат на экран!
exit: ;
xor ax,ax ; ждём любую клавишу..
int 16h ;
int 20h ; выход!
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)