Консультация № 193728
19.10.2018, 11:35
0.00 руб.
0 3 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Дан текст. Выяснить, является ли он десятичной записью целого числа.

Обсуждение

давно
Старший Модератор
31795
6196
20.10.2018, 12:24
общий
это ответ
Здравствуйте, dorish24!

Код ниже, TASM, com:
[code lang=asm]model tiny
.code
org 100h
begin: mov ah,9
lea dx,dbMess
int 21h
mov ah,10
lea dx,dbMax
int 21h
xor cx,cx
lea si,dbStr
mov cl,dbLen
lea dx,dbFalse
@@01: lodsb
sub al,'0'
cmp al,9
ja @@02
loop @@01
lea dx,dbTrue
@@02: mov ah,9
int 21h
xor ax,ax
int 16h
ret
dbTrue db 10,13,'true$'
dbFalse db 10,13,'false$'
dbMess db 10,13,'Enter string:$'
szStr equ 200
dbMax db szStr
dbLen db ?
dbStr db szStr dup(?)
end begin[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Посетитель
402359
2
20.10.2018, 15:52
общий
Спасибо!
давно
Посетитель
402359
2
20.10.2018, 15:55
общий
Форма ответа