Задачка

  • Автор темы Gost
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Gost

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

kagor

#2
Если все правильно понял:
Код:
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 кол-во отрицательных.
 
G

Guest

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

Barmutik

#4
Код:
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 -сумма того что надо
 
G

Guest

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

kagor

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

Guest

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

Barmutik

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

Код:
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
 
G

Guest

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

Barmutik

#11
По-моему здесь пытаются открыть бесплатный ресурс по написанию программ на бэйскике... и судя по сложности задач.. делает это один человек :unsure:
 
D
#12
Ребята, я совсем ещё только начинаю. В школе задали задачу:данопятизначное число, выделить десятки, сотни и.т.д. Если время есть помогите а ?please :(
 
G

Guest

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

Barmutik

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

Код:
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
 
H

Hetman

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

Guest

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

Guest

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

Guest

#19
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)
 
T
#20
Срочно нужна помощь!!! по бейсику
помогите пожайлуйста


Первая задачка :
конецформыначалоформынайти максимальный элемент массива С(10;15)
и вторая задачка:
дан двумерный массив Z(6;8) найти сумму элементов каждого чётного столбца и произведение элементов в каждой нечётной строке
 
Статус
Закрыто для дальнейших ответов.