Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2008, 15:20   #1
Clockgen
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 66
По умолчанию перевод чисел в ТАСМ"е.

Помогите плиз с программой превода чисел из Аский-кода в двоичный и обратно,и со здвигом ничего не пойму с регистрами:
Задание:
Вычислить величину
Для перевода (K+I)в квадрате*Yв квадрате
C= ------------------------------
(I-K)*2

Для сдвига (d*3-c)
Y= ------------------------------ +c*5
4

Здесь только часть программы,у меня не получается произвести действия
Код:
title 	perev
sgcod 	SEGMENT PARA  'code'
	ASSUME  CS: sgcod, DS: sgdata, SS: sgstek, ES: nothing
begin 	proc 	near

	mov	ax,0600h
	mov 	bh,07
	mov 	cx,0000
	mov 	dx,184fh
	int	10h

	mov	ah,02
	mov	bh,00
	mov	dh,1
	mov	dl,1
	int	10h

	mov	ah,0ah
	lea	dx,vvod
	int	21h

	call	asciibin
	mov	ax,binv
	mov	k,ax     

	mov	ah,02
	mov	bh,00
	mov	dh,1
	mov	dl,3
	int	10h

	mov	ah,0ah
	lea	dx,vvod
	int	21h

	call	asciibin
	mov	ax,binv
	mov	i,ax

	mov	ah,02
	mov	bh,00
	mov	dh,1
	mov	dl,5
	int	10h

	mov	ah,0ah
	lea	dx,vvod
	int	21h

	call	asciibin
	mov	ax,binv
	mov	y,ax



;------Здесь не получается с действиями.


	

	call	binascii
	int	20h
	ret


begin	endp

asciibin	proc	near
	mov	binv,0
	mov	mul10,1
	mov	cx,0010
	lea	si,numb-1
	xor	bx,bx
	mov	bl,real
b20:	mov	al,[si+bx]
	and	ax,000fh
	mul	mul10
	add	binv,ax
	mov	ax,mul10
	mul	cx
	mov 	mul10,ax
	dec	bx
	jnz	b20
	ret
asciibin	endp

binascii	proc	near
	mov	cx,0010
	lea	si,ascii-1
	mov	bx,c
	mov	ax,binv

c20:	cmp	ax,0010
	jb	c30
	xor	dx,dx
	div	cx
	or	dl,30h
	mov	[si+bx],dl
	dec	bx
	jmp	c20
c30:	or	al,30h
	mov	[si+bx],al
	ret
binascii	endp
binv 	dw	0
mul10	dw	1
;---------------------------------Для перевода
k	dw	0
i	dw	0
y	dw	0
c	dw	0
ascii	dw	0
;----------------------------------Для здвигов
y	dw	0
d	dw	0
c	dw	0
vvod	label	byte
max	db	4
real	db	?
numb	db	4 dup(' ')
sgcod	ends
	end	begin

Последний раз редактировалось rpy3uH; 30.11.2008 в 15:56.
Clockgen вне форума Ответить с цитированием
Старый 01.12.2008, 04:21   #2
Min
Форумчанин
 
Регистрация: 12.09.2008
Сообщений: 239
По умолчанию

кто-нибудь понял условие?
Надо бы избавиться от привычки ставить многоточие.....
Min вне форума Ответить с цитированием
Старый 01.12.2008, 08:52   #3
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

ему нужен перевод из строки в число и наоборот, а также он не шарит в битовых сдвигах. и ему при этом надо чтобы кто-нибудь за него сделал лабораторную.
rpy3uH вне форума Ответить с цитированием
Старый 01.12.2008, 20:49   #4
Clockgen
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 66
По умолчанию

Цитата:
Сообщение от rpy3uH Посмотреть сообщение
и ему при этом надо чтобы кто-нибудь за него сделал лабораторную.
А откуда ты знаешь что это лабораторная?
Clockgen вне форума Ответить с цитированием
Старый 01.12.2008, 21:37   #5
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

извиняюсь, не удержался
Цитата:
Сообщение от Clockgen Посмотреть сообщение
А откуда ты знаешь что это лабораторная?
я телепат. я мысли читаю.
rpy3uH вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод целых чисел из одной системы счисления в другую =LeonZone= Помощь студентам 19 12.12.2010 16:18
Перевод чисел в строку RedWolf Помощь студентам 6 17.01.2008 00:09
Перевод чисел в различные С.С. Omedus Общие вопросы Delphi 5 05.11.2007 14:06
Задача: перевод целых чисел в римские n0x Паскаль, Turbo Pascal, PascalABC.NET 4 12.12.2006 19:52