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