ãÔÇåÏÉ ÇáäÓÎÉ ßÇãáÉ : ÓÄÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇá


sandred
26-04-2012, 09:39 PM
íÌæÒ ÊÓãíÉ ÇÓã ÇáãÊÛíÑ È for ()
ÚãÑ ÇáØÇáÈ íÊã ÊÛÒíäå Ýí ãÊÛíÑ ãä ÇáäæÚ ............
ÇãÑ ÊßÑÇÑ íÊæÞÝ ÚäÏ ÊäÝíÐ ãÌãæÚÉ ãä ÇáÇæÇãÑ ÇáãÑÇÏ ÊßÑÇÑåÇ ÚäÏãÇ íßæä ÔÑØ äåÇíÉ ÇáÊßÑÇÑ ÎØÇ..............
sum=0
x=0
do while x<5
sum=sum+x
x=x+1
loop
average=sum/x
ÞíãÉ average=................
ÇÑÌæ ÇáÑÏ ãÚ ÇáÊÝÓíííííííííííííííííííííííÑ

ÇáÚÈÏ ÇáÎÇÖÚ ááå
27-04-2012, 01:20 AM
Ãæá ÓÄÇá x áÇäå ãä ÇáÇÓãÇÁ ÇáãÍÌæÒÉ

2- ÃãÑ do while

3- 1.8

msk325
27-04-2012, 11:13 PM
ÇáÇÌÇÈÉ

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

sandred
28-04-2012, 02:13 AM
Çíå ÇáÝÑÞ Èíä ÇáßáãÉ ÇáãÍÌæÒå æÇáËÇÈÊ ÇáÌæåÑí