Линейные алгоритмы. Разветвляющиеся алгоритмы. Оператор выбора. Циклические алгоритмы. Массивы. Процедуры и функции

Содержание

Задача 1

Задача 2

Задача 3

Задача 4

Задача 5

Выдержка из работы

Задача 1. Разработайте проект, запрашивающий три стороны треугольника a, b, c (объекты класса TextBox) и вычисляющий его площадь по формуле Герона. Предусмотрите возможность проверки существования треугольника с заданными параметрами. Отобразите на форме формулу Герона. Отобразите на форме формулы рассчитываемых параметров треугольника и изображение рассчитываемого треугольника, добейтесь соответствия выводимого изображения вводимым параметрам.

Листинг программы

Private Sub Command1_Click()

Dim a As Double, b As Double, c As Double

Dim p As Double, S As Double

Задача 2. Разработать игровое приложение «Чайнворд», в состав которого входит не менее 10 слов. Непрерывную прямоугольную спираль из объектов класса TextBox оставьте для заполнения пользователем. В местах соединения слов текстовые элементы замените объектами класса Label с буквами, чтобы играющий знал с чего начинается и чем заканчиваются слова и в тоже время не мог изменить слово. Все описанное выше размещается на первой форме. Введите в проект дополнительные формы с изображениями объектов, названия которых зашифрованы в чайнворде. Предусмотрите кнопку очистки объектов Text для возможной корректировки вводимых букв.

Листинг программы

Dim i As Integer

Private Sub Command1_Click()

Dim words(1 To 10) As String

Dim questions(1 To 10) As String

Задача 3. Разработайте приложение, формирующее на форме испытательный сигнал в виде семи чередующихся вертикальных полос: синего, голубого, сиреневого, розового, красного, оранжевого, желтого и зеленого. Предусмотреть кнопку, изменяющую порядок следования цветных полос на противоположный.

Листинг программы

Private Sub Command1_Click()

Shape1(0).FillColor = RGB(0, 191, 255)

Shape1(1).FillColor = RGB(0, 77, 255)

Shape1(2).FillColor = RGB(200, 162, 200)

Shape1(3).FillColor = RGB(255, 203, 219)

Shape1(4).FillColor = RGB(255, 0, 0)

Shape1(5).FillColor = RGB(255, 128, 0)

Shape1(6).FillColor = RGB(255, 255, 0)

Shape1(7).FillColor = RGB(0, 255, 0)

Задача 4. Массивы Color1 и Color2 состоят каждый из 7 элементов. Их значения - семь цветов (синий, зеленый, голубой, красный, сиреневый, желтый, белый). Значения элементов массива формируются случайным образом и определяют цвет кругов одного радиуса, расположенных в горизонтальный ряд на объектах Picture1 и Picture2 соответственно. Выведите на Picture3 ряд (массив Color3) из 14 кругов: его элементами с нечетными значениями индексов являются элементы массива Color1, а с четными индексами – Color2.

Листинг программы

Private Sub Command1_Click()

Dim color1(1 To 7) As ColorConstants

Dim color2(1 To 7) As ColorConstants

Dim color3(1 To 7) As ColorConstants

color3(1) = RGB(0, 77, 255)

color3(2) = RGB(200, 162, 200)

color3(3) = RGB(255, 203, 219)

color3(4) = RGB(255, 0, 0)

color3(5) = RGB(255, 128, 0)

color3(6) = RGB(255, 255, 0)

color3(7) = RGB(0, 255, 0)

Список литературы