Дана длина ребра куба. Найти площадь полной поверхности этого куба.
Ввести с клавиатуры натуральное число. Найти сумму его первой и последней цифры и вывести на экран. Выполните трассировку программы. | Напишите программу, запрашивающую у оператора строку, а затем выводящую каждое слово в отдельной строке. Выполните трассировку программы. | Ввести с клавиатуры натуральное число. Поменять порядок следования цифр в числе и вывести на экран. | C0 - Нижний левый угол B3 - Вертикальная линия | Дополните программу. При верном вводе пароля он появляется на экране через временную задержку разного цвета. | Дополните программу. Введите строку текста и выведите его по буквам в режиме телетайпа разными по цвету буквами. | Введите две строки. В случае если они одинаковые. Выводится сообщение о том что строки совпали, в противном случае выводится сообщение, о том что строки не совпадают. | Напишите программу, которая получает строку и слово. С помощью макроса определить входит ли данное слово в строку. | Напишите программу, в которой вводятся целые числа а, b. Напишите макрокоманду определения min. | Напишите программу, в которой вводятся целые числа c, d. Напишите макрокоманду определения max. |
Читайте также:
- C. Человек сделал что-то из этого по своей воле.
- Cравнение отопительных систем среднеутепленного здания площадью 400 м2 (ориентировочно, 2009 год) в зависимости от вида топлива.
- E)& суд продолжает рассмотрение этого заявления
- Oslash; Площадь боковой поверхности
- А те, которые творили злые деяния, потом после них раскаялись и уверовали, - поистине, твой Господь после этого - Прощающий, Милостивый!
- А те, которые творили злые деяния, потом после них раскаялись и уверовали, - поистине, твой Господь после этого - Прощающий, Милостивый!
- Абстрагируясь на данном этапе от этого многообразия и имея в виду
|
|
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
Дата добавления: 2015-08-17; просмотров: 179 | Нарушение авторских прав
mybiblioteka.su - 2015-2024 год. (0.007 сек.)
