PDA

Просмотр полной версии : Помогите с двумя задачами по visual basic пожалуйста :(



Sw_92
12.04.2011, 23:12
Задача 1
В группе 10 студентов писали контрольную работу. Составьте программу, позволяющую посчитать сколько студентов полуили оценку 2, оценку 3, оценку 4, оценку 5.

Задача 2
Найти среднее геометрическое только тех элементов в массиве X(n), которые попадают в интервал [a,b]. Границы интервала и элементы массива задать произвольно.

Помогите пожалуйста :( первый курс универа, а я в этом нифига вообще не понимаю :( помогите пожалуйста :(:(:blush:

Cheechako
17.04.2011, 15:57
...первый курс универа...
Ежели у нас таперича такие университеты - спасибо ФурскенЕ за это :mad:
DIM A(10)
REM как-то задаются значения A(0),..., A(9)
A(0) = 3
A(1) = 2
A(5) = 5
A(7) = 2

REM счётчики для каждого случая
c2 = 0
c3 = 0
c4 = 0
c5 = 0

FOR I = 0 TO 9
IF A(I) = 2 THEN c2 = c2 + 1
IF A(I) = 3 THEN c3 = c3 + 1
IF A(I) = 4 THEN c4 = c4 + 1
IF A(I) = 5 THEN c5 = c5 + 1

NEXT I

PRINT c2, c3, c4, c5

STOP
END
***
DIM x(10)

REM определяются значения x(0),...,x(n); N=10 выбрано из соображений лени :)
x(1) = 0
x(2) = 1
x(3) = 2
x(4) = 3
x(5) = 4
x(6) = 2
x(7) = 1


Z0 = 1

A = 2
B = 3
N = 0

FOR I = 0 TO 9

IF x(I) >= A GOTO 10
GOTO 100
10 IF x(I) <= B GOTO 20
GOTO 100
20 N = N + 1
Z0 = Z0 * x(I)

100 NEXT I

IF N <= 0 GOTO 200
Z1 = Z0 ^ (1 / N)
PRINT N, Z1
STOP

200 PRINT "error - нет попаданий в заданный интервал"

STOP
END
В QBasic'е 4.5 работает, должно работать и в VB ;)