Изучение программирования символьных выражении на Visual Basic - е в среде разработки Visual Studio

1. Запустите Microsoft Visual Studio (обозначим его IDE). Подготовьте к работе IDE (среда разработки):

Войдите в меню Tools-Options . На левой части диалогового окна в древовидной структуре выберите Projects and Solutions. Правая сторона при выборе меняется. Найдите маленький квадрат с названием: Save new projects when created. Убедитесь, что есть на нем галочка.

2. Из меню File – New Project ; выбирайте заготовку для Console Application

3. Появляется диалоговое окно. В поле Name выбирайте имя : ConsoleСимвол. В поле Location укажите каталог для размещения проекта. В квадрате Create directory for solution должна быть галочка. Нажмем на кнопку Ok.

4. Появляется рабочее окно с заготовкой

Module Module1

Sub Main()

End Sub

End Module

Используя окно Solution Explore, переименуйте Module1.vb на Символ1.vb.

5. Между строками Sub Main() и End Sub ставьте текст следующего вида (задача 1)

Dim Stud As String = "студент МарГТУ"

Dim Fami As String = "Фамилия"

Dim Imja As String = "Имя"

Dim Ote As String = "Отчество"

Dim Rab As String

Rab = Fami + " " + Imja + " " + Ote + " - " + Stud + "!"

Console.WriteLine(Rab)

Console.ReadLine()

6. Выполните программу, нажав F5.

7. Добавьте в проект новый модуль с именем Символ2

8. Аналогично предыдущему модулю наберите в нем текст для задачи 2:

9. Выполните команду меню Project- ConsoleСимвол Properties …, появляется окно, где в странице (вкладке) Application в поле с именем Startup object выберите Символ2.

10. Выполните программу, нажав F5.

11. Остальные задачи решите подобным же образом, создавая модули Символ3 и Символ4.

Контрольные вопросы

1. Когда чаще всего используются данные текстового типа?

2. Приведите примеры символьных функции, поставляемых компилятором?

Задачи

Задача 1 (Fortran). В программе должно быть реализовано следу­ющее:

1) описать переменные STUD, FAMI, IMJA, OTE как символьные (стро­ковые) длиной в 80 байт;

2) начальные значения переменных должны быть следующие тексто­вые строки: 'студент МарГТУ', ваша фамилия, имя, отчество;

3) определить символьную переменную RAB длиной в 80 байт;

4) используя переменные STUD, FAMI, IMJA, OTE, в переменной RAB формировать текстовое значение так, чтобы на первом месте нахо­ди­лась ваша фамилия, на втором - ваше имя, на третьем - ваше от­чество, за­тем символ '-', а дальше текст 'студент МарГТУ'; между отдельными эле­ментами должен быть один пробел;

5) вывести на экран переменную RAB.

Задача 2 (QuickBasic, Visual Basic). При тех же условиях формировать тексто­вое зна­чение RAB так, чтобы на первом месте была 'студент МарГТУ', за ним знак '-', остальные элементы в той же последовательности.

Задача 3 (Turbo Pascal). Требования такие же. Формировать зна­че­ние RAB в начале так же, как в задаче 2, но фамилию внести на по­след­нее место.

Часть 3 Логические переменные и логический оператор присваивания

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

Пусть опубликовано объявление, что требуется руководитель для пре­стижного проекта не старше 35 лет с опытом работы после вуза не мень­ше 5 лет. Предположим, что у отца два сына, имеющие соот­вет­ству­ющие высшие образования. Отец прикидывает, сможет ли он иметь в семье руководителя престижного проекта.

Разберемся, как он это решает. Пусть A_i - год рождения, а B_i - год око­нчания вуза i - ого сына. Пусть X - текущий год.

Если верны условия X-A₁ <= 35 и X-B₁ >= 5 , то первый сын под­хо­дит под требования.

Если верны условия X-A₂ <= 35 и X-B₂ >= 5 , то второй сын под­хо­дит под требования.

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

X-A₁ <= 35 и X-B₁ >= 5 или X-A₂ <= 35 и X-B₂ >= 5 .

Рассмотрим, как это можно вычислить. Обозначим соответствующие пе­ре­менные A1, A2, B1, B2, X. Пусть U логическая переменная. Тогда после оператора:

Fortran

U=X-A1.LE.35.AND.X-B1.GE.5.OR.X-A2.LE.35.AND.X-B2.GE.5

в переменной U будет искомый ответ;

Visual Basic

U=X-A1 <= 35 AND X-B1 >= 5 OR X-A2 <= 5 AND X-B2 >= 5

в переменной U будет искомый ответ.

Turbo Pascal

U:=(X-A1<=35) AND (X-B1>=5) OR (X-A2<=35) AND (X-B2>=5);

в переменной U будет искомый ответ.