طريقه ي از بين بردن کرم new folder
ابتدا به وسيله ي مديريت وظيفه ( Ctrl + alt + del ) از سر برگ دوم  ( فرآيند ها ) برنامه ي در حال اجراي windows explorer.exe  را متوقف کنيد ( پايان فرآيند ) توجه داشته باشيد که explorer.exe را متوقف نکنيد

سپس به پوشه ي ويندوزتان برويد و پوشه ي windows explorer  را پاک کنيد (( توجه داشته باشيد که اين پوشه نيست و فقط آيکن پوشه را دارد و يک فايل اجرايي با پسوند exe مي باشد ))
سپس در کامپيوتر خود عبارت new folder را جست و جو کنيد و همه را پاک کنيد

فضا برای عکس

www.sarzaminedoor.com/gallery
http://www.iranipc.com/Farsi/main.htm
http://www.digitalphotocontest.com/
http://www.photographica.org/
http://www.worldisround.com/
http://www.betterphoto.com/
http://www.sharemation.com/
http://www.sharemation.com/
http://www.istockphoto.com/
http://www.freestockphotos.com/
http://www.photosig.com/
http://www.truepath.com/
http://www.freefoto.com/
http://www.topcities.com/
http://legacy.truepath.com/
http://www.danheller.com/
http://www.100free.com/
http://www.boomspeed.com/
http://www.freegraphic.com/
http://www.photo.net/
http://www.ofoq.com/
http://webshotd.com/
http://www.webshots.com/
http://photo.box.sk/
http://www.netfirms.com/
http://www.corbis.com/

فضا برای ویب

Www.Persiangig.Com
Www.Rapidshare.De
Www.Fileupload.Com
Www.Free-webster.Com
Www.Megaupload.Com
Www.Free-webhosts.Com
Www.Freeweb.Com
Www.Golha.Net
Www.Freeservers.Com
Www.Freewebspace.Net
Www.Agigforfree.Com
Www.Gooyahost.Com

 

بدون استفاده از سه تابع رشته اي زير سه کارکتر اول رشته ي ورودي را چاپ کند
((   mid  ,   Right   ,    Left    ))

در انتهای عبارت های زیر q را پاک کنید

CLS
INPUT a$ q
FOR i = 1 TO 3 q
   FOR j = 1 TO 255  q
      b$ = CHR$(j)   q
      n = INSTR(i, a$, b$)  q
      IF n = i THEN PRINT b$; : EXIT FOR  q
   NEXT j, i  q
END  q

 

هر کس این عکس رو نبینه ضرر دیده

برای ذخیره ی عکس اینجا را کلیک کنید

برای ذخیره ی عکس دوم اینجا را کلیک کنید

شما به ورودي اين برنامه جمله اي درجه اول وارد مي کنيد که داخل آن فقط عبارت هاي جمع و تفريق وجود دارد پس از اجراي برنامه مقدار متغير ها از شما خواسته می شود و در انتها جواب نوشته خواهد شد
 !!!! لطفا عبارت هاي خود را با حرف کوچک وارد کنيد !!!!
مثال :

X+2-X+Z-20                       ورودي برنامه

        X = ? 10                                         
Z = ? 4            درخواست هاي برنامه

۱۴ -                      خروجي برنامه
 
 
CLS
INPUT a

($n = LEN(a
OPTION BASE 0
(DIM a$(n + 1), a(n + 1), t(n
FOR i = 1 TO n
(   a$(i) = MID$(a$, i, 1
((   a(i) = ASC(a$(i
NEXT i
   FOR i = 1 TO n
      IF a(i) > 96 AND a(i) < 123 THEN
((         q = INSTR(sum$, a$(i
(         sum$ = sum$ + a$(i
         g = g + 1
            IF q = 0 THEN
        ; " = ";(   PRINT a$(i

(               INPUT t(g
            ELSE
(            t(g) = t(q
            END IF
                  IF a$(i - 1) = "-" THEN
(                     sum = sum - t(g
                  ELSE
(                     sum = sum + t(g
                  END IF
      END IF
      IF a(i) > 47 AND a(i) < 58 THEN
(         z = i: s$ = a$(i
            DO
               z = z + 1
               IF a(z) < 48 OR a(z) > 57 THEN EXIT DO
(               s$ = s$ + a$(z
            LOOP
         IF a$(i - 1) = "-" THEN
         ($   sum = sum - VAL(s

         ELSE
         ($   sum = sum + VAL(s
         END IF
         i = z - 1
      END IF
   NEXT i
PRINT sum
END 

شما می توانید با ذخیره کردن کل صفحه ی اینترنتی عکس را نیز ذخیره کنید و از پوشه ی کنار صفحه عکس را استخراج کنید و یا بر روی عکس کلیک راست کرده و ذخیره کنید

بقيه ي تمرينات را بررسي کردم جواب ها در دفتر وجود دارند

2 -

CLS
INPUT n
a = n MOD 10
b = n \ 10
PRINT "sum   : "; a + b
PRINT "mghlob:"; (a * 10) + b
END

8 -
CLS
input x
(print SQR(2*X^2-3*X+7

9 -

cls
INPUT A
"IF A MOD 2 = 0 THEN PRINT "EVEN" ELSE PRINT "ODD
END
********   EVEN زوج               ODD فرد   *******  

10 -
INPUT N
FOR I=N TO 1 STEP -1
 PRINT I
NEXT I
END

14 -

روش اول
CLS
INPUT N
FOR I=1 TO N
 SUM=SUM+I
NEXT I
PRINT SUM/N
END

روش دوم
CLS
INPUT N
PRINT (N/2)+0.5
END

15 -
CLS
INPUT M,N
FOR I=M TO N
 PRINT I
NEXT
END

16 -
CLS
INPUT n
IF n MOD 2 = 0 THEN n = n - 2 ELSE n = n - 1
FOR i = n TO 2 STEP -2
   sum = sum + i
NEXT
PRINT sum
END

17 -
(PRINT INT (RND*91+10

روش کلي بدست آوردن عدد تصادفي بين دو عدد به فرض اينکه
LX=INT(RND*H-L+1)+L