08.04.2020, 17:45 [+3 UTC]
в нашей команде: 4 353 чел. | участники онлайн: 9 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.85 (07.04.2020)
JS-v.1.38 | CSS-v.3.37

Общие новости:
28.03.2020, 20:29

Форум:
08.04.2020, 15:18

Последний вопрос:
08.04.2020, 17:10
Всего: 151970

Последний ответ:
08.04.2020, 15:24
Всего: 259943

Последняя рассылка:
08.04.2020, 15:16

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
28.04.2010, 16:19 »
Anjali
Действительно оказались эти вирусы. Всё получилось. [вопрос № 178009, ответ № 260991]
31.08.2012, 15:51 »
Посетитель - 382537
Я оставил этот вариант на чёрный день [вопрос № 186573, ответ № 271461]

РАЗДЕЛ • Assembler

Создание программ на языке Assembler.

[администратор рассылки: Лысков Игорь Витальевич (Старший модератор)]

Лучшие эксперты в этом разделе

Коцюрбенко Алексей Владимирович
Статус: Старший модератор
Рейтинг: 1008
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 118
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 0

Перейти к консультации №:
 

Консультация онлайн # 145302
Раздел: • Assembler
Автор вопроса: Saidart
Отправлена: 28.09.2008, 15:49
Поступило ответов: 1

Здравтсвуйте эксперты! Помогите решить задачу, Дана программма на паскале заменить оператор for ,repeat, while на код ассемблера,!!
Пример!!!!

{1} program test0000;
{2} var
{3} c,d: byte;
{4} k: integer;
{5} A: array [3..10] of integer;
{6}
{7} begin
{8} k:=6;
{9} d:=0;
{10} for c:=3 to 10 do
{11} begin
asm
{12 if k<d then}
mov al,d
xor ah,ah
cmp ax,k
jng @20

{13 d:=d+k}
mov al,byte ptr k
add byte ptr d,al
jmp @30

{14 else d:=k-d;}
@20:
mov al,d
mov dl,byte ptr k
sub dl,al
mov byte ptr d,dl
{15 A[c]:=d;}
@30:
mov al,d
xor ah,ah
mov bl,c
xor bh,bh
shl bx,1
mov word ptr A[bx-6],ax
{16 k:=k+1;}
inc word ptr k
end; {asm}
{17} end;
{18} for c:=3 to 10 do
{19} write (A[c]:4);writeln;
{20} end.
Это уже замененная!
----------------------------
Вот мой вариант:

Приложение:

Состояние: Консультация закрыта

Здравствуйте, Saidart!

В приложении программа с замененными циклами.
Удачи!

Приложение:


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 29.09.2008, 11:54

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 145302
неизвестный

# 1

= общий = | 29.09.2008, 20:23

А чего незамененно условие в котором массив инициализируется??
m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 2

= общий = | 29.09.2008, 20:29 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

В условии, было заменить операторы цикла, но ничего не говорилось о замене самого тела цикла.
Если нужно ещё и тело цикла, сейчас поменяю.

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13503 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.85 от 07.04.2020
Версия JS: 1.38 | Версия CSS: 3.37