پرش به


تصویر
- - - - -

محاسبه طول یک رشته و تعداد تکرار کاراکترهای آن

ابوالفضل عربی رشته طول رشته تکرار رشته

  • لطفا وارد حساب کاربری خود شوید تا بتوانید پاسخ دهید
بدون پاسخ

#1 ابوالفضل عربی

ابوالفضل عربی

    Administrator

  • مدیران ارشد
  • 147 ارسال
  • مکان : بندرعباس ، تهران

ارسالی 15 May 2018 - 04:57 PM

برنامه ای بنویسید که طول یک رشته  و تعداد تکرار کاراکترهای آن را محاسبه کند.

.386
.MODEL FLAT

ExitProcess PROTO NEAR32 stdcall, dwExitCode:DWORD

INCLUDE io.h            ; هدر مربوط به توابع ورودی و خروجی

cr      EQU     0dh     ; رفتن به ابتدای خط جاری
Lf      EQU     0ah     ; رفتن به سطر بعدی

.STACK  4096            ; رزرو مقدار 4096 بایت برای پشته

.DATA                   ; ناحیه ی تعریف متغیر
i       dword   ?
char    byte    ?
prompt1 BYTE    "Enter string :  ", 0
string  BYTE    40 DUP (?)
label1  BYTE    cr, Lf, " length = "
toolReshteh     BYTE    11 DUP (?)
        BYTE    cr, Lf, 0
label2  BYTE    cr, Lf, " length = "
toolchar     BYTE    11 DUP (?)
        BYTE    cr, Lf, 0

.CODE                           ; start of main program code
_start:
        output  prompt1         ; prompt for first number
        input   string, 40      ; read ASCII characters
        
		mov  edx,offset string
		mov   ecx,0
		
		f:
		mov al,[edx]
		cmp al,0
		je  endF
		
		inc ecx
		inc edx
		jmp f
		endF:
       
		dtoa     toolReshteh, ecx        ;تبدیل دیجیت به اسکی
        output   label1          ; چاپ مقادیر 
		
	  mov  edx,offset string
		mov al,[edx]
		mov  i,edx
		
    f2: 
       mov  edx,i
	   mov al,[edx]
	   mov  char,al
       mov al,[edx]
	   cmp al,0
	   je  endF2
	   
	    mov  edx,offset string
		mov   ecx,0
	    f1:
		mov al,[edx]
		cmp al,0
		je  endF1
		
		cmp  char,al
		jne   endCmp
		inc ecx
	endCmp:
		inc edx
		jmp f1
		endF1:
		
		output char
	  dtoa     toolChar, ecx        ;تبدیل دیجیت به اسکی
        output   label2          ; چاپ مقادیر 
	
	mov   edx,i
	inc   edx
	mov   i,edx
	jmp  f2	
	endF2:	
	  
        INVOKE  ExitProcess, 0  ; exit with return code 0

PUBLIC _start                   ; make e
					
					

ابوالفضل عربی
شماره تماس : 09380291826

ایمیل دانشگاهی : abolfazl.arabi@iauba.ac.ir
ایمیل  کاری : info@IranDelphi.ir






همچنین به ابوالفضل عربی, رشته, طول رشته, تکرار رشته نیز برچسب خورده است

0 کاربر در حال خواندن این موضوع است

0 کاربر، 0 مهمان و 0 عضو مخفی

صفحه ی اینستاگرام  دانشگاه آزاد اسلامی واحد بندرعباس