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

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 2 из 2
  1. #1
    Гость форума

    Регистрация
    12.04.2011
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

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

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

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

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

  2. #2
    Спец PRO +

    Регистрация
    20.08.2009
    Сообщений
    968
    Сказал(а) спасибо
    0
    Поблагодарили 45 раз(а) в 45 сообщениях

    По умолчанию

    Цитата Сообщение от Sw_92 Посмотреть сообщение
    ...первый курс универа...
    Ежели у нас таперича такие университеты - спасибо ФурскенЕ за это :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 ;)

Похожие темы

  1. Visual Basic 6
    от vladimirus в разделе JavaScript
    Ответов: 0
    Последнее сообщение: 06.09.2010, 17:43
  2. Помогите пожалуйста организовать запрос по дате!
    от kskb7771 в разделе Прикладное программирование
    Ответов: 3
    Последнее сообщение: 22.08.2010, 16:27
  3. Помогите пожалуста с двумя задачами по делфи.
    от prettykatty в разделе Прикладное программирование
    Ответов: 1
    Последнее сообщение: 07.08.2010, 16:12
  4. Visual Basic
    от Torkin в разделе СОФТ (SOFT)
    Ответов: 0
    Последнее сообщение: 26.05.2010, 18:04

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •