2- برنامه ای بنویسید که 10 عدد از کابرگرفته و معدل آنها را محاسبه کند .           

include io.h

cr   EQU 0dh

lf   EQU 0ah

;---------------------------------

sseg segment stack

     DW    100H DUP(?)

sseg ends

;---------------------------------

dseg segment

           N1   DW ?

           N2   DW ?

           N3   DW ?

           N4   DW ?

           N5   DW ?

           N6   DW ?

           N7   DW ?

           N8   DW ?

           N9   DW ?

           N10 DW ?

     prompt DB "Enter Numbers:",cr,lf,0

     str     DB 20 Dup(?)

     L1      DB cr,lf,"The Avg is:"

     avg     DB 6 Dup(?)

     temp    DB 10

     DB cr,lf,0

dseg ends

;---------------------------------

cseg segment

            assume cs:cseg,ds:dseg

start:      mov    ax,seg dseg

               mov    ds,ax

 

            output prompt

            inputs str,40

            atoi    str

            mov     N1,ax        ;read your number1

 

           output prompt

            inputs str,40

            atoi    str

            mov     N2,ax        ;read your number2

 

          output prompt

          inputs str,40

          atoi    str

          mov     N3,ax        ;read your number3

 

          output prompt

          inputs str,40

          atoi    str

          mov     N4,ax        ;read your number4

 

          output prompt

          inputs str,40

          atoi    str

          mov     N5,ax        ;read your number5

 

          output prompt

          inputs str,40

          atoi    str

          mov     N6,ax        ;read your number6

 

          output prompt

          inputs str,40

          atoi    str

          mov     N7,ax        ;read your number7

 

          output prompt

          inputs str,40

          atoi    str

          mov     N8,ax        ;read your number8

 

          output prompt

          inputs str,40

          atoi    str

          mov     N9,ax        ;read your number9

 

          output prompt

          inputs str,40

          atoi    str

          mov     N10,ax       ;read your number10

                            

 

 

          mov     ax,N1

          add     ax,N2        ;ax <--- N1+N2+n...

          add     ax,n3

          add     ax,n4

          add     ax,n5

          add     ax,n6

          add     ax,n7

          add     ax,n8

          add     ax,n6

          add     ax,n10

          div     temp,ax

          itoa    avg,ax

          output L1           ;print avg

 

          mov    ax,4c00h      ;exit to dos

          int    21h

cseg        ends

            end    start 

 






تاریخ : یکشنبه 91/11/15 | 3:30 عصر | نویسنده : غلامعباس شیرانی | نظرات ()
.: Weblog Themes By M a h S k i n:.