Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
1

Заменить значением C все элементы массива, которые равны K

04.12.2011, 21:01. Просмотров 1123. Ответов 13
Метки нет (Все метки)

С клавиатуры вводится массив целых чисел A размером N, а также целые числа K и C. Заменить значением C все элементы массива, которые равны K. Вывести полученный результат.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2011, 21:01
Ответы с готовыми решениями:

Найти элементы массива Z, которые равны попарному произведению
1. Даны массивы: X из 4 элементов: X(1)=2.5, X(2)=4.6, X(3)=5.6, X(4)=8.4, Y...

Заменить в массиве все отрицательные элементы значением минимального элемента
Ввести одномерный массив x={-1.5,0.1,12,0,-2.2,0.5,-1,0.3} Заменить в нем все...

Заменить отрицательные элементы массива удвоенным значением
Дан массив B(k), k=1;2;3...6. Заменить отрицательные числа их удвоенным...

Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100
Помогите пожалуйста, сам чего-то понаписал, но получалось полная ерунда, так...

Все парные элементы массива заменить произведением максимального и 3-го элементов массива
Вот вторая задачка: "Создать одномерный массив M, содержащий 12 целых чисел....

13
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
04.12.2011, 21:01  [ТС] 2
помогите, пожалуйста, не могу разобраться что к чему
0
CatsTail
05.12.2011, 00:04 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
31
32
33
34
35
36
37
38
39
Sub Main
 
Dim N as integer
Dim K as integer
Dim C as integer
Dim i  as integer
 
     N=Val(InputBox("Введите размер массива"))
 
     If (N <= 0) Or (N > 1000) Then
        MsgBox "Вы ошиблись"
        Exit Sub
     end if
 
     Redim A(1 to N) As integer
 
     for i=1 to N
 
         A(i)=Val(InputBox("Введите "+Cstr(i)+"-й элемент массива"))
 
     next i
 
     C=Val(InputBox("Введите C"))
     K=Val(InputBox("Введите K"))
 
     for i=1 to N
 
         If A(i)=K then A(i)=C
 
     Next i
 
 
    For i=1 to N
 
         Debug.print "A("+cstr(i)+")="+Cstr(A(i))
 
    Next i
 
End Sub
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
05.12.2011, 22:15  [ТС] 4
огромное спасибо! только у меня вопрос, а как вывести это? увидеть результат?
0
CatsTail
06.12.2011, 00:17 5
А в какой среде Вы программируете?
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
06.12.2011, 22:32  [ТС] 6
боюсь, что я Вам неверно отвечу... ну в Microsoft Visual Studio 2005 а там в Console Application. но, наверное, я не то сказала?
0
CatsTail
07.12.2011, 22:37 7
Все то! Только Вы задали вопрос не в той теме. Вам нужно было в Vb.Net
Для vbnet-а код нужно будет подправить. И вместо MsGbox/Inputbox использовать операции чтения с консоли и записи на консоль.
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
08.12.2011, 21:48  [ТС] 8
оох что же меня все не туда заносит. большое спасибо!
0
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
12.12.2011, 16:07  [ТС] 9
Извините, а Вы не можете мне подсказать с этим? а то мне упорно никто не хочет помогать....
0
Alex77
12.12.2011, 16:42 10
Мариана Леонтье,
а то мне упорно никто не хочет помогать....
Немного не так:
Вы упорно не хотите ничего делать сами.
Вам дали готовый почти готовый код
Всего-то надо вместо дебаггера вывести результат в другое место.
В месагу, в текстбокс, в лабел...
Alex77
12.12.2011, 16:43 11
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
35
36
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A() As Integer
        Dim N As Integer
        Dim K As Integer
        Dim C As Integer
        Dim i As Integer
        Dim MI As String
        Dim Mr As String
        Randomize()
        N = Val(InputBox("Введите размер массива", " ", 15))
        If (N <= 0) Or (N > 1000) Then
            MsgBox("Вы ошиблись")
            Exit Sub
        End If
        ReDim A(N)
        Mr = ""
        For i = 1 To N
            A(i) = Val(InputBox("Введите " + CStr(i) + "-й элемент массива", "Ввод элементов", Int(9 * Rnd() + 1)))
            Mr = IIf(Mr = "", A(i), Mr & "," & A(i))
        Next i
        K = Val(InputBox("Введите что будем менять", " "))
        C = Val(InputBox("Введите на что будем менять", " "))
        For i = 1 To N
            If A(i) = K Then A(i) = C
        Next i
        MI = ""
        For i = 1 To N
            MI = IIf(MI = "", A(i), MI & "," & A(i))
        Next i
        MsgBox("В исходном массиве" & vbCrLf _
        & Mr & vbCrLf _
        & "Произведена замена всех элементов = " & K & " на " _
        & C & vbCrLf & MI, 64, "Результат")
    End Sub
End Class
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
12.12.2011, 17:48  [ТС] 12
почему я упорно не хочу ничего делать? в другой теме(правильной) я написала свои попытки и попросила посмотреть, есть ли там хоть что-то верное, но никто не отозвался.
0
Alex77
12.12.2011, 17:50 13
в другой теме(правильной)
Блин. Опять дал ответ в неправильной теме..
Хоть пометки делайте где темы правильные, а где неправильные.
А лучше не плодите одинаковые темы
Мариана Леонтье
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 12
12.12.2011, 17:59  [ТС] 14
все очень не понятно... но спасибо большое!
0
12.12.2011, 17:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2011, 17:59

Удалить из массива все элементы, которые состоят из одинаковых цифр
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

Все положительные элементы одномерного массива, кратные трем заменить на число 1
Все положительные элементы одномерного массива, кратные трем заменить на число...

Все элементы главной диагонали заменить наибольшим элементом всего массива
Все элементы главной диагонали заменить наибольшим элементом всего массива! не...


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

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

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