Задачка

  • Автор темы 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 -сумма того что надо
 

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

kagor

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

Гость
#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
 

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

Barmutik

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

d4w4

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

Гость
#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.....у училки точно крыша поехала
 

Гость
#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

tim

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


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