Задания для самостоятельной работы

1. Найти корни квадратного уравнения ах² + bx + с = 0.

2. Вычислить по формуле

3. Найти наибольшее и наименьшее из трех чисел А, В, С.

4. Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня.

5. Рассчитать величину подоходного налога следующим образом:

Если доход ≤ 240 минимальных заработных плат (мзп), то налог равен 9% от величины дохода. От 240 мзп + 1 руб. до 600 мзп – 21,6 мзп + 15% от суммы, превышающей 240 мзп. От 600 мзп + 1 руб. до 840 мзп – 75,6 мзп + 20% от суммы, превышающей 600 мзп. От 840 мзп + 1 руб. до 1080 мзп – 123,6 мзп + 25% от суммы, превышающей 840 мзп. Свыше 1080 мзп –183,6 мзп + 30% от суммы, превышающей 1080 мзп.

6. Задать три стороны прямоугольного параллелепипеда. Определить, является ли данная фигура кубом.

7. Рассчитать модуль введенного с клавиатуры числа, не используя функцию Abs.

8. С клавиатуры ввести два числа. Разделить большее на меньшее.

9. По названию месяца определить количество дней в нем.

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

11. Определить принадлежность человека определенному знаку зодиака по дате его рождения.

12. Компьютер выдает на экран 5 вопросов и по 2 варианта ответов к каждому. Правильный ответ оценивается в 1 балл. Оценить уровень знаний тестируемого. Вопросами и ответами задаться самостоятельно.

1. Для заданного числа из диапазона от 1 до 10 выдать его словесное (символьное) представление.

2. По номеру месяца выдать его название и количество дней в нем.

3. Ввести два числа и знак арифметической операции между ними ("+", "*", "/"). Вычислить значение арифметического выражения согласно введенному варианту.

4. Ввести с клавиатуры первые две цифры штрих-кода товара. По введенному значению определить страну-производителя.

5. Организовать телефонный справочник известных аварийных и справочных служб.

6. По номеру группы определить количество студентов в ней и год поступления.

7. По номеру группы определить название специальности и курс.

8. По порядковому номеру выдать на экран фамилию студента вашей группы.

9. Вывести на экран список цветов (5-7 элементов). Выдать на экран свою фамилию выбранным цветом. Выбор цвета реализовать по его порядковому номеру или названию.

10. По номеру дня недели или его названию выдать на экран расписание занятий.

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

12. Для введенной с клавиатуры цифры вывести на экран ее графическое представление (аналогично индексу на почтовых конвертах) с помощью заливки фона текущей ячейки.

Лабораторная работа №7

«Программирование повторений»

Цель работы. Ознакомиться с операторами повторения.

Повторение - это выполнение одного или нескольких операторов программы более одного раза. За счет повторений сокращается размер программного кода. Реализуются повторения многострочными операторами цикла двух видов: со счетчиком и с условием.

7. 1. Цикл со счетчиком

Синтаксис оператора повторения для цикла со счетчиком:

где Имя - имя переменной, которую называют счетчиком (индексом цикла);

Значение1 - начальное значение счетчика;

Значение2 - конечное значение счетчика;

Значение3 - величина, на которую изменяются значения счетчика при одном повторении.

Если нет противоречий в значениях, то операторы цикла выполняются при начальном значении счетчика. Далее значение счетчика меняется на величину шага ивыполняется проверка со Значением2. Если значение счетчика меньше, то начинается повторное выполнение операторов цикла с новым значением счетчика, если больше, то цикл завершается и начинают отрабатываться сле­дующие операторы программы.

Пример блока простейшей программы, использующей цикл со счетчиком:

Результатом работы этой программы является печать столбиком чисел: О, 5, 10, 15, 20, 25 принажатии на кнопку "Печать чисел" (рис. 39). Программа дополнена кнопкой "Очистка поля", что позволяет очистить поле вывода, икнопкой "Печать приветов", что позволяет напечатать указанное число приветов. В приложении использованы объекты: Form, CommandButton, Label, TextBox, PictureBox. При печати приветов меняются свойства шрифта, поэтому каждое последующее слово "Привет" напечатано большими по размеру буквами.

Рис. 39

Код приложения:

Private Sub Command1_Click() 'вывод шести чисел

For I = 0 То 25 Step 5

Picture 1. Print I

Next I

End Sub

Private Sub Command2_Click() 'вывод приветов

'изменение шрифта вывода

Picture1.Font.Bold = True

Picture1.Font.Name = "Times New Roman"

Picture1.Font.Size = 8

Picture1.ForeColor = vbBlue

'печать приветов

For I = 1 To Val(Text1 Text)

Picture1.Print "Привет"

Picture1.Font.Size = Picture1.Font.Size + 1*2

Next I

'восстановление шрифта и размера

Picture1.Font.Bold = False

Picture1.Font.Name = "Ms Sans Serif"

Picture1.Font.Size = 8

Picture1.ForeColor = vbBlack

End Sub

Private Sub Command3_Click() 'очистка поля

Picture1.Cls

End Sub

Private Sub Command4 Chck() кнопка Выход

End

End Sub

Цикл с условием

Если при программировании повторяющихся действий неизвестно число повторений, то используется оператор цикла в форме Do Until... Loop или Do While... Loop.

Синтаксис этого оператора имеет две формы:

или

В качестве условия могут использоваться ключевые слова While или Until. В первом случае Повторяющиеся операторы выполняются, если значение условного выражения равно True, во втором случае Повторяющиеся операторы выполняются, если значение условного выражения равно False.

Если Условие стоит в начале цикла, то сначала оно проверяется, а далее выполняются операторы цикла. Если условие стоит в конце цикла, то проверка и выход из цикла выполняются после выполнения Повторяющихся операторов.

Оператор, который прерывает выполнение цикла, называется оператором прерывания цикла. Его синтаксис:

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

Операторы цикла допускают использование внутри циклов других циклов, так называемых вложенных циклов. Их конструкция имеет вид:

Жестким правилом при использовании вложенных циклов является их непересекаемость.

Цикл с условием реализован при расчете среднего значения вводимых чисел в приложении на рис. 40. Эта программа рассчитывает среднее значение любого количества введенных чисел. Ввод чисел выполняется при помощи встроенной функции InputBox. При этом ведется счет выполненных функций, а отметкой завершения ввода чисел является ввод пустой строки, т.е. нажатие кнопки "Enter" при пустом окне InputBox.

Рис. 40

Текст программы:

Private Sub Command1_Click() 'начало ввода чисел

Dim ВводимаяСтрока As String, НомерЧисла As Integer

Dim ВводимоеЧисло, СуммаЧисел As Single

Dim Заголовок, Сообщение As String

Text1.Text=”” 'очистка экрана

Заголовок = "Ввод очередного числа"

Сообщение = "Введите очередное число" &_

"и щелкните кнопку ОК" & _

"Для завершения ввода щелкните кнопку Cancel"

НомерЧисла = 0

СуммаЧисел = 0

ВводимаяСтрока = InputBox(Сообщение, Заголовок)

Do Until ВводимаяСтрока = ""

ВводимоеЧисло = Val(ВводимаяСтрока)

НомерЧисла = НомерЧисла + 1

СуммаЧисел = СуммаЧисел + ВводимоеЧисло

Text1 = Text1 & Str(ВводимоеЧисло) & "; "

Text2 = Str(СуммаЧисел / НомерЧисла)

ВводимаяСтрока = InputBox (Сообщение, Заголовок)

Loop

End Sub

Private Sub Command2_Click()

End

End Sub

Упражнение 7

• Сделать приложение по рис. 39.

• Запустить приложение, проверить работу.

• Сделать приложение по рис. 40. Обратить внимание на значения свойств объектов:

Form Forml

Caption = "Циклический ввод чисел"

StartUpPosition = 2 'CenterScreen

TextBox. Text1 = Введенные числа

Locked = -1 'True

MultiLine = -1 'True

TextBox. Text2 = Среднее значение

Alignment = 2 'Center

Locked = -1 'True

• Запустить приложение, проверить работу.

• Для наглядности дополнить форму приложения выводом количества введенных чисел и их суммы.