Вопрос № 87.277

Подскажите, пожалуйста, как создать файл - телефонный справочник (номер и имя), а затем записать в новый файл фамилии абонентов с номером АТС (первые три цифры номера), который встречается чаще всего.

Отправлен: 17.05.2007, 07:26 Вопрос задал: Dalex (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Dalex! Могу предложить идеи, как я бы делал. 1) Определиться с форматом файла. Удобнее всего сделать фиксированный размер записи. Например, 24 байта имени абонента (вместе с завершающим нулем) и, допустим, 8 байт под строку с номером. Можно добавить еще адрес абонента. Удобно, когда в сумме - степень двойки (у нас 32) - легше считать адрес по номеру записи. 2)Осталось только последовательно записать в нашу базу все записи в нужном формате. Для удобства в программе можно описать запись структурой. 3)Когда база создана, осталось решить вторую задачу: Решается в два этапа а)Ищем количество всех абонентов по АТС Для этого строим в памяти массив структур формата (АТС не много, можно задать максимальное количество, допустим 100). str dd ? ;так удобнее сравнивать - читаем в EAX двойное слово по адресу номера и обнуляем старший байт cnt dd ? ;количество Если встречается новый номер АТС, то добавляем новую структуру, не забывая увеличить счетчик структур. Пробегаем базу и строим количества б)Осталось найти максимальное количество и еще раз пробежав по базе, сравнив еще раз номера, сформировать требуемый файлик (возможно в другом формате, например, в обычном текстовом, с запятыми и с завершающими 0d0ah) --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 17.05.2007, 10:37 Оценка за ответ: 4

Вопрос № 87.321

Уважаемые эксперты. Вопрос в следующем: при получение сообщения .if uMsg==WM_SOKET mov eax,lParam .if ax==FD_CLOSE mov eax,wParam invoke closesocket,eax .endif .endif Как узнать IP-адрес, отсоединившегося сокета? Догадываюсь, что нужно привязаться к структуре сокета, но как? Нигде не могу найти. Буду премного благодарен.

Отправлен: 17.05.2007, 12:28 Вопрос задал: Каберле Андрей Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Каберле Андрей Иванович! Не пробывал перед closesocket спросить invoke getsockname, wParam, &sockaddr, &lensockaddr ? --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 17.05.2007, 12:49

Вопрос № 87.345

Здраствуте! у меня проблема с текстовым режимом (80*25) и мультипликативным датчиком случайных чисел, проблема заключается в реализации, в общем программа должна заполнять экран белым цветом, путем перемещения одного знакоместа случайным образом в 1 из 4х (начальный символ получает код 0 и атрибут 0) окружающих его мест, соответственно случайность обеспечивается мультипликативным датчиком случайных чисел в принципе как реализовать датчик я более менее разобрался(хотя работоспособность оно не проявляет), но как заставить это одно знакоместо перемещаться, по значениям, полученным в самом датчике, закрашивая те места в которых он побывал

Отправлен: 17.05.2007, 15:37 Вопрос задал: Макс (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Макс! Смотрите приложение. Я использовал команду NOT, чтобы видеть как работает программа. Удачи! Приложение: MASM;IDEAL or MASM MODEL small stack 150 one_atribut equ 27;сисий фон,желтый курсор two_atribut equ 72 DATASEG ;константы для генератора const_rnd dd 69621 last_rnd dd ? mask_rnd dd 7fffh CODESEG start: mov ax,@DATA mov ds,ax ;чистим экран mov ax,0600h mov bh,one_atribut xor cx,cx mov dx,1950h int 10h ;запускаем генератор call randomize ;и устанавливаем начальное положение add ax,dx and ax,0ffeh mov di,ax ;готовимся писать прямо в ввидео буфер mov ax,0b800h mov es,ax mov cx,0fff0h;65520 раз ;берем случайное число go_out: call random ;начинаем выбтрать направление push cx mov dx,160;строка вверх или вниз ;из случайного числа берем кол-во сдвигов mov cl,ah and cl,0fh rcr ax,cl ;если флаг сброшен то будем работать в строке jc move_up mov dx,2;в строке вправо или влево ;из случайного числа берем кол-во сдвигов move_up: mov cl,ah and cl,0fh rcr ax,cl ;если флаг сброшен меняем знак для вверх или влево jc move_next not dx inc dx ;вычисляем адрес в видео буфере move_next: add di,dx and di,0fffh ;из случайного числа берем кол-во сдвигов mov cl,ah and cl,0fh rcr ax,cl ;работаем с видео буфером mov ax,es:[di] ;тут можно использовать команды xor или mov ;с тем аттрибутом цвета который нужен not ah; mov es:[di],ax ;если флаг сброшен перезапускаем генератор jc next call randomize ;вызываем паузу next: mov bl,0fh;будем вызывать паузу 16 раз call pause ;цикл вывода pop cx loop go_out ;выход в дос mov ah,4ch int 21h ;пауза вызывает сама себя несколько раз pause: push cx mov cx,30000 or bl,bl jz pause_skip dec bl call pause pause_skip: loop pause_skip pop cx ret .386 ;генератор "случайных" чисел randomize: push es mov ax,040h mov es,ax mov eax,es:[06ch] pop es mov last_rnd,eax random: mov eax,last_rnd mul dword ptr const_rnd div dword ptr mask_rnd mov last_rnd,eax ret end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 18.05.2007, 17:32 Оценка за ответ: 5

Вопрос № 87.390

люди помогите плиз с лабой. Необходимо ввести матрицу 4 на 3, затем нади кол-во чисел, находящихся в промежутке между 2 заданными с клавы числами. и Вот мой код, но я где-то намудрил с регистром cx. Укажите, пожалуйста, где моя ошибка, и как можно было б сделать лучше. Приложение: model small .stack 100h .data prigl1 db 10,13, 'Vvedite massiv$' prigl2 db 10,13, 'Vvedite chislo $' vyv db 10,13, 'Kolichestvo: $' kol db 0 mas db 4 dup(3 dup (?)) newln db 10,13, '$' .code start: mov ax, @data mov ds, ax lea dx, prigl1 mov ah, 9h int 21h mov bx, 0 mov cx, 4 n_ln3: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str3: mov ah, 1h int 21h sub al, 30h mov mas [bx][si], al inc si loop str3 pop cx add bx, 3 loop n_ln3 mov bx, 0 mov cx, 4 n_ln2: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str2: mov dl, mas [bx][si] add dl, 30h mov ah, 2h int 21h mov dl, 9h int 21h inc si loop str2 pop cx add bx, 3 loop n_ln2 mov bx, 0 mov si, 1 mov al, mas [bx][si] mov cx, 4 n_ln: push cx mov cx, 0 mov si, 0 n_el: mov dl, al lea dx, prigl2 mov ah, 9h int 21h mov ah, 1h int 21h cmp dl, al jb exit lea dx, prigl2 mov ah, 9h int 21h mov ah, 1h int 21h cmp dl, al ja exit inc kol exit: inc si loop n_el pop cx add bx, 3 loop n_ln lea dx, vyv mov ah, 9h int 21h add kol, 30h mov dl, kol mov ah, 2h int 21h mov ah, 4Ch int 21h end start

Отправлен: 17.05.2007, 19:26 Вопрос задал: Beerb0x (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Beerb0x! Приятно помогать, когда человек сам пытается что-то сделать! Ввод чисел и вывод их на экран правильный. Разве что, почему числа - однознаковые? Если так надо, то все нормально. Если нет, то надо будет переделать, например, на ввод четырех строк, каждая с тремя числами, разделенными пробелами. После ввода строки преобразовать в три числа. А вот дальше слегка намутил...Посмотри, как я сделал. И вывод суммы чуток поменял. Опять же работа ведется как с однознаковым числом. А если сумма будет, к примеру, 10 (чисел же 12!)? Что тогда? А вообще, молодец, когда сам делаешь, оно лучше доходит! Так держать! Приложение: model small .stack 100h .data prigl1 db 10,13, 'Vvedite massiv$' prigl2 db 10,13, 'Vvedite chislo $' vyv db 10,13, 'Kolichestvo: $' kol db 0 mas db 4 dup(3 dup (?)) newln db 10,13, '$' .code start: mov ax, @data mov ds, ax lea dx, prigl1 mov ah, 9h int 21h mov bx, 0 mov cx, 4 n_ln3: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str3: mov ah, 1h int 21h sub al, 30h mov mas [bx][si], al inc si loop str3 pop cx add bx, 3 loop n_ln3 mov bx, 0 mov cx, 4 n_ln2: mov si, 0 push cx mov cx, 3 lea dx, newln mov ah, 9h int 21h str2: mov dl, mas [bx][si] add dl, 30h mov ah, 2h int 21h mov dl, 9h int 21h inc si loop str2 pop cx add bx, 3 loop n_ln2 lea dx, prigl2 mov ah, 9h int 21h mov ah, 1h int 21h mov bl,al ;min lea dx, prigl2 mov ah, 9h int 21h mov ah, 1h int 21h mov ah,al ;max mov al,bl sub ax,3030h mov bx, 0 mov cx, 4 n_ln1: mov si, 0 push cx mov cx, 3 str1: cmp mas[bx][si],al jbe next cmp mas[bx][si],ah jae next inc kol next: inc si loop str1 pop cx add bx, 3 loop n_ln1 lea dx, vyv mov ah, 9h int 21h mov al,kol aam ;преобразует число 0-0fh в десятичное неупакованное cmp ah,0 je lowbyte ;если число меньше 10 push ax ; сохраним al mov dl,ah or dl,30h mov ah, 2h int 21h pop ax lowbyte: mov dl,al or dl,30h mov ah, 2h int 21h mov ah, 4Ch int 21h end start --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 17.05.2007, 20:44

Вопрос № 87.407

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

Отправлен: 17.05.2007, 20:46 Вопрос задал: Ketor (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ketor! Смотрите приложение! Нет проверки на знак. Удачи! Приложение: MODEL small stack 150 .186 DATASEG num_size equ 10 dataArray dw num_size dup(?) error_input db 13,10,'very big number please input again',13,10,'$' mess_big db 13,10,'maximum:$' mess_low db 13,10,'minimum:$' mess_one db 13,10,'quotient:$' mess_two db 13,10,'remainder:$' CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;потготовка к вводу mov cx,num_size mov di,offset dataArray cld ;ввод одного числа input_Loop: push cx xor dx,dx mov [di],dx mov al,':' int 29h ;вводим цифру input_numb: mov ah,07h int 21h ;проверяем ввод cmp al,13 jz input_stop ;проверяем введеную цифру только от 0 до 9 остальное игнорируем cmp al,'0' jl input_numb cmp al,'9' jg input_numb ;выводим цифру push ax int 29h ;формируем число mov ax,[di] mov bx,10 mul bx pop bx ;пока dx=0 число в пределах or dx,dx jnz input_error and bx,0fh add ax,bx mov [di],ax jmp short input_numb ;вывод сообщения об ошибке input_error: mov ah,9 mov dx,offset error_input int 21h ;ввод снова pop cx jmp short input_Loop input_stop: inc di inc di ;перевод строки call next_line pop cx ;цикл ввода чисел loop input_Loop ;подготовка к поиску mov si,offset dataArray mov cx,num_size-1 lodsw mov bx,ax;минимальное mov dx,ax;масимальное ;check check_numb: lodsw cmp ax,bx ja check_big mov bx,ax;новое минимальное jmp short check_next check_big: cmp ax,dx jb check_next mov dx,ax;новое максимальное check_next: loop check_numb push bx;запоминаем числа push dx ;выводим максимальное число mov ah,9 mov dx,offset mess_big int 21h pop ax push ax call out_dec ;выводим минимальное число mov ah,9 mov dx,offset mess_low int 21h pop bx pop ax push ax push bx call out_dec ;делим pop ax pop bx xor dx,dx div bx ;dx-остаток ;ax-частное push dx push ax ;выводим частное mov ah,9 mov dx,offset mess_one int 21h pop ax call out_dec ;выводим остаток mov ah,9 mov dx,offset mess_two int 21h pop ax call out_dec ;домой mov ah,4ch int 21h ;первод строки next_line: mov al,13 int 29h mov al,10 int 29h ret ;вывод в 10-ой форме out_dec: xor cx,cx mov bx,10 out_dec_div: xor dx,dx div bx or dx,30h;остаток от деления push dx;сохраняем в стеке inc cx;считаем кол-во цифр or ax,ax;пока не 0 делим jnz out_dec_div out_dec_out: pop ax;извлекаем из стека int 29h;и выводим пoсчитанное кол-во цифр loop out_dec_out ret end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 18.05.2007, 11:51

Отвечает: An42 Здравствуйте, Ketor! Программа реализована следующим образом >макрос dos21 - выводит приглашение, звуковой сигнал, введенный символ >процедура call ah09 – ведет счетчик нумерации чисел >процедура call ah08 – процедура ввода чисел (шестнадцатеричных) работают клавиши от 1...9, от A…F, от a…f, а так - же Esc – выход Enter – ввод (числа до 4-х разрядов) >процедура call mas1 – определяет максимальный и минимальный элемент массива >процедура call consol – перевод результата деления в ascii – код Вывод результата частное / остаток в шестнадцатеричном формате Остальные пояснения в программе Удачи Приложение: title 87407 dos21 macro dosah,dxaddres,sumbol mov ah,dosah ifnb <dxaddres> mov dx,offset dxaddres endif ifnb <sumbol> mov dl,sumbol endif int 21h endm stacksg segment stack dw 32 dup(?) stacksg ends data segment mesvod db 'Ввод числа №..',30h,?,' > ','$' kolvo db 1 ;Номер числа zifr db 4 ;Максимально число знаков в числе massiv dw 10 dup(' ') ;Массив для ввода чисел max dw ? min dw ? mes db 'Результат деление частное/остаток... ' m1 db 4 dup(' '),' / ' m2 db 4 dup(' '),'$' en db 0dh,0ah,'$' zero db 'Минимальное число НОЛЬ, продолжение не возможно','$' data ends code segment assume cs:code,ds:data begin: mov ax,data mov ds,ax lea si,massiv beginloop: mov zifr,04 ;Устан. max кол-во ввод. разрядов call ah09 ;Ввод приглашения call ah08 ;Процедура ввода cmp al,1bh ;Нажата клавиша ESC выход из программы je endbegin mov [si],bx ;Сохранения числа в массиве inc si ;увеличение индекса на 2 inc si cmp kolvo,10 ;Если введено 10 чисел je maxmin ; то на нахождения max,min inc kolvo dos21 09,en jmp beginloop maxmin: call mas1 ;Процедура определения макс. и мин. элемента ; СДЕЛАТЬ ПРОВЕРКУ ДЕЛЕНИЯ НА НОЛЬ!!!!!!!!!!!!! cmp min,0000 je error xor ax,ax xor dx,dx mov ax,max ;Делим max на min div min ; в ax - частное, в dx - остаток mov max,ax mov min,dx lea si,max lea di,m1 call consol ;Процедура перевода в ascii - код mov ax,min lea si,min lea di,m2 call consol ;Процедура перевода в ascii - код dos21 09,en dos21 09,mes ;Печать результата jmp endbegin error: dos21 09,en dos21 09,zero endbegin: mov ax,4c00h int 21h ;-- Процедура перевода в ascii - код consol proc push ax mov bx,000fh mov cl,12 conloop: shr ax,cl and ax,bx cmp al,09 ja con1 or al,30h jmp con2 con1: add al,37h con2: mov [di],al cmp cl,00 je con_exit inc di sub cl,04 pop ax push ax jmp conloop con_exit: pop ax ret consol endp ;-- Процедура определения макс. и мин. элемента mas1 proc ;Находим максимальный элемент sub bx,bx mov ax,massiv[bx] mas1loop: cmp massiv[bx+2],ax jbe ms1 mov ax,massiv[bx+2] ms1: inc bx inc bx cmp bx,18 jne mas1loop mov max,ax ;Выбрали максимальный элемент ;Находим минимальный элемент sub bx,bx mov ax,massiv[bx] mas2loop: cmp ax,massiv[bx+2] jbe ms2 mov ax,massiv[bx+2] ms2: inc bx inc bx cmp bx,18 jne mas2loop mov min,ax ;Выбрали минимальный элемент ret mas1 endp ;-- Процедура ввода ah08 proc sub bx,bx mov cl,4 a1loop: dos21 08 cmp al,0dh ;Клавиша ввода je next cmp al,1bh ;Клавиша Esc je exit cmp al,30h ;al < '0' jb z07 cmp al,39h ;al <= '9' jbe ok cmp al,41h ;al < 'A' jb z07 cmp al,46h ;al <= 'F' jbe ok cmp al,61h ;al < 'a' jb z07 cmp al,66h ;al <= 'f' jbe ok jmp z07 ok: dos21 02,,al cmp al,39h ;al <= 9 ja a2 and al,0fh jmp hest a2: cmp al,46h ;al <= 'F' ja a3 sub al,37h jmp hest a3: sub al,57h hest: sub ah,ah shl bx,cl or bx,ax dec zifr je next jmp a1loop z07: dos21 02,,07 jmp a1loop next: exit: ret ah08 endp ;-- Ввод приглашения ah09 proc mov bx,offset mesvod mov ax,0 mov al,kolvo cmp al,0ah je v1 or al,30h jmp v2 v1: mov al,31h mov [bx][14],ax mov al,30h v2: mov [bx][15],ax mov dx,offset mesvod dos21 09,mesvod ret ah09 endp code ends end begin

Ответ отправил: An42 (статус: 3-ий класс) Ответ отправлен: 19.05.2007, 16:23

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007