برعکس چاپ کردن یک عدد

[میثم66]

برنامه ای که عدد 258 را دریافت آن را 852 چاپ کند.طریقه چاپش به چه صورت هست؟ اینیکه من نوشتم آخرین رقم رو چاپ می کنه.

Sub nn()
n = Cells(1, 1)
a = 0
Do
Z = n Mod 10
j = n \ 10
a = a + 1
n = j
x = Z
Loop While j > 0
Cells(1, 2) = x
End Sub 

این برنامه رو تو متلب هم نوشتم بازم آخرین رقم را چاپ می کنه.

clear all;
clc;
n=258;
a=0;
j=1;
while j>0;
z=mod(n,10);
j=(n-z)/10;
a=a+1;
x=z;
n=j;
end
fprintf('invert of number  %1.12g\n',x); 

[Amir Ghasemiyan]

برنامه ای که عدد 258 را دریافت آن را 852 چاپ کند.طریقه چاپش به چه صورت هست؟ اینیکه من نوشتم آخرین رقم رو چاپ می کنه.

Sub nn()
n = Cells(1, 1)
a = 0
Do
Z = n Mod 10
j = n \ 10
a = a + 1
n = j
x = Z
Loop While j > 0
Cells(1, 2) = x
End Sub 

این برنامه رو تو متلب هم نوشتم بازم آخرین رقم را چاپ می کنه.

clear all;
clc;
n=258;
a=0;
j=1;
while j>0;
z=mod(n,10);
j=(n-z)/10;
a=a+1;
x=z;
n=j;
end
fprintf('invert of number  %1.12g\n',x); 

دوست عزيز شما دارين مقادير بدست اومده رو جايگزين قبلي ميكنين. در حالي كه بايد با مقدار قبلي جمع بشه.
حالا من براتون يه برنامه خلاصه تر نوشتم
اين براي vba:

Sub nn()
n = Cells(1, 1)
Length = Len(n)
For i = Length To 1 Step -1
    a = (n Mod 10) * 10 ^ (i - 1) + a
    n = n \ 10
Next i
End Sub

اينم براي متلب:

clear
clc
n=258;
a=0;
for i=numel(num2str(n)):-1:1
    a=mod(n,10)*10^(i-1)+a;
    n=floor(n/10);
end
a

[میثم66]

دوست عزيز شما دارين مقادير بدست اومده رو جايگزين قبلي ميكنين. در حالي كه بايد با مقدار قبلي جمع بشه.
حالا من براتون يه برنامه خلاصه تر نوشتم
اين براي vba:

Sub nn()
n = Cells(1, 1)
Length = Len(n)
For i = Length To 1 Step -1
    a = (n Mod 10) * 10 ^ (i - 1) + a
    n = n \ 10
Next i
End Sub

اينم براي متلب:

clear
clc
n=258;
a=0;
for i=numel(num2str(n)):-1:1
    a=mod(n,10)*10^(i-1)+a;
    n=floor(n/10);
end
a

ممنون. اینی که من نوشتم اگر بخواد رقم قبلی باشه چیکار باید بکنم.

[Amir Ghasemiyan]

ممنون. اینی که من نوشتم اگر بخواد رقم قبلی باشه چیکار باید بکنم.

با روش خودتون اگه ميخواين ميشه اينطوري نوشت:

Sub nn()
n = Cells(1, 1)
Do
Z = n Mod 10
Z = Z * 10 ^ (Len(n) - 1)
j = n \ 10
n = j
x = Z + x
Loop While j > 0
Cells(1, 2) = x
End Sub

[میثم66]

باتشکر از آقای قاسمیان.من این کد تو متلب اینجوری تونستم بنویسم.از تو help متلب تونستم استخراج کنم

clear all;
clc;
n=258;
a=0;
j=1;
while j>0;
z=mod(n,10);
j=(n-z)/10;
a=a+1;
x=z;
n=j;
fprintf('%d',x)
end; 

[Amir Ghasemiyan]

باتشکر از آقای قاسمیان.من این کد تو متلب اینجوری تونستم بنویسم.از تو help متلب تونستم استخراج کنم

clear all;
clc;
n=258;
a=0;
j=1;
while j>0;
z=mod(n,10);
j=(n-z)/10;
a=a+1;
x=z;
n=j;
fprintf('%d',x)
end; 

اين كد فقط تو خروجي بهتون عدد معكوس رو نمايش ميده. درواقع خروجي اين برنامه هيچ متغيري نيست كه بشه ازش استفاده كرد. ولي اون كدي كه خدمتتون دادم يك متغير بهتون ميده كه ميتونين ازش استفاده كنيد. البته روش نوشتن زياده. كارهاي متفاوتي ميشه كرد. من سعي كردم ساده ترينشو خدمتتون ارائه كنم