Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
[HAS] UNDEAD
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 10
1

Определить какие товары продаются в каждом магазине; какие товары продают только в одном магазине

16.05.2012, 20:48. Просмотров 1075. Ответов 1
Метки нет (Все метки)

Помогите решить ребус!

1. В трех магазинах продают некоторые виды товаров из имеющегося списка. Определить какие товары продаются в каждом магазине; какие товары продают только в одном магазине; какие товары есть только в двух магазинах.
2. Разгадайте ребус АСТРА + ИРИС = ЦВЕТЫ.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2012, 20:48
Ответы с готовыми решениями:

Определить какие товары изготавливает только один завод
Сделать с использованием ListBox, Button На N заводах изготавливают некоторые виды товаров из...

Определить на сколько процентов изменились цены на товары в каждом магазине
Народ,помогите пожалуйста!!!!!!Срочно!!!!Заранее спасибо!!!! 1. Один и тот же товар в одном из...

Множества: определить товары, которые есть во всех \ хотя бы в одном магазине
Здравствуйте, форумчане. У меня возникла проблема: Я совсем зеленый еще в паскале, а у меня на...

Определить для каждой марки телефонов, какие из них есть в каждом магазине, и каких нет во всех магазинах
Задан некоторый набор телефонов. Определить для каждого из марок телефонов, какие из них имеются в...

Определить, какие из этих имен встречаются во всех классах, какие есть хотя бы в двух классах, и какие - только в одном классе
Для каждого из четырех классов указаны имена девочек, обучающихся в них. Определить, какие из этих...

1
[HAS] UNDEAD
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 10
12.06.2012, 23:20  [ТС] 2
Как-то так!

1.

vb.net
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
Public Class Form1
    Dim FIO(10) As String
    Dim k As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
        TextBox1.Clear()
 
        k = 10
        FIO(0) = "Хлеб"
        FIO(1) = "Молоко"
        FIO(2) = "Кефир"
        FIO(3) = "Сметана"
        FIO(4) = "Картошка"
        FIO(5) = "Помидоры"
        FIO(6) = "Огурцы"
        FIO(7) = "Лук"
        FIO(8) = "Колбаса"
        FIO(9) = "Рыба"
 
        For i = 0 To k - 1
            ListBox1.Items.Add(FIO(i))
        Next i
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox1.SelectedIndex
        s1 = ListBox1.SelectedItem
        ListBox2.Items.Add(s1)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox2.SelectedIndex
        If i1 >= 0 Then
            s1 = ListBox2.SelectedItem
            ListBox2.Items.RemoveAt(i1)
            ListBox2.Refresh()
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox1.SelectedIndex
        s1 = ListBox1.SelectedItem
        ListBox3.Items.Add(s1)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox3.SelectedIndex
        If i1 >= 0 Then
            s1 = ListBox2.SelectedItem
            ListBox3.Items.RemoveAt(i1)
            ListBox3.Refresh()
        End If
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox1.SelectedIndex
        s1 = ListBox1.SelectedItem
        ListBox4.Items.Add(s1)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim i1 As Integer
        Dim s1 As String
        i1 = ListBox4.SelectedIndex
        If i1 >= 0 Then
            s1 = ListBox2.SelectedItem
            ListBox4.Items.RemoveAt(i1)
            ListBox4.Refresh()
        End If
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim i, j, i1, i2, i3 As Integer
        Dim s As String
        Dim flag As Integer = 0
        TextBox1.Text = "Продается в каждом магазине:" + vbCrLf
        TextBox1.Text = TextBox1.Text + "-------------------------------" + vbCrLf
        TextBox2.Text = "Продается в одном магазине" + vbCrLf
        TextBox2.Text = TextBox2.Text + "-------------------------------" + vbCrLf
        TextBox3.Text = "Продается в 2-х магазинах" + vbCrLf
        TextBox3.Text = TextBox3.Text + "-------------------------------" + vbCrLf
        For i = 0 To k - 1
            s = FIO(i)
 
            i1 = 0
            For j = 0 To ListBox2.Items.Count() - 1
                If ListBox2.Items(j) = s Then
                    i1 = 1                      ' Строка в списке ListBox2 найдена!
                End If
            Next j
 
            i2 = 0
            For j = 0 To ListBox3.Items.Count() - 1
                If ListBox3.Items(j) = s Then
                    i2 = 1                       ' Строка в списке ListBox3 найдена!
                End If
            Next j
 
            i3 = 0
            For j = 0 To ListBox4.Items.Count() - 1
                If ListBox4.Items(j) = s Then
                    i3 = 1                        ' Строка в списке ListBox4 найдена!
                End If
            Next j
 
            If i1 = 1 And i2 = 1 And i3 = 1 Then    ' Строка s не найдена ни в одном списке
                TextBox1.Text = TextBox1.Text + s + vbCrLf  ' Получение списка товаров
                flag = 1
            End If
        Next i
 
 
        '2
        For i = 0 To k - 1
            s = FIO(i)
 
            i1 = 0
            For j = 0 To ListBox2.Items.Count() - 1
                If ListBox2.Items(j) = s Then
                    i1 = 1                      ' Строка в списке ListBox2 найдена!
                End If
            Next j
 
            i2 = 0
            For j = 0 To ListBox3.Items.Count() - 1
                If ListBox3.Items(j) = s Then
                    i2 = 1                       ' Строка в списке ListBox3 найдена!
                End If
            Next j
 
            i3 = 0
            For j = 0 To ListBox4.Items.Count() - 1
                If ListBox4.Items(j) = s Then
                    i3 = 1                        ' Строка в списке ListBox4 найдена!
                End If
            Next j
 
            If i1 = 1 And i2 + i3 = 0 Or i2 And i3 + i1 = 0 Or i3 And i1 + i2 = 0 Then
                TextBox2.Text = TextBox2.Text + s + vbCrLf  ' Получение списка товаров
                flag = 1
            End If
        Next i
 
        '3
        For i = 0 To k - 1
            s = FIO(i)
 
            i1 = 0
            For j = 0 To ListBox2.Items.Count() - 1
                If ListBox2.Items(j) = s Then
                    i1 = 1                      ' Строка в списке ListBox2 найдена!
                End If
            Next j
 
            i2 = 0
            For j = 0 To ListBox3.Items.Count() - 1
                If ListBox3.Items(j) = s Then
                    i2 = 1                       ' Строка в списке ListBox3 найдена!
                End If
            Next j
 
            i3 = 0
            For j = 0 To ListBox4.Items.Count() - 1
                If ListBox4.Items(j) = s Then
                    i3 = 1                        ' Строка в списке ListBox4 найдена!
                End If
            Next j
 
            If i1 = 1 And i2 = 1 And i3 = 0 Or i3 And i3 + i1 And i2 = 1 Or i3 And i1 + i2 = 1 Then
                TextBox3.Text = TextBox3.Text + s + vbCrLf  ' Получение списка товаров
                flag = 1
            End If
        Next i
    End Sub
End Class
Ну и отдельно ребус!

2.

vb.net
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim А, С, Т, Р, И, Ц, В, Е, Ы As Integer
        Dim sum1, sum2, result As Integer
        Dim k As Long = 0
        TextBox1.Clear()
        TextBox1.Text += "АСТРА + ИРИС = ЦВЕТЫ" + vbCrLf
        TextBox1.Text += "-------------------" + vbCrLf
 
        For А = 1 To 9
            For С = 1 To 9
                If С <> А Then
                    For Т = 0 To 9
                        If Т <> С And Т <> А Then
                            For Р = 0 To 9
                                If Р <> Т And Р <> С And Р <> А Then
                                    For И = 1 To 9
                                        If И <> Р And И <> Т And И <> С And И <> А Then
                                            For Ц = 1 To 9
                                                If Ц <> И And Ц <> Р And Ц <> Т And Ц <> С And Ц <> А Then
                                                    For В = 0 To 9
                                                        If В <> Ц And В <> И And В <> Р And В <> Т And В <> С And В <> А Then
                                                            For Е = 0 To 9
                                                                If Е <> В And Е <> Ц And Е <> И And Е <> Р And Е <> Т And Е <> С And Е <> А Then
                                                                    For Ы = 0 To 9
                                                                        If Ы <> Е And Ы <> В And Ы <> Ц And Ы <> И And Ы <> Р And Ы <> Т And Ы <> С And Ы <> А Then
                                                                            sum1 = А * 10000 + С * 1000 + Т * 100 + Р * 10 + А        'АСТРА
                                                                            sum2 = И * 1000 + Р * 100 + И * 10 + С                    'ИРИС
                                                                            result = Ц * 10000 + В * 1000 + Е * 100 + Т * 10 + Ы      'ЦВЕТЫ
                                                                            k = k + 1
                                                                            If sum1 + sum2 = result Then
                                                                                TextBox1.Text += CStr(sum1) + " + " + CStr(sum2) + " = " + CStr(result) + vbCrLf
                                                                            End If
                                                                        End If
                                                                    Next Ы
                                                                End If
                                                            Next Е
                                                        End If
                                                    Next В
                                                End If
                                            Next Ц
                                        End If
                                    Next И
                                End If
                            Next Р
                        End If
                    Next Т
                End If
            Next С
        Next А
 
        TextBox1.Text += vbCrLf + "Количество переборов: " + CStr(k) + vbCrLf
        TextBox1.Text += "----------IN THE END----------"
    End Sub
End Class
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2012, 23:20

На товары, продающиеся в магазине, временно установлены скидки в зависимости от категории, к которой относитс

Множества. Какие газеты не поступают ни в один из киосков; какие газеты бывают в каждом; какие есть хотя бы в одном
В три газетных киоска поступают газеты из имеющегося списка. Определить какие газеты не поступают...

Опишите используя запись товар( наименование, старая цена, новая цена). Определить на какие товары повысятся цены и на сколько процентов
Опишите используя запись товар( наименование, старая цена, новая цена). Определить на какие товары...


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

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

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