Задачка

Тема в разделе "Visual Basic", создана пользователем Gost, 5 май 2004.

Статус темы:
Закрыта.
  1. Gost

    Gost Гость

    Люди! Помогите чайнику, пожалуйста, решить задачу для Visual Basic For Applications :
    В массиве С(n) подсчитать кол-во отрицательных и сумму положительных элементов!
     
  2. kagor

    kagor Гость

    Если все правильно понял:
    Код (Text):
    Dim C(100) As Integer
    Dim i, n, x, y As Integer
    x = 0
    y = 0
    n = 100
    For i = 0 To n    
      If C(i) >= 0 Then x = x + C(i)    
      Else y = y + 1    
      End If  
    Next i
    В переменной X сумма положительных, в Y кол-во отрицательных.
     
  3. Guest

    Guest Гость

    Помогите пожалуйста решить задачу в бейсике. дан массив s(20). Получить сумму всех элементов, следующих за
    элементом , равным введенному N
     
  4. Barmutik

    Barmutik Гость

    Код (Text):
    Dim S(20) As Integer
    Dim i, n, Count, Sum As Integer
    Found As Bool
    Sum = 0
    Count = 20
    n = XXXX <- то что надо ввести
    For i = 0 To Count - 1  
    If Found then
      Sum = Sum + C(i)  
    End If
    If S(i) = n Then
     Found = True
    End If
    Next i
    В Sum -сумма того что надо
     
  5. Гость

    Други, помогите написать прогу на визуал бейсике: задача по двумерным масивам. Даны две матрицы Х(6,4); У(7,3). найти среднее арифметическое всех элементов в каждой матрице, буду оч признателен!
     
  6. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Р
    друг заведи новую тему :ph34r:
     
  7. kagor

    kagor Гость

    Не могу понять людей, которые просят написать такие вот программки. Для написание такой программы знания нужны минимальные. Если препод дает такое задание, то он все что для этого нужно объяснил, если же не объяснил, то можно почитать литературу. Прочитать придется не больше 1-2 страницы....
    Одно из двух:
    1 - лентяи...
    2 - полные тугодумы :ph34r:
     
  8. Гость

    Други, написал здесь в надежде, что помогут, обычно на таких форумах дружественная атмосфера (хотя и встречаются редиски:), а делать самому это абсолютно некогда-тем более знаю, что в будущем мне это не пригодится (но долг по контрольной в итоге надо убирать), и препод ниче на дает а предоставленой методичке хрен что поймешь. Так, что если у кого-то в этой области больше тяму, то прошу хелпа!
    Задача:
    прогу на визуал бейсике: задача по двумерным масивам. Даны две матрицы Х(6,4); У(7,3). найти среднее арифметическое всех элементов в каждой матрице, буду оч признателен!
     
  9. Barmutik

    Barmutik Гость

    Вроде так .. хотя на VB на уже с лет 5 не писал ...

    Код (Text):
    Dim X(6, 4) As Integer
    Dim Y(7, 3) As Integer

    Dim i, j, Sum1, Sum2 As Integer

    For i = 0 To 5
    for j = 0 3  
     Sum1 = Sum1 + X(i, j)  
    Next j
    Next i

    For i = 0 To 6
    for j = 0 2  
     Sum2 = Sum2 + Y(i, j)  
    Next j
    Next i

    Print Sum1 / 24
    Print Sim2 / 21
     
  10. Гость

    помогите решить задачу на Бейсике : Заполнить массив Y таким образом, чтобы в нем оказалась вторая половина исходного массива Х, а затем первая
    1 2 3 4 5 6 Х
    4 5 6 1 2 3 Y
     
  11. Barmutik

    Barmutik Гость

    По-моему здесь пытаются открыть бесплатный ресурс по написанию программ на бэйскике... и судя по сложности задач.. делает это один человек :unsure:
     
  12. d4w4

    d4w4 Гость

    Ребята, я совсем ещё только начинаю. В школе задали задачу:данопятизначное число, выделить десятки, сотни и.т.д. Если время есть помогите а ?please :(
     
  13. Гость

    Помогите решить задачу на Бэйсике!!
    Найти колличество минимальных элементов в массиве А(10) заданного случайным образом от 0 до 20-ти.
     
  14. Barmutik

    Barmutik Гость

    Только ввод организовать осталось...

    Код (Text):
    Dim A(10) As Integer
    Dim i, Min, Count As Integer
    Count = 0
    Min = -1
    For i = 0 To 9  
    If A(i) < Min then
    Min = A(i)
    Count = 1
    End If
    if A(i) = Min then
    Count = Count + 1
    End If
    Next i

    Print Min, Count
     
  15. Hetman

    Hetman Гость

    Да-а, эту тему надо было назвать - помоги лентяю. :)
     
  16. Guest

    Guest Гость

    Народ помогите...учитель грузит не хило не знаю как решмить в Basic-е слухайте-Распечатайте в табличном виде (с аргументами) значение функции квадратного корня на интервале [2; 4] с шагом 0,1.....у училки точно крыша поехала
     
  17. Barmutik

    Barmutik Гость

    Вот уж на самом деле лень подумать ...
     
  18. Гость

    Решите пожалуйста 2 программы
    1. даны два вектора (x1 y1 z1) (x2 y2 z2) найти угол между ними.
    2. написать программу перевода величины а в более крупную единицу измерения информации,
    а выражает объем информации в байтах.
     
  19. Guest

    Guest Гость

    Dim c() As Integer
    a = Application.WorksheetFunction.CountA(Range("a:a"))
    ReDim c(a)

    For i = 1 To a
    c(i) = Cells(i, 1)
    Next i

    For i = 1 To a

    If c(i) > 0 Then
    Sum = Sum + c(i)
    End If
    If c(i) < 0 Then
    k = k + 1
    End If
    Next i

    MsgBox ("summa polojitelnih=" & Sum & "kolichestvo otritsatel'nih =" & k)
     
  20. tim

    tim Гость

    Срочно нужна помощь!!! по бейсику
    помогите пожайлуйста


    Первая задачка :
    конецформыначалоформынайти максимальный элемент массива С(10;15)
    и вторая задачка:
    дан двумерный массив Z(6;8) найти сумму элементов каждого чётного столбца и произведение элементов в каждой нечётной строке
     
Загрузка...
Похожие Темы - Задачка
  1. Hehabr
    Ответов:
    1
    Просмотров:
    486
  2. dmalsh
    Ответов:
    1
    Просмотров:
    1.009
  3. varenbko
    Ответов:
    0
    Просмотров:
    1.040
  4. Fillya
    Ответов:
    0
    Просмотров:
    1.093
  5. ferrum
    Ответов:
    1
    Просмотров:
    1.119
Статус темы:
Закрыта.

Поделиться этой страницей