нужен программист

stas197940

New member
Регистрация
22 Апр 2008
Сообщения
136
Реакции
1
Баллы
0
Адрес
северодвинск
нужен адекватный прагромист подробности обсудим лично в скайпе
 
Последнее редактирование:

Claim

Заблокирован
Регистрация
13 Июл 2009
Сообщения
5,439
Реакции
3
Баллы
38
Адрес
Хараре.
Что нужно громить?
 

DanLex

New member
Регистрация
9 Апр 2008
Сообщения
412
Реакции
0
Баллы
0
Адрес
Архангельск
В чём заинтересован? Назови хотя бы что нужно программировать? самолёты, суда, мозги, консольные приложения, веб-приложения, windows-приложения? и желательно язык(если важно).Проект или вакансия?
 
Последнее редактирование:

OneLexus

New member
Регистрация
17 Сен 2009
Сообщения
1,698
Реакции
2
Баллы
0
Адрес
Северодвинск
stas197940 ? ты бы реально написал, какая среда, что кодить нужно..хотя бы в общих чертах. Тем более если доработать в чем то прогу написали =)))
 

j2me

Заблокирован
Регистрация
23 Апр 2009
Сообщения
24,449
Реакции
26
Баллы
0
Адрес
Архангельская область: доска, треска и тоска
«99 бутылок пива» (99 Bottles of Beer) — традиционная песенка в США и Канаде.
Код:
	org	100h
	jmp	loop
	;
cntn:	db	99	;Bottles counter.
cnts:	db	'99 $' 	;Must be modified each time around for printing.
str1:	db	'bottles of beer on the wall, $'
str2:	db	'bottles of beer.$'
str3:	db	'Take one down, pass it around, $'
str4:	db	'bottles of beer on the wall.$'
	;
crlf:	db	0dh, 0ah, 24h	;$ terminated.
	;
end0:	db	'1 bottle of beer on the wall.$'
end1:	db	'1 bottle of beer on the wall, $'
end2:	db	'1 bottle of beer.$'
end4:	db	'no more bottles of beer on the wall.$'
	;
ascn:	db	' 0 1 2 3 4 5 6 7 8 910111213141516171819'
	db	'2021222324252627282930313233343536373839'
	db	'4041424344454647484950515253545556575859'
	db	'6061626364656667686970717273747576777879'
	db	'8081828384858687888990919293949596979899'
	;
loop:
	;
	; Print out strings up to losing a bottle.
	;
			; >>>>>> xx	
	lxi 	d,cnts	; Load ASCII number address.
	lda	cntn	; Load number of bottles to A.	
	sbi	10	; Set carry flag if less than 10.
	jnc	jp1	; Greater than 9 so print both digits.
	inx	d	; Increment DE to skip high digit (space).
jp1:	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> bottles of beer on the wall,
	lxi 	d,str1	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> xx
	lxi 	d,cnts	; Load ASCII number address.
	lda	cntn	; Load number of bottles to A.	
	sbi	10	; Set carry flag if less than 10.
	jnc	jp2	; Greater than 9 so print both digits.
	inx	d	; Increment DE to skip high digit (space).
jp2:	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> bottles of beer.
	lxi 	d,str2	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> CR/LF.
	lxi 	d,crlf	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> Take one down, pass it around,
	lxi 	d,str3	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
	;
	; Decrement our bottle counter.
	;
	lda	cntn	; Load number of bottles to A.
	dcr	a	; Decrease bottles.
	sta	cntn	; Save number of bottles from A.
	;
	; See if we're done (A register is still set).
	;
	cpi	1	; Make sure the zero flag is correct.
	jz	done	; See if there's only one more bottle.
	;
	; Patch up the counter string (A register is still set).
	;
	lxi	h,cnts	; Put address of ASCII bottles (counter ptr) in HL.
	xchg		; Swap DE and HL.
	lxi	h,ascn	; Put address of table in HL.
	mvi	b,0	; Zero the B (high) register.
	mov	c,a	; Put bottles into C (low).
	dad	b	; Add BC to HL (creates table ptr).
	dad	b	; Must do it twice because 2 chrs per table entry.
	mov	b,m	; Put first chr from table into B.
	xchg		; Swap DE and HL.	
	mov	m,b	; Put first chr into counter string.
	inx	h	; Increment HL (counter ptr).
	xchg		; Swap DE and HL.
	inx	h	; Increment HL (table ptr).
	mov	b,m	; Put second ASCII chr pointed to by HL in B.
	xchg		; Swap DE and HL.	
	mov	m,b	; Put second ASCII chr into ctr string.
	;
	; Print out remainder of second line.
	;
			; >>>>>> xx
	lxi 	d,cnts	; Load ASCII number address.
	lda	cntn	; Load number of bottles to A.	
	sbi	10	; Set carry flag if less than 10.
	jnc	jp3	; Greater than 9 so print both digits.
	inx	d	; Increment DE to skip high digit (space).
jp3:	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> bottles of beer on the wall.
	lxi 	d,str4	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> CR/LF.
	lxi 	d,crlf	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
	;
	; Loop until done.
	;
	jmp	loop	; Keep it up, we're doing great.
	;
done:
	;
	; First, finish up second line from above.
	;
			; >>>>>> 1 bottle of beer on the wall.
	lxi 	d,end0	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> CR/LF.
	lxi 	d,crlf	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
	;
	; Now, print first and second lines for the last time.
	;
			; >>>>>> 1 bottle of beer on the wall,
	lxi 	d,end1	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> 1 bottle of beer.	
	lxi 	d,end2	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> CR/LF.
	lxi 	d,crlf	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> Take one down, pass it around,
	lxi 	d,str3	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> No more bottles of beer on the wall.
	lxi 	d,end4	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
			; >>>>>> CR/LF.
	lxi 	d,crlf	; Load string address.
	mvi 	c,9	; Specify the BDOS print string instruction.
	call	5	; Call the CP/M BDOS.
	;
	; That's all folks.
	;
	jmp	0	; Return to CP/M.
	end
 

alexsandro

New member
Регистрация
1 Июл 2011
Сообщения
140
Реакции
0
Баллы
0
тоже поддержу тему нужен человек который создаст сайт веб сервер и привяжет его к серверу кто может сделать пишите в личку и сумму сколько возьмете
 

KLIM

Заблокирован
Регистрация
25 Июн 2009
Сообщения
943
Реакции
1
Баллы
0
Адрес
Архангельск 2 л\з
ТС, если Вы действительно ищете адекватного программиста, то ни один Вам тут не ответит. Вы наверное даже сами не знаете чего хотите. Для того что бы найти программсита нужно дать хотя бы пару наводок на источники необходимых знаний.
1. Предметная область автоматизации.
2. ОС
2. Платформа программирования.
Это лишь малый набор, этот список можно продолжать почти бесконечно.
 
Сверху