Задачка

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

Gost

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

kagor

Если все правильно понял:
Код:
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

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

Barmutik

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

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

kagor

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

Guest

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

Barmutik

Вроде так .. хотя на 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

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

Barmutik

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

d4w4

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

Guest

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

Barmutik

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

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

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

Guest

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

Barmutik

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

Guest

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

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)
 
T

tim

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


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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!