7. Вычисление значения функции

Задание

Разработать программу для расчёта значений функции sin(x). На форму должны выводится два столбца: значение аргумента и значение функции.

Добавить в проект стандартный модуль и написать в нём текст заготовки:

Dim x as Single

Dim Max as Single

x = 0

Max = txtIn.Text ‘Считывание значения из текстового поля на форме

Print "x sin(x)"

Do While sin(x) < Max

Print x, sin(x)

x = x +0.1

Loop

Вопросы к заданию

1. Разработать интерфейс пользователя. Привести в отчёте список объектов интерфейса и их назначение.

2. Дополнить текст программы до работоспособного и снабдить комментариями. В отчёте описать суть дополнений и объяснить результаты работы программы.

3. Переместить условие в конец цикла. Объяснить результат.

4. Возвратить условие в начало цикла и заменить функцию sin на cos. Объяснить результат.

5. Переместить условие в конец цикла. Объяснить результат.

8. Рост населения

Задание

Население некой страны увеличивается на определённое количество процентов каждый год. Разработать программу, определяющую срок, за который население увеличится вдвое.

Визуальный интерфейс приложения должен содержать диаграмму. Каждый год исследуемого периода на диаграмме обозначить прямоугольником. Высота прямоугольника должна быть пропорциональна численности населения. Ширина всех прямоугольников должна быть одинакова. У первого прямоугольника высота должна равняться ширине (квадрат). В каждом прямоугольнике должны быть показаны два числа – год в нижней части прямоугольника и количество населения в верхней.

Общий размер диаграммы не должен зависеть от продолжительности исследуемого периода (однако от этого зависит количество прямоугольников, размещаемых на диаграмме, и их ширина).

Получение результата организовать в два этапа: первый — расчёт количества лет, за которые численность населения достигнет заданной величины; второй — вывод на экран диаграммы. Каждый этап нужно оформить в виде отдельной процедуры (функции).

Вопросы к заданию

1. Выбрать и обосновать тип цикла для определения количества лет, за которое население увеличится в заданное число раз.

2. Выбрать и обосновать тип цикла для вывода на экран диаграммы.

3. Добавить в программу возможность нахождения срока увеличения населения в число раз, задаваемое пользователем. В отчёте описать смысл сделанных изменений и привести иллюстрацию результата.

4. Добавить в программу возможность нахождения срока увеличения населения до достижения заданного пользователем абсолютного значения численности населения. В отчёте описать смысл сделанных изменений и привести иллюстрацию результата.

9. Сумма расходящегося числового ряда

Задание

Существуют числовые ряды, сумма значений элементов которых может бесконечно увеличиваться при увеличении количества их элементов, например:

1, 1/2, 1/3, 1/4, ..., 1/N (N — целое положительное число).

Разработать программу для нахождения такого количества элементов ряда, при котором сумма их значений будет больше некоторого числа М.

Число М задаёт пользователь (целое число в диапазоне от 1 до 4).

Вопросы к заданию

1. Разработать интерфейс пользователя. Для задания числа М использовать стандартные объекты OptionButton. Сгруппировать их на форме с помощью объекта Frame. Привести в отчёте список объектов интерфейса и их назначение.

2. Выбрать и обосновать тип цикла для поиска N. В отчёте привести алгоритм.

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

4. Изменить программу для вывода на экран абсолютной погрешности вычисления суммы ряда (разность между числом, введённым пользователем, и рассчитанным значением).