Завдання на самостійну роботу(в,вс,лс)

ЗАВДАННЯ 7.4. Створіть проект для обчислення значення функції згідно з варіантом індивідуального завдання. Результати повинні виводитися на окремій формі.

Приклад виконання

ЗАВДАННЯ СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ЗНАЧЕННЯ ФУНКЦІЇ

cx³+a, якщо x=5 і b+c<12

y= ln(x-a), якщо с≤ x <b і x≠5

b+3c, в інших випадках

Вихідні дані: x, а, b, с.

Результат. Вивести на формі y.

Обов'язкові умови. Введення вихідних даних організувати за допомогою функції InputBox. Розрахунки і виведення даних повинні здійснюватися при натисканні відповідної кнопки.

Порядок виконання завдання

1. Створіть новий проект.

2. Змініть назву форми: frmVichFunc.

3. Розмістіть на формі об'єкти, відредагуйте властивості форми і об'єктів відповідно до рис. 7.6.

4. Для об'єктів Label1 і Text1 властивість Visible встановіть в в положення False.

Рис. 7.6 Приклад форми.

5. Для кнопки CmdВихід створіть процедуру:

Private Sub CmdВихід _Click()

End

End Sub

6. Для кнопки CmdРозрахунок створіть процедуру:

Private Sub Command1Розрахунок_Click()

Dim a, x, c, b As Integer

Dim y As Single

a = InputBox("Уведіть а", "а")

b = InputBox("Уведіть b", "b")

c = InputBox("Уведіть c", "c")

x = InputBox("Уведіть x", "x")

If x = 5 And b + c < 12 Then

y = c * x ^ 3 + a

ElseIf с <= x And x < b And x <> 5 Then

y = Log(x - a)

Else

y = b + 3 * c

End If

Text1.Text = y

Label1.Visible = True

Text1.Visible = True

End Sub

4. Зберіжіть проект та форму в папці ЛАБ7 з іменами Лр7_Зад4_P_Прізвище й Лр7_Зад4_F_ Прізвище.

Лабораторна робота №8. Проектування додатків vb6, що містять циклічні алгоритмічні структури. Заняття 1. Цикли з лічильником

Циклом называется процесс, в котором одни и те же действия повторяются многократно.

Циклы по одной из классификаций разделяют на два основных типа:

• циклы со счетчиком (с известным числом повторений);

• циклы с условием, в которых действия повторяются до тех пор, пока выполняется определенное условие или пока не будет выполнено определенное условие.

Цикли з лічильником

Многократное повторение одного действия или группы действий часто встречается при написании программ. Простейший способ повторить действия в программе — вернуться на определенную строку программы и выполнить ее вновь. Самый простой способ это сделать — использовать оператор безусловного перехода GoTo.

Формат оператора GoTo Метка где Метка – метка строки кода (оператора), с которой продолжится выполнение программы.

Замечание. Частое употребление оператора GoTo приводит к запутыванию программы. Программисты считают употребление оператора GoTo плохим тоном. Старайтесь реже его употреблять.

Например:

metka:

Print "ПРИВЕТ!!!" — бесконечный цикл. ‘[Ctrl+Break] — выход из цикла

GoTo metka:

В Visual Basic для организации циклов с известным количеством повторений используется оператор For...Next.

Формат оператора For Счетчик = Начало То Конец [Step Шаг] [тело цикла] [Exit For] Next [Счетчик] Здесь Счетчик — числовая переменная, используемая как счетчик цикла; Начало — начальное значение счетчика; Конец — конечное значение счетчика; Шаг — шаг изменения значения счетчика, по умолчанию 1 Exit For — используется для немедленной остановки цикла (выхода из цикла).

Операторы цикла, которые выполняются между служебными словами For и Next, т.е. повторяются многократно, называются телом цикла.

Итерация — повторение пошагового процесса, когда результат предыдущего шага используется для получения результата следующего шага

Действие оператора For...Next: Вычисляется значение выражения Начало, которое присваивается переменной Счетчик. Затем идет выполнение операторов тела цикла. При достижении Next значение Счетчик увеличивается на значение выражения Шаг. Значение Счетчика сравнивается со значением выражения Конец. Если значение Счетчик больше этого значения, то выполняется оператор, следующий за Next, если меньше или равно, то управление передается на начало тела цикла. При отрицательных значениях Шага идет уменьшение Счетчика. Значение Шага может быть дробным.

ЗАВДАННЯ 8.1

Постановка задачи НАПЕЧАТАТЬ ФРАЗУ: "ВИВЧАЄМО ЦИКЛИ!" 15 РАЗ С ИСПОЛЬЗОВАНИЕМ ОПЕРАТОРА FOR... NEXT (В УСЛОВИИ ЧЕТКО ОПРЕДЕЛЕНО КОЛИЧЕСТВО ПОВТОРЕНИЙ).

Порядок действий

1. Расположите на форме одну командную кнопку.

2. Установите значения свойства Name для формы и кнопки такие, которые используются ниже в программном коде.

3. Установите значения свойства Caption для формы и кнопки в соответствии с рис. 8.1.

Рис. 8.1

4. Составьте программный код проекта:

Private Sub CmdПуск_Click()

Dim i As Integer

Cls

For i = 1 To 15 Step 1

FrmЦиклы.FontSize = 9 + i

Print i; "Вивчаємо цикли"

Next i

End Sub

5. Запустите проект на выполнение. Результат представлен на рис.8.1. Проанализируйте его, ответив на вопросы: "Почему перед текстом печатаются числа; почему изменяется размер шрифта?"

6. Сохраните проект и форму в папке ЛАБ8 с именами Лр8_Зад1_Фамилия.

7. Дополните ЗАВДАННЯ 8.1.

1. Смените значение шага на 2. Запустите проект на выполнение и проанализируйте результат.

2. Замените строку For i = 1 о 15 Step 2

на строку For i=2 To 10 Step 1

3. Запустите проект на выполнение и проанализируйте результат.

4. Замените строку For i = 2 To 10 Step l

на строку For i = 10 To 1 Step -l

5. Запустите проект на выполнение и проанализируйте результат.

6. Сохраните изменения в проекте.

ЗАВДАННЯ 8.2

Постановка задачи ВЫЧИСЛИТЬ ЗНАЧЕНИЯ ФУНКЦИИ У = X² Е^{-|X |} ДЛЯ ВСЕХ Х НА ИНТЕРВАЛЕ [A, B] С ШАГОМ H. НАПЕЧАТАТЬ ТАБЛИЦУ ЗНАЧЕНИЙ НА ФОРМЕ. ВВОД ИСХОДНЫХ ДАННЫХ ОСУЩЕСТВИТЬ ЧЕРЕЗ ОКНО INPUTBOX.

Вид работающего приложения представлен на рис. 8.2.

Рис.8.2

Порядок действий

1. Расположите на форме одну командную кнопку.

2. Установите значения свойства Name для формы и кнопки такие, которые используются ниже в программном коде.

3. Установите значения свойства Caption для формы и кнопки в соответствии с рис. 8.2.

4. Составьте программный код проекта. Самостоятельно заполните пропуски (...):

Private Sub cmdПускClick()

Dim a As Single, b As Single, h As Single

Dim x As Single, f As Single

With frmФункція

… ‘ Задайте для формы следующие параметры: цвет формы — белый, шрифт — "Arial Cyr",

‘размер шрифта — 12, начертание —полужирный, цвет символов — синий

End With

a = Val(InputBox ("Введіть початок діапазона", "Початок"))

b = Val(InputBox ("Введіть кінець діапазона", "Кінець"))

h = Val(InputBox ("Введіть крок зміни X", "Крок"))

Print "------------------------------------------------------------- "

Print " x : y(x) "

Print "---------------------------------------------------------------"

For x = a To b Step h

f = x ^ 2 - Exp(-Abs(x))

Print " "; x, f

Next x

Print "-----------------------------------"

End Sub

5. Запустите проект на выполнение.

Если задать большой диапазон изменения х, то таблица может не поместиться на форме. Чтобы была возможность просматривать все данные, необходимо использовать текстовое поле.

6. Смените значения a, b, h. Проанализируйте результат.

7. Сохраните проект под именем Лр8_Зад2_Фамилия.

ЗАВДАННЯ 8.3

Постановка задачи ВЫЧИСЛИТЬ СУММУ N НАТУРАЛЬНЫХ ЧИСЕЛ.

Порядок действий

1. Расположите на форме одну командную кнопку.

2. Установите значение свойства Name для кнопки — сmdПуск.

3. Установить значения свойства Caption для формы Сумма натуральных чисел, для кнопки— Пуск.

4. Составьте программный код проекта:

Private Sub cmdПycK_Click()

Dim i As Integer, N As Integer, S As Integer

Cls

N = InputВох ("Сколько чисел сложить?", "Количество чисел")

S = 0 'Начальное значение суммы

For i = 1 То N Step l

S = S + I 'Накопление суммы

Next i

Print "Сумма", N, "натуральных чисел", S

End Sub

5. Запустите проект на выполнение. Проанализируйте результат.

6. Сохраните проект под именем Лр8_Зад3_Фамилия.

7. Дополните ЗАВДАННЯ 8.3

1. Измените программу таким образом, чтобы она вычисляла сумму только натуральных четных чисел в интервале до N.

2. Изменить программу так, чтобы она вычисляла сумму только натуральных нечетных чисел в интервале до N.

3. Измените программу таким образом, чтобы она вычисляла N! (факториал числа N): N!=1*2*3* *N

4. Измените программу таким образом, чтобы вычислялась сумма: S =1+l/2²+l/3³+.+l/N^N.