برنامه دریافت یک رشته و محاسبه کدهای فرد و زوج - تالار گفتمان آذر فروم





دعوت به همکاری با آذر فروم

 

برنامه دریافت یک رشته و محاسبه کدهای فرد و زوج
زمان کنونی: 15-09-1395،10:07 ب.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: Friga
آخرین ارسال: Friga
پاسخ: 1
بازدید: 208

 
 
رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5

موضوع: برنامه دریافت یک رشته و محاسبه کدهای فرد و زوج
ارسال: #1
برنامه دریافت یک رشته و محاسبه کدهای فرد و زوج
پست‌ها: 11,943
تاریخ عضویت: 20 اردیبهشت 1390
اعتبار: 288
حالت من: Shad
آخرین ویرایش در 21-04-1391 01:03 ق.ظ توسط Friga
کد پی‌اچ‌پی:
*/*/*/*/*/*/*/*/*/STACK SEGMENT *\*\*\*\*\*\*\*\*\*\

stacksg segment para stack 'stack'
        
dw 32 dup('?')
stacksg ends

;*/*/*/*/*/*/*/*/*/DATA SEGMENT *\*\*\*\*\*\*\*\*\*\

datasg segment para 'data'
msg  db "-----------------------------
<wbr>------------------------------<wbr>-"
,'$'
msg0 db "This program split zoj & fard digits and found sum asci code",'$'

msg1 db "Enter  a String: ",'$'
msg2 db "Sum of Zoj number: ",'$'
msg3 db "Sum of Fard number: ",'$'
msg4 db "Zoj Chars: ",'$'
msg5 db "Fard chars: ",'$'
msg6 db "Made by REZA AKHLAGHY & MOHAMMAD SHERAFAT",'$'
strlist   label  byte
max db 10
len   db 
?
input_string db 10 dup(' ')
count db 0
o_char db 10 dup
(' '),'$'
e_char  db 10 dup(' '),'$'
e_sum dw ?
o_sum dw ?
e_sum_2_str db  5 dup (?),'$'
o_sum_2_str db  5 dup (?),'$'
datasg ends

;*/*/*/*/*/*/*/*/*/CODE SEGMENT *\*\*\*\*\*\*\*\*\*\

codesg segment para 'code'

main proc far
assume cs
:codesg,ds:datasg,es:codesg  
mov  ax
,datasg
mov  ds
,ax

;*/*/*/*/*/*/*/*/*/CLEAR SCREEN *\*\*\*\*\*\*\*\*\*\

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

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,1
mov dl
,8
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE *\*\*\*\*\*\*\*\*\*\

lea    dx,msg
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,2
mov dl
,8
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE0 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg0
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,3
mov dl
,8
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE *\*\*\*\*\*\*\*\*\*\

lea    dx,msg
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,5
mov dl
,14
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE6 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg6
mov al
,0
        mov ah
,09h
        int 21h


;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,10
mov dl
,30
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE1 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg1
mov ah
,9h
int    21h

;*/*/*/*/*/*/*/*/*/GET THE STRING *\*\*\*\*\*\*\*\*\*\

mov ah,0ah
lea dx
,strlist
int 21h
;*/*/*/*/*/*/*/*/*/* -------------MAIN OPRATION----------- *\*\*\*\*\*\*\*\*\*\

lea si,o_char
lea di
,e_char
lea bx
,input_string
mov cl
,0
start_of_loop
:
cmp cl,len
je  end_of_program
mov al
,[bx]
mov ah,0
mov dl
,2
div dl
mov al
,[bx]
cmp ah,1
je  case_o
cbw
add e_sum
,ax
mov dh
,[bx]
mov [di],dh
inc di
;74
inc bx
inc cl
jmp start_of_loop
case_o
:
cbw
add o_sum
,ax
mov dh
,[bx]
mov [si],dh
inc si
inc bx
inc cl
jmp start_of_loop
end_of_program
:

;*
/*/*/*/*/*/*/*/*/CONVERT NUMBER 2 STRING _ FARD *\*\*\*\*\*\*\*\*\*\

        
lea bxo_sum_2_str
mov ax
o_sum
mov cx
,1000
mov dx
,0
div cx
add al
,30h
mov 
[bx],al
mov o_sum
,dx
inc bx
;-------
        
mov axo_sum
mov cl
,100
div cl
add al
,30h
mov 
[bx],al
mov al
,ah
mov ah
,0
mov o_sum
,ax
inc bx
;-------
mov axo_sum
mov cl
10
div cl
add al
,30h
mov 
[bx],al
mov al
,ah
mov ah
,0
inc bx
;-------
add al,30h
mov 
[bx],al

;*/*/*/*/*/*/*/*/*/CONVERT NUMBER 2 STRING _ ZOJ *\*\*\*\*\*\*\*\*\*\

        
lea bxe_sum_2_str
mov ax
e_sum
mov cx
,1000
mov dx
,0
div cx
add al
,30h
mov 
[bx],al
mov e_sum
,dx
inc bx
;-------
        
mov axe_sum
mov cl
,100
div cl
add al
,30h
mov 
[bx],al
mov al
,ah
mov ah
,0
mov e_sum
,ax
inc bx
;-------
mov axe_sum
mov cl
10
div cl
add al
,30h
mov 
[bx],al
mov al
,ah
mov ah
,0
inc bx
;-------
add al,30h
mov 
[bx],al

;*/*/*/*/*/*/*/*/*/CLEAR SCREEN *\*\*\*\*\*\*\*\*\*\

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

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,10
mov dl
,30
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE2 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg2
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT SUM OF ZOJ *\*\*\*\*\*\*\*\*\*\

lea   dx,e_sum_2_str
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,11
mov dl
,30
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE3 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg3
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT SUM OF FARD *\*\*\*\*\*\*\*\*\*\

lea   dx,o_sum_2_str
        mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,12
mov dl
,30
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE4 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg4
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT ZOJ CHARS *\*\*\*\*\*\*\*\*\*\

lea    dx,e_char
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,13
mov dl
,30
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE5 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg5
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/* PRINT FARD CHARS *\*\*\*\*\*\*\*\*\*\

lea    dx,o_char
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\

mov ah,2h
mov dh
,18
mov dl
,14
mov bh
,0
int 10h

;*/*/*/*/*/*/*/*/*/* PRINT MASSAGE6 *\*\*\*\*\*\*\*\*\*\

lea    dx,msg6
mov al
,0
        mov ah
,09h
        int 21h

;*/*/*/*/*/*/*/*/*/CLOSE PROGRAM *\*\*\*\*\*\*\*\*\*\

;*
/*/*/*/*/*/*/*/*/MOVE CURSOR *\*\*\*\*\*\*\*\*\*\
mov ah,2h
mov dh
,23
mov dl
,8
mov bh
,0
int 10h

mov  ax
,4c00h
int     21h

main endp
       codesg ends
    end main 
















دورمچم به جای ساعت یکنوار مشکی بستم
تا همه بفهمن من از همه هر چه زمانو متعلق به زمان است بیزارم
من هم روزی قلبی داشتم
که توسط مردمانی ازمیان شما شکست و شکست تا سنگی شد
واکنون روزگاریست که شیطان فریاد میزند..
انسان پیدا کنید سجده خواهم کرد...


=====ஜ۩۞۩ஜ=====

21-04-1391 12:58 ق.ظ
 


[-]
پاسخ سریع
پیام
پاسخ خود را برای این پیام در اینجا بنویسید.


کد تصویری
royalfuns
(غیر حساس به بزرگی و کوچکی حروف)
لطفاً کد نشان داده شده در تصویر را وارد نمایید. این اقدام جهت جلوگیری از ارسال‌های خودکار ضروری می‌باشد.

موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
8 نحوه ساخت فايل Exe از برنامه اسمبلي بوسيله Masm Friga 0 327 18-05-1391 12:15 ق.ظ
آخرین ارسال: Friga
  آموزش زبان برنامه نويسي Assembly Friga 0 227 21-04-1391 01:03 ق.ظ
آخرین ارسال: Friga
  برنامه دریافت رشته و نمایش بزرگترین و کوچکترین کد اسکی Friga 0 239 21-04-1391 12:56 ق.ظ
آخرین ارسال: Friga
  برنامه هایی با اسمبلی Friga 1 354 21-04-1391 12:54 ق.ظ
آخرین ارسال: Friga

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان