IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

> перевод числа в десятичное,вывод на экран и тд
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


в этой проге нужно перменную TotalCount вывести на екран в виде десятичного числа (без процедур, функций, макросов и пр)

data SEGMENT

MyArray DB 1, 2, 3, 1, 2, 3, 1,
TotalCount DB 0
ARRAY_size equ 7



code SEGMENT
ASSUME cs:code, ds:data
begin:

MOV AX, data
MOV DS, ax

lea SI,MyArray
mov bl,[SI+ARRAY_size-1]
mov cx,ARRAY_size

Sloop:
LODSB
cmp al,bl
jne NextChar
inc TotalCount

NextChar:
LOOP Sloop






MOV ax,4c00h
int 21h

code ENDS
end begin

2. В масиве A[m] заменить все нулевые елементи (крщму первого) на значения предыдущего елемента.
масив ввести с клавы и вывести потом на экран, и еще ту же самую задачу сделать с помощью паскаля. Вотя пробовала , но не сложилось....
Uses Crt;
var a:array[1..10] of integer;
m:byte;

begin
ClrScr;
for m:= 1 to 10 do
read(a[m]);


for m:= 1 to 10 do
begin
asm
mov SI,word ptr m
mov ax, word ptr a[SI+1]
cmp ax,0
jnz @No
mov bx,word ptr a[SI]
mov word ptr a[SI+1],bx
@No: mov ax, word ptr a[SI+1]
end;
end;
for m:=1 to 10 do
write(a[m]);
end.


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


rolleyes.gif ....я правда уже это сдала но все равно спасибо...


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 22:46
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name