Практическое занятие №5 (1)

по учебной дисциплине  «Информатика и ИКТ»

Тема 2.2 Основные информационные процессы и их реализация с помощью компьютера.

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

Цели работы:

- познакомиться с линейной структурой задач;

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

Норма времени: 2 часа

Оснащение рабочего места: ПК, ИТК, ОС Windows, рабочая тетрадь.

Техника безопасности: Правила ТБ при работе в компьютерном классе

Содержание работы

Последовательность выполнения:

1. Ознакомиться с содержанием работы.

2. Записать дату, тему и цель практического занятия.

3. Изучить теоретические сведения.

4. Выполнить задания.

5. Ответить на контрольные вопросы.

6. Сформулировать и записать вывод о проделанной работе.

Теоритические сведения

Линейная структура задач

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

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

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

                    I.            Создать миникалькулятор с четырьмя арифметическими операциями.

Порядок работы:

1. Вызвать новую форму Form1.
2. В свойстве Caption: ввести новое имя «Калькулятор»

Back Color: зелёный цвет.

3. Добавить на форму Калькулятор (см. рис.).

·     Метку label1. Свойства:

Caption: введите следующий текст: «Введите первое число:»

Back color: зелёный цвет.

Font: MS Sans Serif, обычный, 10пт.

·     Метку label2. Свойства:

Caption: введите следующий текст: «Введите второе число:»

Back color: зелёный цвет.

Font: MS Sans Serif, обычный, 10пт.

·     Текстовое поле Text Box1. Свойства:

Text: пусто.

Font: MS Sans Serif, обычный, 14пт.

·     Текстовое поле Text Box. Свойства:

Text: пусто.

Font: MS Sans Serif, обычный, 14пт

·     Кнопку Command Button1. Свойства:

Caption: «+»

Font: Time New Roman, жирный, 24

·     Кнопку Command Button2. Свойства:

Caption: «-»

Font: Time New Roman, жирный, 24

·     Кнопку Command Button3. Свойства:

Caption: «*»

Font: Time New Roman, жирный, 24

·     Кнопку Command Button4. Свойства:

Caption: «/»

Font: Time New Roman, жирный, 24

·     Метку Label 3. Свойства:

Сaption : пусто

BackColor: зеленый

Font: Time New Roman, жирный курсив, 14

·     Кнопку Command Button5. Свойства:

Caption: "Далее»

Font: Time New Roman, обычный, 14

Напишем коды.

1) Двойным щелчком по кнопке Command1 открываем коды.

Private Sub Command1_Click()

a = Val(Text1.Text)                        переводит в число значение поля Text1 (свойство Text)

b = Val(Text2.Text)                       переводит в число значение поля Text2 (свойство Text)

Label3.Caption = a + b                   сумма двух чисел a и b выводится в объекте Label3

 (свойство Caption)

End Sub

2)  Перейти снова на форму (щелчок в любом месте формы) и двойным щелчком по кнопке Command 2 вызвать коды

Private Sub Command2_Click()

a = Val(Text1.Text)                        переводит в число значение поля Text1 (свойство Text)

b = Val(Text2.Text)                       переводит в число значение поля Text2 (свойство Text)

Label3.Caption = a - b                   разность двух чисел a и b выводится в объекте Label3

               End Sub

3)  вызвать коды Command 3

Private Sub Command3_Click()

a = Val(Text1.Text)                       

b = Val(Text2.Text)                      

Label3.Caption = a* b                  

               End Sub

4)  вызвать коды Command 4

Private Sub Command4_Click()

a = Val(Text1.Text)                        

b = Val(Text2.Text)                      

Label3.Caption = a/b                  

               End Sub

5) Ввести внутри процедуры  Command 5 следующие коды:

Private Sub Command5_Click()

                 Unload Form1                    приостановить работу Формы 1

                Form2.Show                        запустить Форму 2

                End.

5) Закрыть окно с кодами. 

Запустим созданную программу.

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

Для решения второй задачи добавьте новую форму Form2 нажатием значка

Окно объектов                                                                                                                                 Окно кодов

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

формула для нахождения гипотенузы sqr (a^2 + b^2)

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

Критерии оценки практического занятия

Дополнительное задание (оценивается дополнительно)

Написать программу нахождения площади треугольника по трём сторонам.