Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
uzervadim
0 / 0 / 0
Регистрация: 08.03.2012
Сообщений: 3
#1

Создать массив Р по формуле и определить его максимальный элемент - VB

08.03.2012, 15:39. Просмотров 584. Ответов 2
Метки нет (Все метки)

В заданном массиве Е (14) есть несколько нулевых элементов. Создать массив Р по формуле Р (и) = Е (и) - Е (и - 1), где i = 2,3, ..., 14 и определить максимальный элемент массива. В массиве Е нулевые элементы заменить значение максимального элемента массива Р. вывести массив Р, его максимальный элемент и преобразован массив Е.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2012, 15:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать массив Р по формуле и определить его максимальный элемент (VB):

Определить максимальный элемент массива и его порядковый номер - VB
Господа-знатоки! Очень прошу помочь со следующей задачей: Определить максимальный элемент массива B(50) и его порядковый номер.Условия и...

Создать динамический массив. Найти в нем максимальный элемент - VB
VB 6 Создать динамический массив. Найти в нем максимальный элемент Добавлено через 1 минуту Это на C# using System; using...

Из каждых трех стоящих рядом элементов определить минимальный элемент и переписать его в массив В - VB
№1 Дан одномерный массив А неупорядоченных целых чисел. Из каждых трех стоящих рядом элементов определить минимальный элемент и...

Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы - VB
Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы. найденные минимальные элементы элементы...

Ввести массив a(n). найти максимальный элемент массива. Четные элементы массива разделить на максимальный - VB
Вывести полученный массив.

Найти максимальный элемент массива и его номер - VB
Найти максимальный элемент массива Х=(х1,х2,....,хn)и его номер. Записать элементы массива Х подряд в массив Y=(y1,y2,.....yn),поменяв...

2
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
08.03.2012, 16:41 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
31
32
33
34
Dim e(1 To 14), p(1 To 13), a, c As Integer
Randomize
List1.Clear
List1.AddItem "masiv e"
For i = 1 To 14
 e(i) = Int(Rnd(1) * 25)
 List1.AddItem e(i)
Next i
For i = 1 To 14
 If e(i) <> 0 Then a = a + 1
Next i
If a = 14 Then
 List1.Clear
 For i = 1 To 14
  e(i) = e(i) * Int(Rnd(1) + 0.5)
  List1.AddItem e(i)
 Next i
End If
List1.AddItem "masiv p "
For i = 2 To 14
 p(i - 1) = e(i) - e(i - 1)
 List1.AddItem p(i - 1)
Next i
List1.AddItem "max"
c = p(1)
For i = 2 To 13
 If p(i) > c Then c = p(i)
Next i
List1.AddItem c
List1.AddItem "new e"
For i = 1 To 14
 If e(i) = 0 Then e(i) = c
 List1.AddItem e(i)
Next i
0
Linoge
Эксперт Hardware
2226 / 1548 / 257
Регистрация: 25.10.2011
Сообщений: 4,716
26.03.2012, 09:43 #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
Private Sub Command1_Click()
    Dim e(1 To 14), p(2 To 14)
    t1 = ""
    t2 = ""
    Max = -99
    For i = 1 To 14
        e(i) = Int(Rnd() * 30 - 20)
        If e(i) < -10 Then e(i) = 0
        t1 = t1 & e(i) & " "
        If i > 1 Then
            p(i) = e(i) - e(i - 1)
            If p(i) > Max Then Max = p(i)
            t2 = t2 & p(i) & " "
        End If
    Next
    Text1 = t1
    Text2 = t2
    Text3 = Max
    t1 = ""
    For i = 1 To 14
        If e(i) = 0 Then e(i) = Max
        t1 = t1 & e(i) & " "
    Next
    Text4 = t1
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2012, 09:43
Привет! Вот еще темы с ответами:

Найти максимальный элемент массива и его номер - VB
uses crt; var n,i,a,mn,mx,imn,imx:integer; begin write('n='); read(n); writeln('Введите ',n,' целых чисел:'); read(a); mn:=a;...

Найти максимальный элемент массива и его номер - VB
Найти максимальный элемент массива Х=(х1,х2,....,хn)и его номер. Записать элементы массива Х подряд в массив Y=(y1,y2,.....yn),поменяв...

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат - VB
дан массив. каждый его элемент,больший 4, заменить на его квадрат

Найти максимальный элемент среди первых 10 элементов массива и его номер - VB
напишите пожалуйста код, для того чтобы найти максимальный элемент среди первых 10 элементов массива и его номер. массив x = (-10; 12;...


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

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

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