Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
rus91
0 / 0 / 0
Регистрация: 17.01.2012
Сообщений: 10
#1

Запустить задачу одномерного массива в Pascal

27.01.2012, 20:09. Просмотров 318. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста запустить задачу в Pascale.
Условия задачи:
В массиве Z[1..11] каждое из чисел уменьшить на минимальное значение.
Минимальное в массиве не изменять.


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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
.386
    .model flat, stdcall[COLOR="Black"][/COLOR]
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc 
    include \masm32\include\masm32.inc
    include \masm32\include\kernel32.inc
    include \masm32\macros\macros.asm
    includelib \masm32\lib\user32.lib 
    includelib \masm32\lib\masm32.lib
    includelib \masm32\lib\kernel32.lib
Bsize equ 11
Bsize2 equ 11
.data
buf db Bsize dup(1,2,3,2,5,6,7,8,9,10,11,"0")
buf2 db Bsize2 dup(?)
SizeLen dd ?
.code
start:
xor eax,eax
xor esi,esi
Call Lenght
next:
cmp esi,SizeLen
jae alter
mov bh,buf[esi]
cmp bh,buf[esi+1]
jae after
inc esi
jmp next
after:
mov bl,buf[esi+1]
inc esi
jmp next
loop next
 
alter:
xor edi,edi
xor esi,esi
cmp bl,0
jnz @1
mov bl,buf[0]
@1:
jmp nxt
nxt:
cmp esi,SizeLen
jae alter2
mov bh,buf[esi]
cmp bh,bl
jz zero
sub bh,bl
mov buf2[edi],bh
inc edi
inc esi
jmp nxt
zero:
mov buf2[edi],bl
inc edi
inc esi
jmp nxt
loop nxt
 
alter2:
invoke ExitProcess,0
 
 
 
Lenght proc
cmp buf[esi],"0"
jnz nzero
mov SizeLen,eax
xor esi,esi
ret
nzero:
inc eax
inc esi
jmp Lenght
Lenght endp
 
end start
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2012, 20:09
Ответы с готовыми решениями:

Перевести задачу с C++ на Pascal
Помогите перевести задачу с C++ на Pascal #include <fstream> using namespace...

вывод на экран случайного одномерного массива,ввод с клавиатуры одномерного массива и вывод его на экран.и все это в одной проге.как это сделать?
надо чтобы при запуске прграммы в паскале сначала вывелся на кран одномерный...

Кто поможет решить задачу на Pascal?
Пишу не от себя, а так как попросили. Дали задание на зачёт. Оценка будет за...

Мне лишь нужно переписать эту задачу из С# на язык Pascal.
private string Programm(string input, string progress) { var result = input;...

Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.
Можете глянуть две задачки на pascale ? 1)Определить сумму элементов, массива...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2012, 20:09

Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива
Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива....

Из одномерного массива C получить массив D,удалив из массива C нечётные и минимальные элементы.
Из одномерного массива C получить массив D,удалив из массива C нечётные и...

Двуменые Массивы.Формирование одномерного массива из двумерного массива по условию
1)В двумерном массиве B найти минимальный элемент среди элементов,расположенных...


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

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

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