Г. Н. Камышова, Н. Н. Терехова

Next t

Pic1.Circle (x, y), 1, z

Loop

n = B / k

For t = 0 To 2 * 3.1428 * n Step 0.001

V = (A / B) * t

x = (A - B) * Cos(t) + D * Cos(V)

y = (A - B) * Sin(t) - D * Sin(V)

22. Проверить работу программы на различных значениях для A B D.

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

При выполнении ниже приведенных заданий должны быть выполнены следующие требования:

- приложение должно иметь удобный интерфейс;

- имена объектов управления должны иметь трехбуквенный префикс в соответствии с типом объекта;

- имена переменных должны быть информативны;

- все используемые переменные должны быть объявлены;

Задание № 1

Ввести три числа.

- Вывести сообщение «да», если числа введены в порядке возрастания., в противном случае вывести «нет»;

- Найти среднее арифметическое min и max.;

- Найти разницу между min и max;

- Найти сумму двух из них, которые не являются min.

Задание № 2

- Ввести координаты для двух отрезков. Определить пересекаются ли они.

- Ввести координаты центров для двух окружностей и их радиусы. Определить, пересекаются ли окружности.

Задание № 3

Ввести четыре числа:

- Вывести два наибольших числа.

- Вывести два из них, расположенных между max и min.

Задание № 4

- Ввести стороны двух прямоугольников. Определить, у какого из них больше площадь.

- Ввести стороны прямоугольника и радиус круга. Определить, поместится ли круг внутри прямоугольника.

Задание № 5

- Ввести число N, определяющее номер месяца года Вывести название времени года

- Ввести число от 0 до 1000000. Определить количество цифр в числе.

- Ввести число, определяющее школьную оценку (2,3,4,5). Вывести текстовую запись оценки (неуд, удовлетворительно, хорошо, отлично).

Задание № 6

Разработать приложение, которое позволяет определять оценку за контрольную работу по физике. Оценка зависит от суммы набранных баллов так, как показано в табл. Форму разработать в соответствии с образцом.

Баллы	Оценка
Менее 15 От 15 до 24 От 25 до 34 Не менее 35

Задание № 7

Используя вложенный цикл, разработать приложение, которое рисует на форме несколько рядов одинаковых окружностей (см. образец)

Задание № 8

Разработать приложение, которое рисует на форме несколько окружностей разного радиуса, цент окружностей совпадает (см. образец)

Задание № 9

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

(см. образец).

Задание № 10

Вывести все числа от 1 до 1000, которые:

- являются квадратами четных чисел.

- кратны 3 и не кратны 5

Задание № 11

Ввести два числа А и С.

- Найти произведение этих чисел, используя только операцию сложения.

- Вычислить А^С, используя только операцию умножения.

Задание № 12

Ввести число. Определить:

- количество цифр в числе.

- сумму этих цифр.

Задание № 13

В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы.(В месяце 26 рабочих дней). Напечатайте “Бригада выполнила норму” или “Бригада не выполнила норму”, в зависимости от полученного результата.

Задание № 14

Ввести текст.

- Вывести каждый второй символ.

- Определить сколько раз в нем встречается буква “а”.

- Определить сколько раз в строке встречается сочетание “ен”

- Выведите этот текст, удалив все цифры (коды цифр с 48 до 57).

Задание № 15

- Составить программу перевода десятичного числа в двоичное.

- Составить программу перевода двоичного числа в десятичное

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

1. Росс Нельсон, Running Visual Basic 3 for Windows, пер. с англ. – М.: Издательский отдел «Русская Редакция» ТОО «Channel Trading Ltd.», 1995

2. Кауэлл Дж.Visual Basic 4.0: просто - о самом существенном, Пер. с англ. - М.:ИНФРА-М, 1998.

3. Волченков Н.Г. Учимся программировать: Visual Basic 5, - М.:»Диалог-МИФИ», 1998

4. Волченков Н.Г, Программирование на Visual Basic 6 в 3-х ч., М.:ИНФРА-М, 2000

5. Visual Basic 6.0, Руководство для профессионалов, пер. с англ.- СПб.:БХВ – Санкт-Петербург, 1999

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