PDA

Показать полную графическую версию : [решено] Как подсчитать сумму нескольких переменных


Не флужу
12-08-2009, 10:30
Не знал как правильно тему назвать :) Помогите

Предположим есть 9 переменных:

$1=1
$2=1
$3=0
$4=1
$5=0
$6=0
$7=1
$8=1
$9=1

И ещё две переменыые которые назову индекс1 и индекс2:

$index1=3
$index2=7

Как можно заставить скрипт считать сумму чисел, присвоенным переменным в диапазоне index1:index2

$vyvod=$3+$4+$5+$6+$7

kaster
12-08-2009, 10:37
Переменные заносим в массив. Потом просто делай классический цикл для суммы

Dim $c[10]
$c[1]=1
$c[2]=1
$c[3]=0
$c[4]=1
$c[5]=0
$c[6]=0
$c[7]=1
$c[8]=1
$c[9]=1

$index1 = 3
$index2 = 7

$s = 0
For $i = $index1 to $index2
$s = $s + $c[$i]
Next

MsgBox(0, '', $s)

Не флужу
12-08-2009, 11:18
Мда, надобыло сразу массив задавать... :lol:
kaster, Спасибо
Решена проблема- то :)

Creat0R
12-08-2009, 15:22
Переменные заносим в массив »
Необязательно:

$1 = 1
$2 = 1
$3 = 0
$4 = 1
$5 = 0
$6 = 0
$7 = 1
$8 = 1
$9 = 1

$index1 = 3
$index2 = 7

$iCalc = 0

For $i = $index1 To $index2
$iCalc += Eval($i)
Next

MsgBox(64, 'Title', $iCalc)

А тему можно назвать также как и звучит задача: «Как подсчитать сумму нескольких переменных».

Не флужу
13-08-2009, 06:24
Creat0R, Хороший код. Спасибо




© OSzone.net 2001-2012