одномерный массив (QBasic)

[shumaher211]

помогите решить задачку:
Определить средний рост девушек и юношей одного класса, в классе учиться n учеников.
и если не сложно, скиньте материал по одмомерным и двумерным массивам(а то учитель нифига не обьясняет и сразу задачи спрашивает)

[Sazary]

Нужен общий средний рост, или отдельно девушек и юношей?
Ниже код для общего.. Если нужно второе, то как вводятся данные? (как отличить девушку от юноши)

DIM i, n AS INTEGER
DIM mas(n) AS INTEGER
DIM sred AS SINGLE
CLS
INPUT "Vvedite n: "; n
REDIM mas(n)
sred = 0
FOR i = 1 TO n
 PRINT USING "vvedite rost ## uchenika: "; i;
 INPUT mas(i)
 sred = sred + mas(i)
NEXT i
sred = sred / n
PRINT USING "Sredniy rost uchenikov: ###.##"; sred
END

[shumaher211]

огромное спасибо!!!!
нужно второе, но как вводить данные- хз, я завтра попробую спросить учителя, может даст маленькую подсказку.
P.S. тут нигде не нашел что типо кнопки "спасибо", есть что то типо этого?

[Sazary]

shumaher211 Можно так: сделать двухмерный массив mas(n,2)
mas(n,1) будет хранить рост, а mas(n,2) - пол.

DIM i, n, k1, k2 AS INTEGER
DIM mas(n, 2) AS INTEGER
DIM sred1, sred2 AS SINGLE
CLS
INPUT "Vvedite n: "; n
REDIM mas(n, 2)
sred1 = 0
sred2 = 0
FOR i = 1 TO n
 PRINT USING "vvedite rost ## uchenika: "; i;
 INPUT mas(i, 1)
 PRINT "eto yunosha (1) ili devushka(2) ? ";
 INPUT mas(i, 2)
 IF mas(i, 2) = 1 THEN
  sred1 = sred1 + mas(i, 1)
  k1 = k1 + 1
 ELSE
  sred2 = sred2 + mas(i, 1)
  k2 = k2 + 1
 END IF

NEXT i
IF k1 > 0 THEN
 sred1 = sred1 / k1
 END IF
IF k2 > 0 THEN
 sred2 = sred2 / k2
 END IF
PRINT USING "Sredniy rost yunoshey (##): ###.##"; k1; sred1
PRINT USING "Sredniy rost devushek (##): ###.##"; k2; sred2


END

P.S. тут нигде не нашел что типо кнопки "спасибо", есть что то типо этого?

Она замаскирована под весы (под ником) и называется "отзыв" ))

[shumaher211]

хм....то что её можно решить двухмерным массивом даже в голову не пришло, наверн просто думал что одномерным проще.

З.Ы. нашел)))

[Sazary]

shumaher211 Можно и с одномерными. Тогда будет два одномерных массива (для юношей и для девушек).. Сложности не добавляет.. Как удобнее, так и делать )

[shumaher211]

ешё раз спасибо=)