Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler, MASM, TASM
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
qliqli
0 / 0 / 1
Регистрация: 16.11.2009
Сообщений: 39
1

В массиве А[1..N] определить максимальное значение. Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массив

28.10.2010, 00:03. Просмотров 1784. Ответов 3
Метки нет (Все метки)

Составил код, но не работает зараза((
(ассемблер у нас встроенный в паскаль)
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,max,d:integer;
begin
clrscr; randomize;
for i:=1 to n do
begin a[i]:=random(200);
write(a[i],' ');
end;
max:=0;d:=0;
asm
lea si,a
mov cx,n-1
mov dx,0
mov bx,[si]
mov di,si
 @1:    mov ax,[si]
        add si,2
        inc dx
        cmp ax,[si]
        jge @2
        mov di,si
        mov d,dx
 @2:    loop @1
 
        mov ax,[di]
        mov max,ax
 
        lea si,a
        mov cx,d
 @3:    mov ax,[si]
        add ax,bx
        mov [si],ax
        add si,2
        loop @3
 
        add di,2
 @4:    mov si,di
        mov cx,n-1
        mov p,0
 @5:    mov cx,[si]
        cmp ax,[si+2]
        jge @6
        mov dx,[si+2]
        mov [si+2],ax
        mov [si],dx
        mov p,1
 @6:    add si,2
        loop @5
        cmp p,0
        jne @4
 end;
 writeln;
 for i:=1 to n do
 write(a[i],' ');
 writeln;
 writeln('max=',max);
 readkey;
 end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2010, 00:03
Ответы с готовыми решениями:

Числа, большие среднего арифметического, заменить на первое значение в массиве
может быть я немножко не туда, но вот в чем дело, у меня дана задача на...

Заменить в одномерном массиве нулевые элементы на значение минимального элемента
Заменить в одномерном массиве нулевые элементы на значение минимального...

Определить среднее арифметическое четных чисел, находящихся после максимального значения в массиве
Дорогие друщья помогите пожалуйста нужно задачу написать в паскале с командами...

Массив: Все отрицательные элементы увеличить на значение максимального элемента
Составить программу обработки одномерного массива. Доступ к элементам массива...

В заданном одномерном массиве найти максимальное и минимально значение и обнулить все значения между ними
Здравствуйте, у меня такая проблема. Дан одномерный массив из рандомных чисел,...

3
airyashov
68 / 73 / 0
Регистрация: 15.12.2008
Сообщений: 302
28.10.2010, 08:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,max,d:integer;
begin
clrscr; randomize;
for i:=1 to n do
begin a[i]:=random(200);
write(a[i]:4,' ');
end;
max:=0;d:=0;
asm
lea si,a
mov cx,n-1
mov dx,0
mov bx,[si]
mov di,si
 
 
 @1:    mov ax,[di]
        add si,2
        inc dx
        cmp ax,[si]
        jge @2
        mov di,si
        mov d,dx
 @2:    loop @1
 
        mov ax,[di]
        mov max,ax
 
        lea si,a
        mov cx,d
 
        jcxz @cxzr
 
 @3:    mov ax,[si]
        add ax,bx
        mov [si],ax
        add si,2
        loop @3
 @cxzr:
{        add di,2
 @4:    mov si,di
        mov cx,n-1
        mov p,0
 @5:    mov cx,[si]
        cmp ax,[si+2]
        jge @6
        mov dx,[si+2]
        mov [si+2],ax
        mov [si],dx
        mov p,1
 @6:    add si,2
        loop @5
        cmp p,0
        jne @4}
 end;
 writeln;
 for i:=1 to n do
 write(a[i]:4,' ');
 writeln;
 writeln('max=',max);
  writeln('d=',d);
 readkey;
 end.
1
vital792
2003 / 1275 / 60
Регистрация: 05.06.2010
Сообщений: 2,213
28.10.2010, 08:50 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,max,d:integer;
begin
clrscr; randomize;
for i:=1 to n do
begin a[i]:=random(200);
write(a[i],' ');
end;
asm
    lea si,a
    mov cx,n-1
    mov dx,[si]
    mov max, dx
 @1:    lodsw
    cmp ax,max
    jbe @2
    mov max, ax
    mov bx, si
 @2:     loop @1
    lea si,a
    sub bx, 2
 @3:     add [si], dx
    add si,2
    cmp si, bx
    jb @3
 end;
 writeln;
 for i:=1 to n do
 write(a[i],' ');
 writeln;
 writeln('max=',max);
 readkey;
 end.
1
qliqli
0 / 0 / 1
Регистрация: 16.11.2009
Сообщений: 39
29.10.2010, 00:12  [ТС] 4
В массиве А[1..N] определить максимальное значение. Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение масива, а все числа, расположенные после максимального,рассортировать по убыванию.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2010, 00:12

В исходном массиве найти и поменять местами первое минимальное и последнее максимальное значение))
А-исходный массив ( 5;-8;6;-7;-8;6;-8;6;4) ...

Найти в массиве положительные элементы и увеличить их значение на 1
Создать и вывести массив У(8), с элементами {y}_{k}=\ln (k)-3k где k=1,2 ...

в массиве А [n] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента.
в массиве А отрицательные элементы заменить на значение максимального...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru