Ввести массив с клавиатуры. В полученном массиве найти минимальный элемент. Вывести его на экран

[ok57]

Помогите решить задачу в программе MS Dos.

Задача:
Ввести массив с клавиатуры. В полученном массиве найти минимальный элемент. Вывести его на экран

[ok57]

Ребят, ну срочно нужна помощь...

[Rififi]

Видимо, под "помощью" ты подразумеваешь чтобы кто-то сделал задание за тебя, а впрягаться за очередного студня чё-та лень, вот всё тебя и игнорят...

[Serge_Bliznykov]

Помогите решить задачу в программе MS Dos.

не хочу Вас расстраивать, но "программа MS DOS" - это операционная система.
Вам, по всей видимости (исходя из выбранного Вами раздела) нужна программа на языке Ассемблера под MS DOS.

Но это всё мелочи.
По сути, Rififi прав, подобная задача (кстати, после уточнения деталей) займёт явно больше 10=15 минут.
Возможно, Вам повезёт и кто-то выложит имеющийся у него готовый код.
Если же, то Вам или придётся писать программу самостоятельно или обращаться к фрилансерам (оплачивать чужой труд).

Успехов в учёбе.

[ok57]

Сообщение от Serge_Bliznykov

не хочу Вас расстраивать, но "программа MS DOS" - это операционная система.
Вам, по всей видимости (исходя из выбранного Вами раздела) нужна программа на языке Ассемблера под MS DOS.

Но это всё мелочи.
По сути, Rififi прав, подобная задача (кстати, после уточнения деталей) займёт явно больше 10=15 минут.
Возможно, Вам повезёт и кто-то выложит имеющийся у него готовый код.
Если же, то Вам или придётся писать программу самостоятельно или обращаться к фрилансерам (оплачивать чужой труд).

Успехов в учёбе.

Посоветуйте к кому обратиться хоть, даже за деньги. MS Dos я имел в виду не систему, а консоль такую, где компилировать через TASM tlink ну и т.д. Думаю понятнее так объяснил.. И какие нужно детали в ней уточнить, это же полное условие.

[Serge_Bliznykov]

Посоветуйте к кому обратиться хоть, даже за деньги.

а раздел фриланс. А можете полистать тут, в разделе Ассемблер несколько тем, посмотрите, кто тут отписывается с ответами, попробуйте с ними связаться напрямую...

MS Dos я имел в виду не систему, а консоль такую, где компилировать через TASM tlink ну и т.д. Думаю понятнее так объяснил.

да. так лучше

И какие нужно детали в ней уточнить, это же полное условие.

понимаете, в чём сложность то..
так не ясно, о каком массиве идёт речь: ни его размерность, ни тип элементов.
Даже в языке высокого уровня потребуется понять, из каких элементов массив состоит (целые или дробные, сколько байт занимают) (чтобы его правильно декларировать), а уж на Ассемблере и подавно!
Если это никак не оговорено, то тогда Вы, как разработчик, вправе самостоятельно вводить ограничения. я бы ограничился целыми положительными числами (можно однобайтовыми, можно двухбайтовыми) и размерность массива жестко прописал прямо в коде (ну, например, пользователь вводит массив из 10 элементов).

ну а так, задачка, по сути своей, не очень сложная, у Вас наверняка есть какие-то методические указания, лабы, лекции, теория, примеры решения. По лекциям по аналогии состряпать - дело не такое уж и сложное! Да и Вам же на пользу пойдёт.
Если будете заказывать, учтите, что сумма, скорее всего будет трёхзначная (если в рублях )

[ok57]

Сообщение от Serge_Bliznykov

понимаете, в чём сложность то..
так не ясно, о каком массиве идёт речь: ни его размерность, ни тип элементов.
Даже в языке высокого уровня потребуется понять, из каких элементов массив состоит (целые или дробные, сколько байт занимают) (чтобы его правильно декларировать), а уж на Ассемблере и подавно!
Если это никак не оговорено, то тогда Вы, как разработчик, вправе самостоятельно вводить ограничения. я бы ограничился целыми положительными числами (можно однобайтовыми, можно двухбайтовыми) и размерность массива жестко прописал прямо в коде (ну, например, пользователь вводит массив из 10 элементов).

ну а так, задачка, по сути своей, не очень сложная, у Вас наверняка есть какие-то методические указания, лабы, лекции, теория, примеры решения. По лекциям по аналогии состряпать - дело не такое уж и сложное! Да и Вам же на пользу пойдёт.
Если будете заказывать, учтите, что сумма, скорее всего будет трёхзначная (если в рублях )

Ды вот, была бы хоть подобная.. На паскале проще решить, ну асемблер это что-то. Сергей, ну помоги пожалуйста решить с любыми числами в массиве, какими хочешь, главное чтобы работала, например ввести допустим 3 числа и из них выбрать минимальное и вывести его. Ты же понимаешь в этом, может даже подобные у вас есть, ну реально очень нужна, ума не дам с ней. Да и единственная задача, больше не напишу...

[Serge_Bliznykov]

ну, Вы напрасно думаете, что для меня это просто и очевидно.

ладно. в качестве разминки для мозгов я потратил своё время, сделал кое-что.
НО!
дальше Вы уж или сами или как-то заинтересуйте меня

; Пример: Задан массив. Вывести на экран минимальный элемент массива.

data segment     
                mas db 52, 22, 70, 38, 29, 90, 21, 40, 50, 60          ;исходный массив
                len dw $-mas    ;размер массива в байтах
data ends        
                 
code segment     
start:   
        assume cs:code, ds: data         
        mov ax, data     
        mov ds, ax       
                 
        lea bx, mas     ;берём в bx адрес первого элемента
        mov cx, len     ;счетчик цикла
        
        mov ah, 0
        mov al, [bx]
              
Next:   cmp al, [bx]    ; сравниваем мин. число с очередным элементом массива
        jl  noMin
        mov al, [bx]
noMin:
        inc bx  ;переходим к следующему элементу
        loop Next
                 
        aam     ;преобразуем сумму в BCD-код
        add ax, 3030h   ;затем в ASCII-код
        mov bx, ax      ;и выводим
        mov ah, 02       
        mov dl, bh       
        int 21h          
        mov dl, bl       
        int 21h          
                 
        mov ax, 4c00h    
        int 21h          
code ends        
end start

в приложенном архиве данная программа exmp_min.asm + откомпилённый exe-шник exmp_min.exe

теперь по поводу ввода массива с клавиатуры.
Это достаточно замороченно. Мне сейчас некогда и неинтересно этим заниматься. В архив я вложил программу cal_bin.asm - оттуда можете выцепить процедуры

convertStrToInt proc near ;Процедура преобразования строки в int, результат в dl

convertIntToStr proc near ;Процедура преобразования int в ASCII, преобразуемое число в AX,

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

Успехов.

[ok57]

Сообщение от Serge_Bliznykov

ну, Вы напрасно думаете, что для меня это просто и очевидно.

ладно. в качестве разминки для мозгов я потратил своё время, сделал кое-что.
НО!
дальше Вы уж или сами или как-то заинтересуйте меня

; Пример: Задан массив. Вывести на экран минимальный элемент массива.

data segment     
                mas db 52, 22, 70, 38, 29, 90, 21, 40, 50, 60          ;исходный массив
                len dw $-mas    ;размер массива в байтах
data ends        
                 
code segment     
start:   
        assume cs:code, ds: data         
        mov ax, data     
        mov ds, ax       
                 
        lea bx, mas     ;берём в bx адрес первого элемента
        mov cx, len     ;счетчик цикла
        
        mov ah, 0
        mov al, [bx]
              
Next:   cmp al, [bx]    ; сравниваем мин. число с очередным элементом массива
        jl  noMin
        mov al, [bx]
noMin:
        inc bx  ;переходим к следующему элементу
        loop Next
                 
        aam     ;преобразуем сумму в BCD-код
        add ax, 3030h   ;затем в ASCII-код
        mov bx, ax      ;и выводим
        mov ah, 02       
        mov dl, bh       
        int 21h          
        mov dl, bl       
        int 21h          
                 
        mov ax, 4c00h    
        int 21h          
code ends        
end start

в приложенном архиве данная программа exmp_min.asm + откомпилённый exe-шник exmp_min.exe

теперь по поводу ввода массива с клавиатуры.
Это достаточно замороченно. Мне сейчас некогда и неинтересно этим заниматься. В архив я вложил программу cal_bin.asm - оттуда можете выцепить процедуры

convertStrToInt proc near ;Процедура преобразования строки в int, результат в dl

convertIntToStr proc near ;Процедура преобразования int в ASCII, преобразуемое число в AX,

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

Успехов.

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

Вот условие решённой программы:
Ввести массив двузначных чисел. Найти и вывести наибольшее из них.

Вот её решение:

s_s segment stack "stack"
	dw 12 dup(?)
s_s ends

d_s segment
x db 12 dup(?),0ah,0dh,"$"
y db 12 dup(?),0ah,0dh,"$" 
d_s ends

c_s segment
	assume ss:s_s,ds:d_s,cs:c_s
begin:
	mov ax,d_s
	mov ds,ax
	mov si,0
L1:	mov ah,01h
	int 21h
	cmp al,13d
	je L3
	mov x[si],al
	sub x[si],30h
	add bl,x[si]
	add x[si],30h
	inc si
	jmp L1
L3:	
	
	mov ah,9h
	lea dx,x
	int 21h
	mov ah,9h
	lea dx,y
	int 21h
	mov dl,bl
L7:	cmp dl,9h
	jng L4
	cmp dl,15
	jng L6
	mov bl,dl
	and bl,00001111b
	shr dl,4
	add dl,30h
	mov ah,02h
	int 21h
	mov dl,bl
	jmp L7
	mov dl,bl
	mov ah,02
	jmp L5	
L6:	add dl,37h
	jmp L5
L4:	add dl,30h
L5:	mov ah,02
	int 21h
	
	mov ah,4ch
	int 21h
	int 20h
c_s ends
end begin

Как видите код немного другой, или тоже на тоже получается? Просто как сейчас помню вводить числа там не нужно никаких дополнительных функций и т.п. Заранее спасибо.

[Mikl___]

Сообщение от ok57

Сергей, спасибо что уделили время, но вот не пойму...

ok57,
читай внимательно

Сообщение от Serge_Bliznykov

дальше Вы уж или сами или как-то заинтересуйте меня