Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
delano
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 4
1

Программа про одномерный массив.

23.11.2010, 22:44. Просмотров 646. Ответов 3
Метки нет (Все метки)

Есть задачка..нужно написать текст программы..
Собcтвенно сама задача:

В одномерном массиве из 20 вещественных элементов вычислить:
1. Количество элементов массива меньших С.
2. Сумму целых частей элементов массива расположенных после первого отрицательного элемента.

Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 22:44
Ответы с готовыми решениями:

Перевести одномерный буквенный массив в двумерный массив размером 2.5
Из данного примера не могу никак додумать... Dim A as integer Cls ...

Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив
задано массив целых числе М * Н найти элементы, которые делятся на 7 и...

вопрос про массив
помогите написать прогу, которая в заданном целочисленном массиве a1, a2, … ,...

Одномерный массив.
Вычислить значения элементов вектора из 40 чисел по формуле (см.влож.) ...

на ОДНОМЕРНЫЙ МАССИВ
Заданы два массива. Создать один массив,в котором идут вначале четные элементы,...

3
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
24.11.2010, 01:02 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim A(20) As Single, C As Single, count As Integer, i As Integer, sum As Single
Dim txt As String, check As Boolean
C = InputBox("c")
txt = ""
check = False
sum = 0
count = 0
For i = 1 To 20
A(i) = 100 * Rnd - 50
txt = txt & A(i) & " "
If A(i) < 0 Then
check = True
ElseIf A(i) > 0 And check = True Then
sum = sum + Fix(A(i))
End If
If A(i) = C Then count = count + 1
Next i
MsgBox txt & Chr(13) & Число элементов равных " & C & "=" & count & Chr(13) & "Сумма= " & sum
1
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
24.11.2010, 11:40 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Command1_Click()
Dim A(20) As Single
  ' или
   'Dim A(): A = Array(, 1, 2, 3, 4, 5, 6, 7, -8, _
   ' 1, 2, -3, 5, 1, 1, 1, 1, 1, 1, 1, 1)
        'при этом строка 12 /Randomize/ и 14 /A(i) = Rnd * 101 - 50/ закомент.
Dim C As Single, Kc As Integer, S_ As Single
Dim i As Integer, st As String, st1 As String
Dim tr As Boolean
 
C = Val(InputBox("C-?", , 10))
Randomize
For i = 1 To 20
  A(i) = Rnd * 101 - 50 '
  st = st & A(i) & "  "
    
    If A(i) < C Then Kc = Kc + 1
    
    If tr Then
       S_ = S_ + Fix(A(i))
       st1 = st1 & Fix(A(i)) & " + "
    End If
    
    If A(i) < 0 Then tr = True
    
Next i
MsgBox st & vbCrLf & _
"<C-- " & Kc & vbCrLf & _
"S_int=" & Left(st1, Len(st1) - 3) & " = " & S_
End Sub
1
delano
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 4
25.11.2010, 22:09  [ТС] 4
благодарю)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2010, 22:09

ОДНОМЕРНЫЙ МАССИВ
ПОмогите пожалуйста решить задачу: заданы два одномерных массива.Создать один...

одномерный массив
Помогите пожалуйста!!! Дан массив А определиь индекс и значение наибольшего...

одномерный массив
Помогите пожалуйста с кодом для задачи: Дано натуральное число n,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru