Родились сегодня:
Иевлев А.Ю.
Matvey


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

1086

Россия, Северодвинск


ID: 165461

Лангваген Сергей Евгеньевич

Советник

633

Россия, Московская обл.


ID: 401284

Михаил Александров

Академик

508

Россия, Санкт-Петербург


ID: 398750

Елена Васильевна

Специалист

397

Беларусь, Гомель


ID: 137394

Megaloman

Мастер-Эксперт

196

Беларусь, Гомель


ID: 400669

epimkin

Профессионал

162


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

108

Россия, пос. Теплоозёрск, ЕАО


8.2.2

25.02.2021

JS: 2.3.0
CSS: 4.3.14
jQuery: 3.5.1


 

• Assembler

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

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


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

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

Консультация онлайн # 146189
Раздел: • Assembler
Автор вопроса: Saidart
Дата: 06.10.2008, 14:27
Поступило ответов: 1

Здравствуйте Эксперты!! Дана программа на Паскале с заменеными на Ассемблере циклами! Надо заменить еще и тело цикла
m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;
! И на каждую строку написать коментарии,Помогите пожалуйста...

Приложение:

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

Ответ # 231514 от Boriss

Здравствуйте, Saidart!
Так бы сразу и сказали. Ясно теперь, что не нужно нам предлагать для комментирования плохо написанные программы? Мы лучше сможем.
Например так, как в программе, что приложении лежит smile
---
Чтобы все правильно записалось в Паскаль:
1) скопируйте содержимое приложения в карман;
2) откройте среду разработки Паскаля с пустым окном;
3) если развернулось на весь экран, то нажмите Alt+Enter - нужно оконное;
4) нажмите Ctrl+O (O - не ноль а О!!);
5) выберите значок окна ( у меня черное) в самом-самом верхнем левом углу окна Виновского;
6) нажмите левую кнопку мыши и выберите "Изменить - Вставить";
7) опять нажмите Ctrl+O (теперь для того, чтобы включить автомат. отступ).
8) Удачи!!
smile

Приложение:


Консультировал: Boriss
Дата отправки: 08.10.2008, 12:48

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

0

[подробно]

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

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

Мини-форум консультации № 146189
Boriss

1

= общий = |  06.10.2008, 16:36

Что-то не очень понял, какой цикл? Тот, что в комментариях?
Почему такая "каша" в программе? Это Вам дали такое задание - изменить?
Или задание, которое Вы выполняете как-то звучит?

неизвестный

2

= общий = |  08.10.2008, 01:04

Нет то что стоит в скобках коментариев ну например { repeat} замененно ниже... а мне надо заменить еще и
m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;
И все... ну и написать коментарии если можно

Boriss

3

= общий = |  08.10.2008, 11:01

То есть, цикл: i пробегает значения от 13 до 21, и вычисляются значения m = m + i . В зависимости от результата вычисления m нужно изменять значения A[i] ?

неизвестный

4

= общий = |  08.10.2008, 11:48

Ладно давайте сначала!!! Мне дали программу на Паскале вот она!
21. Program test0021;
Var
i,m:integer;
A:array [13..21] of integer;
Begin
m:=0;
i:=21;
repeat
m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;
dec(i)
until i<13;

for i:=13 to 21 do
write(A[i]:4);writeln;
End.

Задание изменить выделеный код кодом ассемблера, и написать коментарии выподнения!!! Мне заменили но не полностью, не заменили фрагмент

m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;

И не написали коментарии, ......

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