Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
rus91
0 / 0 / 0
Регистрация: 17.01.2012
Сообщений: 10
#1

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

27.01.2012, 20:09. Просмотров 312. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запустить задачу одномерного массива в Pascal (Pascal):

Перевести задачу с C++ на Pascal - Pascal
Помогите перевести задачу с C++ на Pascal #include <fstream> using namespace std; void culc (int, int, int); struct rec { ...

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

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

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

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

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

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

Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива - Pascal
Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива. Не пойму как делать.

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

Построение нового массива, содержащего элементы заданного одномерного массива в инвертированном порядке - Pascal
Написать программу построения нового массива, содержащего элементы заданного одномерного массива в инвертированном порядке (первый -...

Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива - Pascal
Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива


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

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

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