|
ÃÑÔíÝ ÇáãäÊÏì åäÇ äÞá ÇáãæÖæÚÇÊ ÇáãßÑÑÉ æÇáÑæÇÈØ ÇáÊì áÇ ÊÚãá |
|
ÃÏæÇÊ ÇáãæÖæÚ | ÇÈÍË Ýí ÇáãæÖæÚ | ÇäæÇÚ ÚÑÖ ÇáãæÖæÚ |
#3
|
|||
|
|||
![]()
ÇáÇÌÇÈÉ
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
__________________
ãÚ ÊÍíÇÊ Ç / ãÍãÏ ÓáÇãå
|
ÇáÚáÇãÇÊ ÇáãÑÌÚíÉ |
|
|