4 Этап – тестирование программы:
запустите программу на выполнение, введите исходные данные, проверьте правильность расчетов (рис.5).
сохранить работу
COMP 25 D:\ HOME/ DOS/ QBASIC/ m08big51.bas
‘Синтаксичні помилки: - невірно записан оператор Print було Primt необхідно Print
|
‘Програмні помилки: - виведення значень в одну строку, а потрібно по стовцях було Print x, z, y; необхідно Print x, z, y
|
Задание 2. Решить задачу 1, используя форматный вывод.
Функция Format о преобразует числовые значения в текстовую строку и предоставляет возможность управлять внешним видом (появлением) строки. Например, можно задать число десятичных разрядов, ведущих или замыкающих нулей и денежные форматы. Синтаксис функции Format Format (expression[, format [, firstdayofweek [, firstweekofyear ]]])
Параметр expression (переменная) задает преобразуемое число, а параметр format является строкой, составленной из символов, определяющих форматирование числа. Наиболее часто используемые символы перечислены в табл.
Например: Print Format(x,”0000.00”);”грн” – указывает формат для вывода значения x и добавляет текстовую строку грн , – вывод с начала новой зоны ; – вывод непосредственно после последнего вывода. Функция Spc() выводит заданное количество пробелов Синтаксис функции Spc() Spc(n) Параметр n определяет количество пробелов. Например: Print Format(x,”0000.00”);Spc(1);”грн” |
организуйте форматный вывод данных x, z, y.
Задание 4. Решить задачу 2, соответственно варианта.
Задание 5.* Решить задачу 3, соответственно варианта.
Задание 3.** Решить задачу 1, используя вывод в TextBox.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 1,16.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n, d, b – целые числа;
c – действительнoе числo.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у и w.
;
,
где n – целое число;
c – действительнoе числo;
dє[3,-1] hd=0.5;
bє[-5,11] hb=1.
*3 уровень. Для расчета факториала в числителе использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 2,17.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,f – целые числа.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,f – целые числа;
r є[54,71] hr=9;
bє[2,-11] hb=0,35.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 3,18.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
q[35,-1] hq=5;
gє[-75,53] hg=4.
*3 уровень. Для расчета факториала использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 4,19.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,d,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
dє[1,-1] hd=0.09;
bє[-4,6] hb=1.
*3 уровень. Для расчета суммы использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 5,20.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где m,n – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где m,n – целые числа;
dє[2,-2] hd=1;
fє[-31,11] hb=12.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 6,21.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n, d, b – целые числа;
c – действительнoе числo.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у и w.
; ,
где n – целое число;
c – действительнoе числo;
dє[3,-1] hd=0.5;
bє[-5,11] hb=1.
*3 уровень. Для расчета факториала в числителе использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 7,22.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,f – целые числа.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,f – целые числа;
r є[54,71] hr=9;
bє[2,-11] hb=0,35.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 8,23.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
q[35,-1] hq=5;
gє[-75,53] hg=4.
*3 уровень. Для расчета факториала использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 9,24.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,d,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
dє[1,-1] hd=0.09;
bє[-4,6] hb=1.
*3 уровень. Для расчета суммы использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 10,25.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где m,n – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где m,n – целые числа;
dє[2,-2] hd=1;
fє[-31,11] hb=12.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 11,26.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n, d, b – целые числа;
c – действительнoе числo.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у и w.
; ,
где n – целое число;
c – действительнoе числo;
dє[3,-1] hd=0.5;
bє[-5,11] hb=1.
*3 уровень. Для расчета факториала в числителе использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 12,27.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,f – целые числа.
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,f – целые числа;
r є[54,71] hr=9;
bє[2,-11] hb=0,35.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 13,28.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
q[35,-1] hq=5;
gє[-75,53] hg=4.
*3 уровень. Для расчета факториала использовать цикл DO ... LOOP с постусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 14,29.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где n,d,m – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где n,m – целые числа;
dє[1,-1] hd=0.09;
bє[-4,6] hb=1.
*3 уровень. Для расчета суммы использовать цикл DO ... LOOP с предусловием.
ИНДИВИДУАЛЬНЫЕ ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ №5(VB6):
Вариант 15,30.
1 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
где m,n – целые числа;
2 уровень. Построить блок-схему алгоритма и написать программу вычисления у.
;
где m,n – целые числа;
dє[2,-2] hd=1;
fє[-31,11] hb=12.
*3 уровень. Для расчета произведения использовать цикл DO ... LOOP с постусловием.
ЛАБОРАТОРНАЯ РАБОТА №6. ПРОЕКТИРОВАНИЕ ПРИЛОЖЕНИЙ VB6, ПРИ РЕШЕНИИ ЗАДАЧ, ИМЕЮЩИХ ЦИКЛИЧЕСКУЮ СТРУКТУРУ.
Оператор циклов с условием DO … LOOP используется если количество повторов цикла заранее неизвестно.
Добавить б/с с – и + на выходах…
1 - Проверка условия в начале цикла |
2 - Проверка условия в конце цикла |
Do While <условие> <тело цикла> [Exit Do] Loop <тело цикла> выполняется, если <условие> истинно, иначе осуществляется переход на оператор, расположенный после Loop. Если первая проверка <условия> даст результат – ложь, то цикл не выполнится ни разу. |
D o <тело цикла> [Exit Do] Loop While < условие> <тело цикла> выполняется до тех пор, пока <условие> истинно, иначе выполнение цикла заканчивается. Но хотя бы один раз цикл выполнится в любом случае. |
3 - Проверка условия в начале цикла |
4 - Проверка условия в конце цикла |
Do Untile < условие> <тело цикла> [Exit Do] Loop <тело цикла> выполняется, если <условие> ложно, иначе осуществляется переход на оператор, расположенный после Loop. Если первая проверка <условия> даст результат – истина, то цикл не выполнится ни разу. |
D o <тело цикла> [Exit Do] Loop Untile < условие> <тело цикла> выполняется до тех пор, пока <условие> ложно, иначе выполнение цикла заканчивается. Но хотя бы один раз цикл выполнится в любом случае. |
Проверка условия в середине цикла |
Проверка условия в середине цикла |
Do <тело цикла> Exit Do Loop условие выхода может быть организовано с помощью оператора Exit Do в сочетании с операторами IF, SELECT. Оператор Exit Do передает управление первому после Loop оператору. |
Do <тело цикла> Exit Do Loop условие выхода может быть организовано с помощью оператора Exit Do в сочетании с операторами IF, SELECT. Оператор GOTO передает управление оператору, указанному меткой. |
Подготовка к выполнению задания:
Подготовка к выполнению задания:
Загрузить Visual Basic 6 и создать новый стандартный проект;
Создать 4 формы.
Сохранить проект7 и формы8;
Вывести на экран панель инструментов Standart, используя контекстное меню.
Вывести на экран окна Project Explorer, Properties Window, Code, General используя категорию меню View;
Закрыть окна форм 2,3,4
Задание
1.
Задача 1.
Обчислити
суму елементів ряду
,
що схдиться, із заданою точністю (
)
та обчислити кількість елементів цього
ряду. Ввод исходных переменных величин
и вывод елементов ряда организовать с
помощью ТextBox.
Ввод постоянных величин и вывод
накопителей организовать с помощью
Label.
1 этап – постановка задачи. Система уравнений:
; 
.
2 этап - составление схемы алгоритма, выбор структуры даннях (рис.3).
3
этап
- программирование.
1 шаг – программирование интерфейса задачи (Форма 1 добавить таблицу идентификаторов):
установить на форме объекты-метки (Label) для комментариев к исходным данным (переменным r,k,а; постоянной ogr; расчетным елементом ряда y, накопителям s1 – сума ряда,s2 – количество елементов ряда). Задайте надпись объектам (Caption), соответственно рис.4.;
установить на форме объекты-текстовые поля (TextBox) для ввода исходных данных (переменных r,k,а). вывода елементов ряда. Задайте имена объектам ((Name)) Text_r, Text_k, Text_а, Text_у). Очистите свойство Text. Организуйте вывод елементов ряда в несколько строк (Text_у.MultiLine=True). Для просмотра всех елементов добавьте полосы прокрутки - горизонтальную, вертикальную, две полосы (свойство ScrollBars);
установить на форме объекты-кнопки (CommandButton) – один объект-кнопку для корректного завершения работы программы; – вторую объект-кнопку для очистки; – третью объект-кнопку для расчетов и вывода результатов. Задайте надпись объектам (Caption), соответственно рис.4.;
2 шаг – создание кода программы:
для одной кнопки запишите команду окончания работы программы;
для третей кнопки запишите команды очистки всех объектов:
Private Sub Command2_Click()
Text_r.Text = ""
Text_k.Text = ""
Text_a.Text = ""
Text_y.Text = ""
Label_ogr.Caption = "ogr="
Label_s1.Caption = "Сума ел.ряду = "
Label_s2.Caption = "Кількість ел.ряду = "
End Sub
для второй кнопки запишите команды - считывания из ТextBox исходных данных, вычислений значений елементов ряда и вывода результатов:
-------------------------------------------------------------------------------------
P
rivate
Sub Command1_Click()
ogr = 10 ^ (-5)
Label_ogr = "ogr=" + Str(ogr)
k = Val(Text_k.Text)
a = Val(Text_a.Text)
r = Val(Text_r.Text)
Text_y.Text = ""
y = r + (3 * k) / (6 * a ^ 2)
Text_y.Text = Str(r) + " + " + Str((3 * k) / (6 * a ^ 2))
i = 2
Do
vr = ((-1) ^ (i + 1)) * (k / (a ^ (2 * i)))
If Abs(vr) <= ogr Then Exit Do
y = y + vr
Text_y.Text = Text_y.Text + " + " + Str(vr)
i = i + 1
Loop
Label_s1.Caption = "Сума ел.ряду = " + Str(y)
Label_s2.Caption = "Кількість ел.ряду = " + Str(i)
End Sub
-----------------------------------------------------------------------------------------