Подведем итоги. x = InputBox(Введите число, Число)

End Sub

Do

x = InputBox("Введите число", "Число")

sum = sum + x

n = n + 1

Print; "Введено чисел: "; n; ". Их сумма равна "; sum

Loop Until sum > z

srednee = sum / n

Label1.Caption = "Введено чисел: " + Str(n) + ". Их сумма равна " + Str(sum) + ", а среднее арифметическое равно " + Str(srednee)

8. Обработчик события по кнопке «Очистка» запишите самостоятельно, вспомнив навыки, полученные при выполнении предыдущих лабораторных работ.

9. Сохраните проект (выбрав File – Save frmСреднее.frm и Save Среднее.vbp) в папке 8.7.

10. Проверьте работоспособность проекта, запустив его на выполнение.

11. Создайте exe-файл программы с помощью команды File → Make Среднее.exe.

12. Выйдите из среды Visual Basic.

13. Запустите на выполнение файл Среднее.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

В работе были использованы новые

операторы:

For…Next (для повтора цикла заданное количество раз)

For Each … Next (для повтора цикла заданное количество раз с учетом каждого значения)

Do While … Loop (выполняет какое-либо действие до тех пор, пока условие истинно (проверка условия в начале цикла))

Do Until … Loop (цикл служит для того, чтобы, пока условие не выполняется, повторять тело цикла (проверка условия содержится в начале цикла))

Do … Loop While (повторяет тело цикла, пока выполняется условие (проверка условия содержится в конце цикла))

Do … Loop Until (повторяет тело цикла, пока условие не выполняется (проверка условия содержится в конце цикла))

While … Wend (повторяет тело цикла заранее неизвестное количество раз)

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить суммарную длину пробега за N дней; в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100 км.

3. Одноклеточная амеба каждый 3 часа делится на 2 клетки. Вычислить, сколько амеб будет через 3, 6, 9, …N часов. Количество часов N вводится пользователем.

4. Имеется список студентов и оценки, полученные на экзамене. Определить средний балл группы за экзамен. Количество студентов в группе заранее неизвестно.

5. Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел.

6. Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое.

7. Написать программу проверки знания таблицы умножения. Программа должна вывести 10 примеров и выставить оценку: за 10 правильных ответов – «отлично», за 9 и 8 – «хорошо», за 7 и 6 – «удовлетворительно», за 5 и менее – «плохо».

8. Написать программу, которая вычисляет сумму первых n целых положительных четных чисел. Количество чисел должно вводиться во время работы программы.

9. Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел задается во время работы программы.

10. Написать программу, которая вычисляет сумму первых n членов ряда .

11. Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности.

12. Написать программу, которая выводит на экран таблицу значений функции y = |x-2| + |x+1|.

13. Написать программу, которая выводит на экран таблицу умножения Пифагора.

14. Написать программу, которая выводит таблицу степеней двойки (от нулевой до десятой).

15. Разработать программу, где с клавиатуры запрашивается любая цифра от 2 до 9, а затем компьютер печатает таблицу умножения на эту цифру.

Дата добавления: 2014-12-23