Пусть целое возвращаемое значение k:
1, если шар красного цвета,
k= 2, если шар синего цвета,
3, если шар желтого цвета
- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Проект Три шара презентация
Проект три шара
Слайд 1Проект Три шара
Постановка задачи:
Дано число N – количество вызовов функции ,
которая возвращает шар одного из трех цветов: красный, синий или желтый. Сколько было шаров каждого цвета ?
Пусть целое возвращаемое значение k:
1, если шар красного цвета,
k= 2, если шар синего цвета,
3, если шар желтого цвета
Пусть целое возвращаемое значение k:
1, если шар красного цвета,
k= 2, если шар синего цвета,
3, если шар желтого цвета
Слайд 3Public Class Form1
Dim N, k, c, g, i As
Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
N = Val(TextBox1.Text): : k = 0 : c = 0 : g = 0
Круг()
For i = 1 To N
If (Цвет_шара() = 1) Then k = k + 1
ElseIf (Цвет_шара() = 2) Then c = c + 1
Else g = g + 1
End If
TextBox2.Text = Str(c)
TextBox3.Text = Str(k)
TextBox4.Text = Str(g)
Next
End Sub
Public Function Цвет_шара() As Integer
Dim ii As Integer
Randomize()
Return (CInt(Int((Rnd() * 3) + 1)))
End Function
Public Sub Круг()
Me.CreateGraphics.FillEllipse(Brushes.Blue, 400, 30, 50, 50)
Me.CreateGraphics.FillEllipse(Brushes.Red, 400, 100, 50, 50)
Me.CreateGraphics.FillEllipse(Brushes.Yellow, 400, 170, 50, 50)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
N = Val(TextBox1.Text): : k = 0 : c = 0 : g = 0
Круг()
For i = 1 To N
If (Цвет_шара() = 1) Then k = k + 1
ElseIf (Цвет_шара() = 2) Then c = c + 1
Else g = g + 1
End If
TextBox2.Text = Str(c)
TextBox3.Text = Str(k)
TextBox4.Text = Str(g)
Next
End Sub
Public Function Цвет_шара() As Integer
Dim ii As Integer
Randomize()
Return (CInt(Int((Rnd() * 3) + 1)))
End Function
Public Sub Круг()
Me.CreateGraphics.FillEllipse(Brushes.Blue, 400, 30, 50, 50)
Me.CreateGraphics.FillEllipse(Brushes.Red, 400, 100, 50, 50)
Me.CreateGraphics.FillEllipse(Brushes.Yellow, 400, 170, 50, 50)
End Sub
End Class
