تبلیغات
نیمکت اول کلاس - مطالب اسفند 1391
 
نیمکت اول کلاس
ز گهواره تا گور دانش بجو
 
 
جمعه 25 اسفند 1391 :: نویسنده : سپیده اذین
Private Sub Form_Click

 ("a = InputBox("A

 
   For c = 1 To a - 1
      
       If a Mod c = 0 Then                    
         s = s + c                        
     
 If s = a Then
                  
        "اول است"  Print a                          
  
 End If
        
    End If         
    Next        
    
End Sub

 




نوع مطلب :
برچسب ها :
لینک های مرتبط :


پنجشنبه 24 اسفند 1391 :: نویسنده : سپیده اذین

عدد اول

1.شروع


2a. را بخوان 

3.       c=1   :   i=0

4.اگر a mod c =0 بود :  i=i+1

5.c=c+1

6 .اگر a<=c بود برو قدم 4

7.اگر i=2 بود پیغام بده a اول است

8.پایان


a=inputbox("A

for  c=1 to a

     if a mod c =0 then

     t=t+1

    if t=2 then

      print a

                       end if

                       end if

                         next

                                                                                                                                                                                     


                                                                                                                 





نوع مطلب :
برچسب ها :
لینک های مرتبط :


پنجشنبه 24 اسفند 1391 :: نویسنده : سپیده اذین

مقسوم علیه

1.شروع

2.aرا بخوان

3.c=1

4.اگر a mod c=0 بود c را نشان بده

5.c=c+1

6.اگر c<=a بود برو قدم 4

7. پایان


                                       
                                                                                                            ( "a = InputBox("A
                                                                                                        

                                                                                                                 For c = 1 To a  
                                                                                                       If a Mod c = 0 Then
       

                                                                                                                     Print c
                                                                                                                                End If
                                                                                                                                   Next
   
           







نوع مطلب :
برچسب ها :
لینک های مرتبط :


دوشنبه 21 اسفند 1391 :: نویسنده : سپیده اذین
نمایش طول رشته ورودی؟

a=inputbx("A 

print klen(A       




نوع مطلب :
برچسب ها :
لینک های مرتبط :


دوشنبه 21 اسفند 1391 :: نویسنده : سپیده اذین

تابعی بنویسید معکوس کلمهsalamرا نشان دهد؟

 

A=”salam”

Print  strreverse(A)

 





نوع مطلب :
برچسب ها :
لینک های مرتبط :


دوشنبه 21 اسفند 1391 :: نویسنده : سپیده اذین

از رشته ورودی 3 حرف اخرش حدف شود

A=inputbox(“A”)

  Print  right (a,3)

 





نوع مطلب :
برچسب ها :
لینک های مرتبط :




( کل صفحات : 8 )    1   2   3   4   5   6   7   ...   
درباره وبلاگ



مدیر وبلاگ : سپیده اذین
جستجو

آمار وبلاگ
کل بازدید :
بازدید امروز :
بازدید دیروز :
بازدید این ماه :
بازدید ماه قبل :
تعداد نویسندگان :
تعداد کل پست ها :
آخرین بازدید :
آخرین بروز رسانی :
Online User