چاپ اعداد اول کوچکتر از n

[میثم66]

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

خب من می خوام هر عددی که وارد میشه اعداد اول کوچکتر از اون عدد رو نشون بده.مثلا اگر 10 وارد کردیم.2و3و5و7 رو نشون بده.

[میثم66]

خب برنامه چاپ اعداد اول کوچکتر از عدد n به روش دیگر.

Sub prime()
n = Cells(1, 1)
For k = 1 To n
If k < n Then
div = 0
For i = 1 To k
If k Mod i = 0 Then
div = div + 1
End If
Next i
If div = 2 Then
x = x + 1
Range("B" & x) = k
End If
End If
Next k
End Sub 

در پایان از راهنماییهای آقای قاسمیان کمال تشکر را دارم.

[میثم66]

خب برنامه چاپ اعداد اول کوچکتر از عدد n به روش دیگر.

Sub prime()
n = Cells(1, 1)
For k = 1 To n
If k < n Then
div = 0
For i = 1 To k
If k Mod i = 0 Then
div = div + 1
End If
Next i
If div = 2 Then
x = x + 1
Range("B" & x) = k
End If
End If
Next k
End Sub 

در پایان از راهنماییهای آقای قاسمیان کمال تشکر را دارم.

من میخوام این برنامه رو تو متلب بنویسم.لطفا راهنمایی کنید.

clear all;
clc;
n=10
a=1;
c=0;
for i=1:n;
    if i<n
       for j=1:i;
         if mod(i,j)==0
            c=c+1;
         end
     end
    if c==2
        m(a,1)=i;
        a=a+1;
        
    end
  end

end
disp(m') 

این کدی که نوشتم ارور میده

[Amir Ghasemiyan]

من میخوام این برنامه رو متلب بنویسم.لطفا راهنمایی کنید.

البته اينجا جاش نيست. اينجا تخصصي اكسل هست. اگه سوال متلب دارين ميتونين به اين سايت مراجعه كنيد
نخستین پایگاه فارسی نرم افزار MATLAB
انجمن هم داره. ميتونين سوالاتتون رو مطرح كنيد

به هر حال اين كد خدمت شما:

clear
clc
n=9;
for k=1:9
    if k<n
        div=0;
        for i=1:k
            if mod(k,i)==0
                div=div+1;
            end
        end
        if div==2
            disp(k)
        end
    end
end

[میثم66]

البته اينجا جاش نيست. اينجا تخصصي اكسل هست. اگه سوال متلب دارين ميتونين به اين سايت مراجعه كنيد
نخستین پایگاه فارسی نرم افزار MATLAB
انجمن هم داره. ميتونين سوالاتتون رو مطرح كنيد

به هر حال اين كد خدمت شما:

clear
clc
n=9;
for k=1:9
    if k<n
        div=0;
        for i=1:k
            if mod(k,i)==0
                div=div+1;
            end
        end
        if div==2
            disp(k)
        end
    end
end

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

clear all;
clc;
n=input('n:');
for k=1:n-1;
    if k<n
        div=0;
        for i=1:k;
            if mod(k,i)==0
                div=div+1;
            end
        end
        if div==2
           disp(k')
        end
    end
end 

[Amir Ghasemiyan]

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

clear all;
clc;
n=input('n:');
for k=1:n-1;
    if k<n
        div=0;
        for i=1:k;
            if mod(k,i)==0
                div=div+1;
            end
        end
        if div==2
           disp(k')
        end
    end
end 

در حد توانم اونجا هم فعاليت ميكنم. با همين نام كاربري

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