2.2. Операции ввода/вывода

Операции ввода

Для ввода значений переменных в программу Visual Basic располагает следующими возможностями.

1) Непосредственно в программе переменной присваивается нужное значение. Например:

x = 0.13

2) С помощью диалогового окна InputBox. Его вызов имеет следующий формат:

<Переменная> = InputBox(<Комментарий на поверхности окна>,

<Заголовок окна>,

<Значение переменной по умолчанию>)

При этом, следует учитывать, результат, получаемый с помощью InputBox, является переменной текстового типа. Поэтому, при вводе текстов возможно прямое присваивание. Например:

Family = InputBox(“Введите фамилию”,”Ввод фамилии”,””)

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

Например, для ввода значения ставки налога, возможен такой вариант:

Nalog = Val(InputBox(“Введите ставку налога”,”Ввод ставки”,”0,13”))

3) С помощью текстового окна TextBox, используя его свойство Text. Здесь также следует учитывать, что свойство Text, является переменной текстового типа. Поэтому ввод аналогичен предыдущему случаю.

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

Family=Text1.Text

Для числовой переменной полученное текстовое значение преобразовывается в числовую форму с помощью функции Val:

X = Val(Text1.Text)

Операции вывода

Для вывода значений переменных или результатов расчета имеются следующие возможности.

1) Вывод в текстовое окно, присваивая свойству Text значение переменной. Здесь также следует учитывать текстовый тип свойства Text. Если переменная текстовая, то возможно прямое присвоение. Например:

Text1.Text=S

Если же переменная числовая, то перед операцией присвамвания ее следует преобразовать в строковую форму с помощью функции Str. Например:

Text1.Text=Str(x)

2) Использование свойства Caption элемента управления Label. Например:

Label1.Caption = S

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

3) Использование функции MsgBox. Ее упрощенный формат выглядит следующим образом

MsgBox <Сообщение>

где сообщение — любая текстовая переменная. Например:

x=22

MsgBox “x=” & x

4) Печать результат вычислений прямо на форму с помощью оператора Print. Данный способ наименее «профессиональный», но он очень удобен для вывода результатов на «скорую руку». Например:

x=22

Print “x=” x

2.3. Примеры

1.Условие задачи

По условиям договора зарплату за месяц выдают дважды: сначала часть ее в виде аванса, а по истечении месяца — остальную часть. При этом при окончательном расчете из заработной платы удерживают аванс и величину подоходного налога (13%).

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

2. Алгоритм

3. Программа

Интерфейс программы влияет на тип операторов ввода/вывода, который избираются, при реализации программы. В простейшем случае – это форма с двумя кнопками – «Расчет» и «Выход».

Для кнопки «Выход» процедура очень проста:

Private Sub Command2_Click()

End

End Sub

Для кнопки «Расчет»:

Private Sub Command1_Click()

Oklad = Val(InputBox("Введите величину оклада "))

d = Val(InputBox("Введите % долю аванса "))

Avance = Oklad * d / 100

Nalog = Oklad * 0.13

Plata = Oklad – Avance — Nalog

MsgBox "Аванс=" & Avance

MsgBox “Расчет=” & Plata

End Sub

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

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

Здесь на форме использованы следующие управляющие элементы:

— для создания комментирующих надписей элементы Label;

— для полей ввода элементы TextBox;

— для кнопок элементы CommandButton.

В первые два окна, должны вводится исходные данные для расчета. При запуске программы в этих окнах уже будут находиться некоторые данные (по умолчанию). Эти значения вводятся на этапе проектирования, используя свойство Text соответствующих элементов TextBox.

При таком интерфейсе человек либо соглашается с данными по умолчанию либо вместо них вводит свои данные. В любом случае после щелчка по кнопке «Расчет» в последующих двух окнах должны появиться результаты расчетов.

Процедура для кнопки «Расчет» имеет вид:

Private Sub Command1_Click()

Oklad = Val(Text1.Text))

d = Val(Text2.Text)

Avance = Oklad * d / 100

Nalog = Oklad * 0.13

Plata = Oklad – Avance – Nalog

Text3.Text = Str(Avance)

Text4.Text = Str(Plata)

End Sub

Обратите внимание – вне зависимости от интерфейса программы при обеих реализациях используется один и тот же алгоритм.

Процедура для кнопки «Выход» аналогична предыдущей.

2.4. Задания

Номер задания соответствует номеру студента по классному журналу.

1.  В классе имеется N1 мальчиков и N2 девочек. Вычислить сколько процентов от численности класса составляют мальчики и сколько девочки.

2.  Известны количество жителей в государстве и площадь его территории. Определить плотность населения в этом государстве.

3.  Известны объем и масса тела. Определить плотность материала этого тела.

4.  Вам под коттедж отвели участок площадью S м2. Но оказалось, что S1 м2 этого участка занята болотом. Вычислить сколько % участка занимает болото.

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

Налог = Мощность двигателя * Ф.

Составить программу расчета транспортного налога на ваш автомобиль.

6.  Вступительные экзамены в колледж сдавало N0 человек. Из них получили двойки N1 человек, а на одни пятерки сдало N2 человек, которые и прошли в колледж без конкурса. Остальные абитуриенты вынуждены были участвовать в конкурсе на поступление и доказывать свое право учиться в колледже с помощью дополнительных показателей. Определить, сколько процентов абитуриентов от общего их числа вынуждены были участвовать в дополнительном конкурсе.

7.  На курсе числится N0 студентов. Из них N1 студентов участвуют только в спортивных мероприятиях, N2 студентов участвуют только в художественной самодеятельности, а N3 участвуют и в художественной самодеятельности и в спортивных мероприятиях. Определить сколько % студентов не участвуют ни в никаких мероприятиях.

8.  Плата за обучение в вузе в первый год обучения равнялась S1 руб. На следующий год она стала равна S2 руб. На третий год – S3 руб. Определить величину роста оплаты (в %) после первого и второго года обучения.

9.  Некая студентка решила поучаствовать в кастинге конкурса «Мисс Очарование». Для этого она решила сесть на специальную диету. Начальный ее вес составлял M0 кг. Через неделю ее вес стал равен M1 кг, а еще через неделю – M2 кг. Определить, по сколько процентов веса каждую неделю теряла студентка, сидя на диете.

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

11.  Студентке на карманные расходы было выдано S0 руб. Из них S1 руб. было потрачено на косметику, а остальные – на походы в дискотеки. Определить, сколько процентов от общей суммы составила каждая статья расходов.

12.  У студента в семестре по плану должно было быть N0 занятий. Из них по уважительной причине было пропущено N1 занятий, а по неуважительной – N2 занятий. Определить сколько % от общего числа занятий было посещено студентом.

Тема 3. Математические возможности Visual Basic

3.1. Общие сведения

В Visual Basic, как и в любом современном языке программирования, имеется большой набор стандартных математических операций и встроенных функций. Их список приводится в таблицах.

Таблица 3.1

Математические операции

Таблица 3.2

Математические функции

Продолжение таблицы 3.2

3.2. Вычисления сложных выражений

Вычисления в сложных выражениях производятся слева направо с учетом приоритета операций. Сначала выполняются операции высшего приоритета, затем более низкого. Если приоритет соседних операций одинаков, то сначала выполняется левая. Операции в порядке уменьшения приоритета располагаются следующим образом:

Функции > ^ > * = / = = Mod > + = —

Используя круглые скобки можно изменить порядок вычислений

Примеры выражений

Таблица 3.3

При вычислении сложных выражений удобнее разбить это выражение на ряд простых, вычислить их отдельно и затем вычислить исходное.

Например.

Составить программу для вычисления следующего выражения:

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

A = 1+ Exp(- X^2) + Sqr(Tan(Abs(X)) – 1 / Tan(1 / X))

B = Log(1 + X^4) / Log(3) – (Sin(X) + Cos(X))^(1 / 5)

C = Atn(X / 2) – 3

Y = A / B * C

3.3. Задания

Номер задания соответствует номеру студента по классному журналу. Проверочные значения позволяют проверить правильность составленных выражений без калькулятора[1].

Таблица 3.4

Продолжение таблицы 3.4

Тема 4. Ветвления

4.1. Общие сведения

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

Интерпретируется она следующим образом:

— на входе в конструкцию проверяется условие P;

— если условие верно, то выполняется действие S1;

— если условие не верно, то выполняется действие S2.

Развилка может быть и не полной.

В этом случае, если условие не верно, то никакие действия не выполняются.

Для реализации подобных процессов в VB имеется набор операторов.

4.2.Оператор условного перехода

Оператор условного перехода имеет следующий формат:

If <Условие> Then <Действия1> Else <Действия2>

При выполнении условия <Условие> выполняются <Действия1>, иначе — <Действия2>. Действием может быть любая последовательность операторов. Ветвь Else может быть опущена, если в ней нет необходимости.

Имеется две формы оператора If:

а) Строчная.

В этой форме вся конструкция записывается в одну строчку. При этом если в качестве действий должно выполняться несколько команд, то они записываются через двоеточие. Например:

If x > 0 Then a = x ^ 2 — 4: b = y — 6: c = Sin(x) Else a = Cos(x):b = 1 / x

б) Блочная

В этой форме ключевые слова конструкции и действия располагаются в разных строках, а сама конструкция завершается ключевым словом End If. Например:

If x > 0 Then

a = x ^ 2 — 4

b = y — 6

c = Sin(x)

Else

a = Cos(x)

b = 1 / x

End If

При большом количестве операторов в каждой ветви вторая форма предпочтительней.

Конструкция If … Then … Else допускает использование других вложенных конструкций, в том числе и самой себя. Например:

If x > 0 Then

y = x ^ 2 — 4

Else If x = 0 Then

y = 3 * x

Else

y = -x

End if

End if

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

If x > 0 Then y = x ^ 2 — 4

If x = 0 Then y = 3 * x

If x < 0 Then y = — x

В качестве условия может быть любое выражение с логическим результатом. Логические выражения могут быть очень сложными и при их составлении можно использовать следующие логические операторы:

Or — логическое «ИЛИ»;

And — логическое «И»;

Xor — исключающее «ИЛИ»;

Not — логическое «НЕ».

Их применение позволяет иногда резко упростить конструкцию If …Then. Например:

If x > 0 And x < 10 Then

Пример1

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

Если заработная плата ниже прожиточного минимума, то налог не начисляется. Иначе величина налога равна 13% заработной платы. Прожиточный минимум принять равным 1000 руб.

Алгоритм решения задачи в виде блок-схемы выглядит следующим образом:

Обратите внимание, как вводится комментарии к элементам блок-схемы.

Интерфейс программы несложен:

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

После запуска программы от пользователя требуется ввести в поле «Заработная плата» величину заработной платы и щелкнуть по кнопке «Расчет». В поле «Налог» будет выведено рассчитанная величина подоходного налога.

Кнопка «Выход» предназначена для выхода из программы.

Ниже приведены тексты процедур для соответствующих кнопок.

Private Sub Command1_Click() ‘ Кнопка «Расчет»

Z = Val(Text1.Text)

If Z < 1000 Then

Nalog = 0

Else

Nalog = x * 0.13

End If

Text2.Text = Str(Nalog)

End Sub

Private Sub Command2_Click() ‘ Кнопка «Выход»

End

End Sub

Пример 2

Две подружки Лены и Кати очень любят говорить по сотовым телефонам. Лена подключена по тарифу S1 руб./мин и концу месяца наговорила T1 мин. Катя подключена по тарифу S2 руб./мин и концу месяца наговорила T2 мин. Определить, чьи родители заплатят больше за телефонные переговоры.

Алгоритм решения задачи представим в словесном виде.

1.  Ввести значения S1, N1, S2, N2.

2.  Вычислить общую стоимость переговоров у Лены – C1 = S1 * T1

3.  Вычислить общую стоимость переговоров у Кати – C2 = S2 * T2

4.  Если C1 > C2, то вывести на экран надпись – «У Лены», иначе вывести надпись — «У Кати»

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

Текст программы для кнопки «Расчет» имеет вид:

Private Sub Command1_Click()

s1 = Val(Text1.Text)

t1 = Val(Text2.Text)

s2 = Val(Text3.Text)

t2 = Val(Text4.Text)

c1 = s1 * t1

c2 = s2 * t2

If c1 > c2 Then

s = "Лены"

Else

s = "Кати"

End If

Text5.Text = s

End Sub

4.3. Задания (две подружки)

Номер задания соответствует номеру студента по классному журналу.

1.  Катя живет в S1 этажном доме, в котором N1 подъездов, а Лена – в S2 этажном доме, в котором N2 подъездов. Определить в чьем доме больше квартир, если на лестничной площадке каждого подъезда по четыре квартиры.

2.  На дискотеке Лена стрельнула глазками окружающим парням N1 раз за T1 минут. Катя сделала то же самое N2 раз за T2 минут. Определить, чья скорострельность больше.

3.  На той же дискотеке Катю пригласили на танец N1 раз и при этом пытались договориться о свидании K1 раз. Лену же приглашали на танец N2 раз, а на свидание – K2 раз. Определить у какой из девушек эффективность танцев по части приглашений на свидания больше.

4.  Лена пошла на дискотеку ЧГПУ, израсходовав косметики на R1 руб. и была приглашена на N1 танец раз. А Катя при подготовке к походу на ту же дискотеку израсходовала косметики на R2 руб. и была приглашена на танец N2 раз. Определить эффективность чьей косметики по части приглашений на танцы выше.

5.  Для того чтобы добраться до института у Кати и Лены есть варианта — на троллейбусе или маршрутке. Троллейбус едет до института T1 минут, а маршрутка – T2 минут. Катя вышла на остановку в 7 часов M1 минут и тут же села в троллейбус. Лена вышла на остановку в 7 часов M2 минут и ей тут же подвернулась маршрутка. Кто из них доедет до института раньше.

6.  Поскольку Лена и Катя учились на разных специальностях, то у них было разное количество экзаменов. У Лены было N1 конспектов по S1 страниц каждый, а у Кати N2 конспектов по S2 страниц. Определить, кому из них придется читать больше при подготовке к экзаменам?

7.  Согласно учебному плану подружки Лена и Катя были отправлены на педагогическую практику в школы. Лене пришлось вести занятия в N1 лицейских классах, в которых было по M1 учеников. Кате досталось N2 обычных классов, в каждом их которых было по M2 учеников.

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

8.  Согласно плану педагогической практики Кате необходимо было сводить свой класс в музей. Начало экскурсии было назначено в 1400. Но в 1600 у нее на другом конце города было назначено свидании с очень симпатичным парнем. Экскурсия длилась T1 минут.

Определить, не опоздает ли Лена на свидание, если маршрутка от музея до места свидания едет T2 минут.

9.  У Кати и Лены появились кавалеры, которые как оказалось, являются страшными компьютерными фанатами. Они предложили им свою помощь в подготовке к экзаменам. Помощь выразилась в сканировании учебников и последующей печати текстов в уменьшенном варианте. В результате получались очень симпатичные шпаргалки площадью 8 см2. Кавалер Кати умудрился втискивать по N1 символов на 1 см2 шпаргалки, а кавалер Лены — по N2 символов. Учебник Кати состоял из S1 страниц по 320 символов на странице, а у Лены учебник состоял из S2 страниц с тем же количеством символов на странице.

Определить, у кого из девушек будет большее количество шпаргалок.

10.Кавалеры Лены и Кати не только помогли им при подготовке к экзаменам, но и открыли для них такое средство Интернета как чаты. Лена просидела в чате T1 часов и пообщалась с N1 абонентами. А достижения Кати выглядят следующим образом: общее время, проведенное в чате — T2 мин и количество абонентов — N2. Определить у кого из них большая эффективность общения.

11.Для ускорения процессов общения в чатах применяются аббревиатуры, а для выражения своих эмоций — эмотиконы (смайлики). Катя освоила А1 аббревиатур и С1 смайликов, а Лена – А2 аббревиатур и С2 смайликов. При обмене информацией о своих достижениях девушки выяснили, что Лена уже знает N1 смайликов и аббревиатур освоенных Катей. А Катя знает N2 новшеств, освоенных Леной. Определить, кто из них при обмене информацией узнал больше нового.

12.При подборе материала для курсовых работ Лене и Кате пришлось обратиться к помощи Интернет. Лена провела в Интернете T1 мин и скачала N1 страниц текстового материала. А Катя на работу в Интернете потратила T2 мин и скачала N2 страниц текстов. Определить, кто из них скачивал данные из Интернета с большей скоростью.

4.4. Оператор выбора

При большом количестве проверяемых условий конструкцию If … Then … Else лучше совсем не применять. Для этого предпочтительней использовать оператор Select Case. Он имеет следующий формат:

Select Case <Переменная>

Case <Значение1>

<Действие1>

Case <Значение2>

<Действие2>

….

Case <ЗначениеN>

<ДействиеN>

Case Else

<ДействиеA>

End Select

где <Переменная> — переменная любого типа;

<Значения> — список или диапазон значений переменной;

<Действия> — набор операторов, которые должны выполняться при данном значении переменной;

<ДействиеA> — альтернативное действие, которое должно выполниться в том случае, когда значение переменной не совпадет ни с одним из заявленных.

Если нет необходимости, то ветвь Case Else может опущена.

Например:

Select Case x

Case 1,2,5 ‘ Значения Х заданы списком

y=x^2-4

Case 10 to 20 ‘ Значения Х заданы диапазоном

y=x-10

Case Is <=0 ‘Значения Х заданы условием

y=3*x

Case Else ‘ Если ни одно из значений не подходит,

y=0 ‘ то значение y приравнивается нулю

End Select

Пример

Составить программу, которая после ввода названия региона выводит его код. Предусмотреть вывод такого сообщения как: «Такого региона в справочнике нет», если будет введен регион, которого нет среди перечисленных.

Алгоритм решения задачи на языке блок-схем можно представить двумя способами.

Первый – так, как это приводится в учебной литературе — с использованием набора элементов «развилка»:

Второй – согласно рекомендации ГОСТ 19.701-90. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения.

Интерфейс программы может выглядеть следующим образом:

На форме создаются два текстовых окна. Одно для ввода названия региона, другое – для вывода найденного кода. К каждому из этих окон для удобства ввода добавлены соответствующие комментирующие надписи – элементы Label (Надпись).

После запуска программы от пользователя требуется ввести в поле «Регион» название региона и щелкнуть по кнопке «Запрос». В поле «Код» будет выведено значение кода. Если введенное название региона отсутствует в справочнике, то в поле «Регион» должно появиться сообщение — "Такого региона нет в справочнике".

Кнопка «Выход» предназначена для выхода из программы.

Ниже приведены тексты процедур для соответствующих кнопок.

Private Sub Command1_Click() ‘ Кнопка «Запрос»

r = Text1.Text

Select Case r

Case "Москва"

Text2.Text = "77"

Case "Чувашия"

Text2.Text = "21"

Case "Владимир"

Text2.Text = "33"

Case Else

Text1.Text = "Такого региона нет в справочнике"

End Select

End Sub

Private Sub Command2_Click() ‘ Кнопка «Выход»

End

End Sub

4.5. Задания на конструкцию Select Case

Нечетные номера решают прямую задачу, четные — обратную.

1 – 2. Задан справочник, содержащий названия городов и их междугородний телефонный код. Составить программу, которая по введенному коду определяет название города.

3. – 4. Задана следующая шкала эффективности внедрения новых технологий (%).

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

5.– 6. Составить программу, которая по введенному названию дню недели выдает его порядковый номер.

7. – 8. Составить программу, которая по введенному времени суток выдает их словесную характеристику в соответствии со следующей шкалой:

9. – 10. Составить программу, которая по введенному времени выводит название мероприятия:

11. – 12. Составить программу, которая по введенному номеру месяца выводит его название.

13. – 14. Составить программу, которая по введенному библиотечному индексу выводит название предметной области в соответствии со следующей таблицей:

Тема 5. Циклы

5.1. Общие сведения

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

1. Цикл «ПОКА» — рис.1.

Конструкция интерпретируется следующим образом:

На входе в цикл проверяется условие P и, если оно верно, то выполняются действие S. В противном случае происходит выход из цикла.

По этой причине такой цикл называется также циклом с предусловием.

2. Цикл «ДО» — рис.2.

Конструкция интерпретируется следующим образом:

Система входит в цикл, выполняет действие S и затем проверяет условие P. Если оно верно, то вновь выполняется действие S. Иначе происходит выход из цикла.

Конструкция называется также циклом с постусловием.

В обеих конструкциях действие S называется телом цикла и может состоять из одной или нескольких элементарных операций.

В Visual Basic для реализации циклов используются следующие операторы.

1) Оператор While …Wend

Является упрощенным вариантом цикла с предусловием. Общий формат:

While <Условие>

<Действие>

Wend

где Действие – любой набор операторов:

Условие – любое выражение с логическим результатом.

2) Оператор Do … Loop

Является циклом с условиями. Применяется в тех случаях, когда число повторений заранее неизвестно. Имеется несколько форматов:

где

Действие – любой набор операторов:

Условие – любое выражение с логическим результатом.

Ключевые слова While и Until определяют вид цикла.

Первое — определяет цикл «Пока». При его использовании цикл выполняется пока условие верно.

Второе – определяет цикл «До тех пор». При его использовании цикл выполняется до тех пор, пока условие не станет верным.

Вариант размещения ключевых слов зависит от программиста и определяется легкостью понимания создаваемого цикла.

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

— действия, выполняемые внутри цикла, должны как-то влиять на условие. Если этого не происходит, то цикл станет бесконечным.

3) Оператор For…Next

Применяется в тех случаях, когда число повторений заранее известно. Общий формат:

For <Начальное значение > To <Конечное значение> Step <Шаг>

<Действие>

Next

где

Начальное и конечное значения – начальные и конечные значения

переменной, управляющей циклом;

Шаг – величина изменения управляющей переменной.

Если величина шага опущена, то он принимается равным +1;

Действие – любой набор операторов.

Например:

For I = 1 To 10

Print I

Next

Или

For I = 10 To 1 Step -1

Print I

Next

Цикл For..Next является разновидностью цикла «ПОКА». В учебной литературе его описание на языке блок-схем выглядит следующим образом – рис 3.

Для управления циклом служит некоторая переменная, для которой задаются начальное и конечное значения и шаг изменения.

Работа цикла происходит следующим образом:

1. При входе в цикл текущее значение переменной принимается равным начальному.

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

3. Если текущее значение переменной меньше конечного, то выполняется тело цикла – S, затем к текущему значению переменной добавляется шаг цикла и система переходит на п.1.

Пример

На первый курс факультета было принято K студентов. Из них K1 студентов были очень большими любителями клуба веселых и находчивых (КВН). Благодаря своей активности они каждый семестр привлекали в свои ряды по N% студентов из числа тех, кто еще не участвовал в работе клуба.

Определить, сколько студентов будет участвовать в работе КВН к концу пятого курса.

Алгоритм решения задачи представлен на схеме.

Прокомментируем алгоритм.

1.  После ввода исходных данных вычисляется численность студентов, не участвующих в КВН — S.

2.  Затем организуется цикл с десятью повторениями (10 семестров!).

3.  При каждом проходе цикла (в каждом семестре) к участвующим в КВН (K1) добавляется N% не участвующих и вычисляется, сколько же осталось еще не вовлеченных студентов.

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

Интерфейс программы

Программная реализация

Private Sub Command1_Click() ’Кнопка «Расчет»

K = Val(Text1.Text)

K1 = Val(Text2.Text)

N = Val(Text3.Text)

S = K — K1

For T = 1 To 10

K1=K1+S*N/100 ‘Сколько стало КВН-щиков

S=K—K1 ‘Сколько осталось не КВН-щиков

Next

Text4.Text = Int(K1)

End Sub

Обратите внимание на последнюю команду процедуры:

– для того, чтобы не выводить дробное количество людей, использована функция Int(), которая округляет результат вычисления до целого числа.

Private Sub Command2_Click() ‘ Кнопка «Выход»

End

End Sub

5.2. Задания

Всякие совпадения с реальными лицами являются случайными…

Из титров к американским блокбастерам.

Номер задания соответствует номеру студента по классному журналу.

1.  Злой декан

На первый курс факультета принимается K студентов. Каждую сессию N% студентов потока получают хотя бы одну двойку. Безжалостный декан всех их тут же отчисляет. Определить сколько студентов останется на потоке к концу пятого курса.

2.  Добрый декан

На первый курс факультета принимается K студентов. Какая-то часть из них во время сессий получают двойки. Но, жалея студентов (особенно мальчиков – им все-таки грозит армия) декан дает возможность всем пересдать свои хвосты. Кроме того, ввиду своей доброты он на каждый курс принимает по N% человек от общего количества студентов на курсе. Определить сколько студентов будет на потоке к концу пятого курса.

3.  Справедливый декан

На первый курс факультета принимается K студентов. Каждую сессию N1% студентов на потоке получают хотя бы одну двойку. Деканат дает возможность пересдачи полученных хвостов. С этой задачей справляются только N2% студентов. Остальных приходится отчислять. Определить сколько студентов будет на потоке к концу пятого курса.

4.  Умный декан

На первый курс факультета принимается K студентов. Каждую сессию N1% студентов получают хотя бы одну двойку. Деканат дает возможность пересдачи полученных хвостов. С этой задачей справляются N2% студентов. Кроме того, для привлечения на факультет денег на каждый курс со стороны принимается по N студентов. Определить сколько студентов получит диплом в конце пятого курса.

5.  Интеллигентный декан

На первый курс факультета принимается K студентов. Каждую сессию N1% студентов на потоке не сдают сессию вовремя. По положению о высшей школе декан должен их отчислять. Но за N2% хвостистов приходят просить родители (или кто-то звонит сверху). Главная беда всех интеллигентов – это неумение говорить «нет». Поэтому декан всех студентов, за которых кто-то хлопочет, восстанавливает на курсе. Остальных приходится отчислять окончательно.

Определить сколько студентов останется на потоке к концу пятого курса.

6.  Деловой декан

На первый курс факультета принимается K студентов. Каждую сессию N1% студентов на потоке не сдают сессию вовремя. По положению о высшей школе декан должен их отчислять. Но у N2% хвостистов (почему-то одних и тех же) родители крутые бизнесмены. Они приходят в деканат и договариваются о спонсорской помощи факультету.

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

Определить сколько современных классов появится на факультете к концу пятого курса.

7.  Принципиальный декан

На первый курс факультета принимается K студентов. Каждую сессию N1% студентов на потоке не сдают сессию вовремя. По положению о высшей школе декан должен их отчислять. У N2% хвостистов очень крутые родители. Они пытаются (сами или через кого-то) договорится с деканом о поблажках для своего чада. Но декан, с его устаревшими принципами, стоит насмерть и отчисляет всех, невзирая на лица.

Определить сколько жалоб на этого декана накопится в ректорате к концу пятого курса, если учесть, что жалобы пишут только крутые родители.

8.  Наивный декан

После каждой сессии на факультете численностью K студентов остается по M% не пересданных вовремя двоек. Декан вызывает всех несдавших и берет с них слово, что они свои хвосты пересдадут в течение последующих сессий. Все естественно это дружно обещают. Разумеется, что все обещания тут же забываются, как только закрывается дверь деканата.

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

Подсчитать сколько времени придется сидеть этим преподавателям, если на пересдачу одного экзамена уходит 15 минут.

9.  Спортивный декан

На первый курс факультета принято N студентов, из которых K человек являются спортсменами. Каждую сессию N1% студентов на потоке получают хотя бы одну двойку. Декан (сам бывший спортсмен) очень заботится о спортивной славе факультета. Поэтому, если хвостист является спортсменом, то декан, используя все свое влияние, организует для них гарантированную пересдачу. Остальных он просто отчисляет.

Определить сколько студентов останется на потоке к концу пятого курса, если среди двоечников N2% спортсменов.

10. Несовременный декан

На первый курс факультета принимается K студентов на коммерческой основе. Каждую сессию N% из них не сдают сессию вовремя. Следуя привычкам советских времен декан благополучно отчисляет этих студентов.

Определить какую сумму недобирает вуз из-за не современности декана (т. е. разницу между суммами, которые мог бы получить факультет, если бы никого не отчисляли и реально полученными суммами). Плата за обучение равна S руб./семестр.

11.Женщина декан

Жила-была преподавательница вуза. И все у нее было – и вовремя защищенная диссертация, и муж, и прекрасные дети. Но однажды некая шустрая студентка по имени Татьяна увела у нее мужа. Рухнувшее семейное счастье она заменила тем, что с головой ушла в работу и довольно быстро стала деканом.

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

Определить сколько Тань останется на факультете к концу пятого курса при следующих условиях:

— на первом курсе было K студентов из них K1 девушек с именем Таня;

— каждую сессию N1% студентов получают двойки;

— доля Татьян среди хвостистов пропорциональна их доле на факультете.

12.Мужчина декан

Некий декан питал слабость к имени Наташа – так звали его первую любовь. Поэтому, если очередную двоечницу звали Наташей, то он делал все, чтобы она осталась в вузе. Остальные двоечники и двоечницы отчислялись по всем правилам.

Определить долю Наташ на пятом курсе при следующих условиях:

— на первый курс принималось K студентов и среди них было N девушек с именем Наташа;

— каждую сессию N1% студентов получают двойки;

— доля Татьян среди двоечников пропорциональна их доле на факультете.

Тема 6. Массивы

6.1. Общие сведения

Массивом называется набор переменных одного типа с одинаковым именем. Элементы массива отличаются друг от друга индексом (номером), который указывается в круглых скобках. В отличие от простых переменных объявление массивов в Visual Basic обязательно.

Для объявления используется следующая инструкция:

Dim <Имя массива> (Размерность массива) As <Тип >

Например:

Dim A(10) As Integer – объявлен массив с именем А, состоящий из десяти

целочисленных элементов.

Dim X (20) As Double – объявлен массив с именем Х, состоящий из двадцати элементов.

Dim S(5) As String – объявлен массив с именем S, состоящий из пяти

элементов строкового типа.

6.2. Основные алгоритмы работы с массивами

Внимание!

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

Рассмотрим следующую задачу.

Для пяти факультетов имеются сведения о количестве принятых на первый курс студентов. Определить общее количество принятых студентов, факультеты, на которые принято максимальное и минимальное количество студентов и среднее количество студентов, принятых на каждый факультет.

В общем случае алгоритм решения любых задач выглядит следующим образом:

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

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

Кроме того, сложность задачи приводит в некоторых случаях к необходимости нарушения порядка в основном принципе алгоритмизации:

сначала алгоритм, а потом программа.

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

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

1. Алгоритм ввода массивов данных в программу

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

Для их объявления в программу вписывается следующий текст:

Dim Number(5) As Integer (1)

Dim Facultet(5) As String

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

Самым простым вариантом является прямое присваивание значений элементам массива в программе.

Для рассматриваемой задачи этот вариант выглядит следующим образом.

Для названий факультетов:

Facultet(1)=”ФФК”:Facultet(2)=”БХФ”

Facultet(3)=”ФМФ”:Facultet(4)=”ПМНО” (2)

Facultet(5)=”ФИЯ”

Для численности студентов на них:

Number(1)=75:Number(2)=50

Number(3)=125:Number(4)=200 (3)

Number(5)=130

Обратите внимание – для экономии места (на бумаге и в программе) ряд команд записаны в одной строке через двоеточие.

При запуске программы присвоенные в ней значения массивов остаются «внутри нее» и не выводятся на экран. Для визуального же контроля расчетов целесообразно эти значения вывести на экран.

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

For I = 1 to 5

Print Facultet(i), Number(i) (4)

Next

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

2 Алгоритм вычисления общего количества студентов

На рис. 3. представлена блок-схема алгоритма вычисления общего количества студентов.

В виде программы алгоритм можно записать:

S=0

For I = 1 to 5

S = S +Number( I ) (5)

Next

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

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

Программная реализация алгоритма:

Max = Number (1): Imax = 1 (6)

For I = 2 to 5

If Number( I ) > Max Then Max = Number( I ): Imax = i

Next

Print Facultet( Imax)

Комментарий к алгоритму:

— переменная Max служит для хранения максимального количества студентов. В начале ей присваивается количество студентов, находящихся на первом факультете;

— переменная Imax служит для хранения номера факультета с максимальным количеством студентов. Поначалу ей также присваивается номер первого факультета:

— в цикле (начиная со второго номера) просматриваются численности других факультетов и если численность очередного факультета больше максимального значения, то значения переменных переприсваиваются.

— в конце выводится название факультета с найденным максимальным номером.

Задание.

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

4. Алгоритм нахождения среднего количества студентов

Данный модуль общей схемы решения задачи не заслуживает отдельной блок-схемы. Алгоритм вычисления среднего сводится к расчету по формуле:

Среднее = Общее количество студентов / Количество факультетов

Или в терминах объявленных переменных:

Srednee = S / 5 (7)

5. Вывод результатов расчетов

Данный модуль также не заслуживает блок-схемы. Алгоритм модуля заключается в последовательной печати на форме результатов вычислений:

Print “Общее количество студентов = ”; S (8)

Print “Факультет с максимальным количеством — ”;Facultet(Imax)

Print “Факультет с минимальным количеством -”;Facultet (Imin)

Print “Среднее количество студентов = ”; Srednee

Программная реализация

Ввиду того, что для вывода использовался очень простой способ интерфейс программы также очень прост – на форме создаются только две кнопки «Расчет» и «Выход».

Для кнопки «Выход» используется стандартная команда End:

Private Sub Command2_Click()

End

End Sub

В заготовку процедуры для кнопки «Расчет» скопировать блоки команд (2) – (8) и написанный Вами набор команд для нахождения факультета с минимальным количеством студентов.

В самое начало окна кода скопировать блок объявления массивов (1).

6.3. Задания (Жизнь – прекрасна!)

1. День рождения

Активистка группы Маша занялась организацией дня рождения своей подруги Даши. Для этого она обошла своих сокурсников с информацией о будущем торжестве и предложением сдать деньги на подарок (кто сколько даст). В мероприятии пожелали участвовать 6 человек. В результате получился список вида: имя – сумма.

Определить общую сумму, собранную на подарок, а также имена тех, кто сдал самое большое и самое малое количество денег.

2. Работа и путешествия

Организация “Travel & Work” предоставила список из 10 стран, в которых можно поработать в летнее время, и стоимости проезда в указанные страны. Получив этот список и изучив условия проезда мечтательная Даша решила, не утруждать себя работой, а просто объездить эти страны, посмотреть на мир, себя показать…

Определить в какую сумму обойдется Даше это турне по миру. Определить также страны с максимальной и минимальной стоимостью проезда.

3. Контрольная работа

Самое скверное в процессе учебы — это контрольные работы. В группе, где учились Маша и Даша, это мероприятие усугублялось излишне въедливой и придирчивой преподавательницей.

Во время очередной контрольной она разделила все ошибки на пять групп:

— орфографические;

— синтаксические;

— стилистические;

— общекультурные (это когда в качестве столицы Франции указан Лондон);

— прочие.

После очередной контрольной Даша и Маша получили мало порадовавшие их оценки и в придачу к ним список ошибок по каждой группе.

Определить, кто из подруг сделал большее количество ошибок, и ошибок какой группы оказалось больше всего.

4. Студвесна

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

Дан список вузов города, дни в которые они проводят свою студенческую весну, и соответствующее количество занятий в эти дни у Маши и Даши.

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

5. Зачетная сессия

Известно, что для получения зачета приходиться делать несколько заходов. Количество заходов зависит от степени свирепости преподавателя.

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

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

6. Экзаменационная сессия

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

7. Студенческие обычаи

Леша был единственным гуманитарием среди своих бывших одноклассников. От насмешек недалеких технарей его спасал только один довод – на гуманитарных специальностях очень развиты программы по международному студенческому обмену. Благодаря этому он уже успел побывать в нескольких странах.

В этих странах ему запомнились различия в особенности приветствий студентов. В России – хорошие друзья при встрече целуются, в США — обнимаются, в Дании – девушки делают книксен, а юноши – благородный кивок, во Франции – посылают друг другу воздушные поцелуи.

Просыпающиеся мужские инстинкты Леши выставили всем этим способам приветствий следующие баллы (по величине привлекательности):

— жаркие объятия раскованных американских ровесниц – 8 баллов;

— мимолетные поцелуи российских студенток – 5 баллов;

— чопорные датские книксены – 1 балл;

— фривольные французские воздушные поцелуи – 3 балла.

Имеются данные о том, сколько раз поприветствовали Лешу в каждой стране.

Определить в какой стране он получил больше всего баллов.

8. Студенческие приметы

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

Студент Леша решил проверить данную примету. После поездок за рубеж у него осталось несколько образцов иностранных валют. Поэтому, идя на очередной экзамен, он поочередно подкладывал в обувь то российский рубль, то американский доллар, то датскую крону, то испанский песо. В результате было получено четыре разных оценки.

Определить какую валюту он будет использовать в очередной сессии в первую очередь, и какой валютой уже больше никогда не воспользуется.

9. Очень важная контрольная

Маша безнадежно опаздывала на очень важную контрольную. Провожая отчаянным взглядом очередную переполненную маршрутку она услышала, как ее кто-то окликнул. Оглянувшись, она увидела, что из роскошного Volvo ей машет рукой ее бывший одноклассник Вовочка — отчаянный хулиган и двоечник. Он с полуслова понял в чем дело и предложил подвезти ее.

А в это время из-за болезни преподавателя контрольную отменили и вся группа, еще плохо верящая свалившемуся счастью, высыпала на крыльцо института. И тут из блистающей иномарки выпорхнула Маша.

Женский коллектив группа тут же начал активно завидовать ей.

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

Определить общее количество завидок и самую завидущую подругу.

10. День открытых дверей

В назначенный деканатом день часть студентов освободили от занятий. На это время их единственной заботой стали рассказы толпам нахлынувших акселератов о том, как хорошо учиться у них на факультете, какие у них чудесные преподаватели, какие перспективы откроются у них по окончании института и т. д.

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

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

11. Демократичный декан

Декан на факультете был очень современен и демократичен. Он четко следовал принципу: мухи – отдельно, а котлеты – отдельно. Выражалось это, например, в том, что даже после самого жестокого разноса на коллоквиуме он мог пригласить к себе в кабинет тех же студентов и за душевной беседой напоить их чаем.

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

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

Студенты как всегда поняли все правильно.

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

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

12.Вперед! На Запад!

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

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

Дан список групп, их численность и количество студенток, согласившихся участвовать в группе поддержки. Определить не разгневается ли декан факультета, если по спущенной сверху разнарядке в группах поддержки должно участвовать не менее 40% студенток.