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

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

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

 
 Ответить  Открыть новую тему 
> блок схема и алгоритм программы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: Евгений

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


Народ помогите составить блок схему и алгоритм программы

program MinMax;
var
a: array[1..10] of Integer;
i, Min, Max: Integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := 1+Random(100);
Write(a[i], ' ');
end;
Writeln;

asm
lea si,a {Загрузка эффективного адреса а память }
lodsw {Записываем в регистр АХ содержимое слова памяти}
mov bx,ax {В регистр bx помещается регистр ax }
mov dx,ax {В регистр dx помещается регистр ax }
mov cx,9 {В регистр cx помещается кол-во 9 натуральных чисел}
@1:
lodsw
cmp ax,bx {Сравниваем два операнда ax и bx}
jge @2 { переход знаковых чисел, если первый операнд больше либо равен второго}
mov bx,ax {В регистр bx помещается регистр ax }
@2:
cmp ax,dx {Сравниваем два операнда ax и dx}
jle @3 { переход знаковых чисел, если первый операнд меньше либо равен второго}
mov dx,ax {В регистр dx помещается регистр ax }
@3:
loop @1
mov Min,bx {В Min помещается регистр bx }
mov Max,dx{В Max помещается регистр dx}
end;

Writeln('Min = ', Min);
Writeln('Max = ', Max);

end.


Сам сидел составлял не знаю правильно или нет dry.gif

DOC-файл удален. Читаем правила...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 23.10.2017 0:29
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"