ÇåáÇ æÓåáÇ Èß Ýì ÈæÇÈÉ ÇáËÇäæíÉ ÇáÚÇãÉ ... ÓÌá ÇáÇä

ÇáÚæÏÉ   ÈæÇÈÉ ÇáËÇäæíÉ ÇáÚÇãÉ ÇáãÕÑíÉ > ÇáÞÓã ÇáÅÏÇÑí > ÃÑÔíÝ ÇáãäÊÏì

ÃÑÔíÝ ÇáãäÊÏì åäÇ äÞá ÇáãæÖæÚÇÊ ÇáãßÑÑÉ æÇáÑæÇÈØ ÇáÊì áÇ ÊÚãá

 
 
ÃÏæÇÊ ÇáãæÖæÚ ÇÈÍË Ýí ÇáãæÖæÚ ÇäæÇÚ ÚÑÖ ÇáãæÖæÚ
Prev ÇáãÔÇÑßÉ ÇáÓÇÈÞÉ   ÇáãÔÇÑßÉ ÇáÊÇáíÉ Next
  #3  
ÞÏíã 27-04-2012, 11:13 PM
msk325 msk325 ÛíÑ ãÊæÇÌÏ ÍÇáíÇð
ÚÖæ äÔíØ
 
ÊÇÑíÎ ÇáÊÓÌíá: Jun 2008
ÇáãÔÇÑßÇÊ: 188
ãÚÏá ÊÞííã ÇáãÓÊæì: 18
msk325 is on a distinguished road
ÇÝÊÑÇÖí ÇáÇÌÇÈÉ

ÇáÇÌÇÈÉ

1- áÇíÌæÒ áÇä ßáãÉ For ãä ÇáßáãÇÊ ÇáãÍÌæÒÉ
2- ÚãÑ ÇáØÇáÈ íÊã ÊÎÒíäå Ýí ãÊÛíÑ ãä ÇáäæÚ Single
3- ÇãÑ ÊßÑÇÑ íÊæÞÝ ÚäÏ ÊäÝíÐ ãÌãæÚÉ ãä ÇáÇæÇãÑ ÇáãÑÇÏ ÊßÑÇÑåÇ ÚäÏãÇ íßæä ÔÑØ äåÇíÉ ÇáÊßÑÇÑ ÎØÇ............Do ...... Loop While




Dim x, sum, avg AsInteger


sum = 0


x = 0

DoWhile x < 5

sum = sum + x

x = x + 1
Loop
avg = sum / x












ÇáäÇÊÌ



sum=10


x=5



avg=2
__________________

ãÚ ÊÍíÇÊ Ç / ãÍãÏ ÓáÇãå
 

ÇáÚáÇãÇÊ ÇáãÑÌÚíÉ


ÖæÇÈØ ÇáãÔÇÑßÉ
áÇ ÊÓÊØíÚ ÅÖÇÝÉ ãæÇÖíÚ ÌÏíÏÉ
áÇ ÊÓÊØíÚ ÇáÑÏ Úáì ÇáãæÇÖíÚ
áÇ íãßäß ÇÖÇÝÉ ãÑÝÞÇÊ
áÇ íãßäß ÊÚÏíá ãÔÇÑßÇÊß

BB code ãÊÇÍÉ
ßæÏ [IMG] ãÊÇÍÉ
ßæÏ HTML ãÚØáÉ

ÇáÇäÊÞÇá ÇáÓÑíÚ


ÌãíÚ ÇáÃæÞÇÊ ÈÊæÞíÊ GMT +2. ÇáÓÇÚÉ ÇáÂä 07:10 PM.