- •Введение
- •Программа курса
- •III. Общекультурная компетенция ок-9 «Способность работать с информацией в глобальных компьютерных сетях»
- •Учебный план Лекционные занятия
- •Занятия в компьютерном классе
- •Задания для самостоятельной работы Задание 1. Математическая логика
- •Макрокоманда: «Открытие окна программы Microsoft Word 2003»
- •Макрокоманда: «Установка параметров страницы»
- •Макрокоманда: «Переход на русскую раскладку клавиатуры»
- •Макрокоманда: «Переход на английскую раскладку клавиатуры»
- •Макрокоманда: «Установка автоматического переноса слов»
- •Макрокоманда: «Установка гарнитуры шрифта»
- •Макрокоманда: «Установка размера шрифта»
- •Макрокоманда: «Установка начертания шрифта»
- •Макрокоманда: «Выравнивание абзаца»
- •Макрокоманда: «Печать текста»
- •Макрокоманда: «Установка красной строки».
- •Макрокоманда: «Копирование формата»
- •Макрокоманда: «Выделение текста»
- •Макрокоманда: «Гашение выделения текста»
- •Макрокоманда: «Сохранение документа (файла) на диске»
- •Макрокоманда: «Закрытие окна программы Microsoft Word»
- •Макрокоманда: «Вставка таблицы»
- •Макрокоманда: «Выделение строк таблицы»
- •Макрокоманда: «Выделение столбцов таблицы»
- •Макрокоманда: «Выделение ячеек таблицы»
- •Макрокоманда: «Выравнивание текста ячейки таблицы по вертикали»
- •Макрокоманда: «Установка текстового курсора»
- •Макрокоманда: «Вставка пустой строки»
- •Макрокоманда: «Установка текстового курсора в ячейке таблицы»
- •Макрокоманда: «Установка заданной ширины столбцов»
- •Макрокоманда: «Автоматическое создание заголовка таблицы»
- •Макрокоманда: «Оъединение ячеек таблицы»
- •Макрокоманда: «Изменение ширины столбца»
- •Макрокоманда: «Выравнивание ширины столбцов»
- •Макрокоманда: «Создание нового документа»
- •Макрокоманда: «Вставка формулы»
- •Макрокоманда: «Выбор элемента панели инструментов «Формула»»
- •Макрокоманда: «Выбор из меню математических шаблонов и знаков»
- •Макрокоманда: «Увеличение символов формулы»
- •Макрокоманда: «Установка режима отображения сетки»
- •Макрокоманда «Установка линеек»
- •Макрокоманда: «Рисование стрелки»
- •Макрокоманда: «Рисование прямой линии»
- •Макрокоманда: «Вставка надписи»
- •Макрокоманда: «Установка цвета линии»
- •Макрокоманда: «Установка цвета заливки»
- •Макрокоманда: «Выделение объекта (объектов)»
- •Макрокоманда: «Группировка объектов»
- •Макрокоманда: «Копирование объекта»
- •Макрокоманда: «Вставка объекта»
- •Макрокоманда: «Перемещение объекта»
- •Макрокоманда: «Изменение ширины линии»
- •Макрокоманда: «Рисование кривой линии»
- •Макрокоманда: «Рисование автофигуры»
- •Макрокоманда: «Установка обтекания текстом»
- •Макрокоманда: «Замена символов в тексте»
- •Лабораторная работа 2 Технология набора текста. Задание. Набрать нижеследующий текст, применяя необходимые операции форматирования, и сохранить текст на жестком диске компьютера.
- •Относительная частота.
- •Переход на русскую раскладку клавиатуры.
- •Установка автоматического переноса слов.
- •Закрытие окна программы Word.
- •Выключение компьютера.
- •Лабораторная работа 3 Технология создания таблиц
- •Гашение выделения.
- •Переход на английскую раскладку клавиатуры.
- •Переход на русскую раскладку клавиатуры.
- •Закрытие окна программы Microsoft Word.
- •Лабораторная работа 4 Рисование объектов из автофигур Задание 1. Набрать диаграмму Венна множеств (Рис1) .
- •Открытие окна программы Microsoft Word.
- •Операции над множествами
- •Переход на русскую раскладку клавиатуры.
- •Установка автоматического переноса слов.
- •Гашение выделения.
- •Переход на латинскую раскладку клавиатуры.
- •Гашение выделения.
- •Переход на русскую раскладку клавиатуры.
- •Гашение выделения.
- •Гашение выделения.
- •Гашение выделения.
- •Гашение выделения.
- •Закрытие окна программы Word.
- •Лабораторная работа 6 Набор математических объектов и формул. Задание 1. Набрать предложенную матрицу размером 3*3.
- •Последовательность макрокоманд выполнения задания.
- •Вызов редактора формул.
- •Вызов редактора формул.
- •Переход на английскую раскладку клавиатуры.
- •Вызов редактора формул.
- •Переход на английскую раскладку клавиатуры.
- •Лабораторная работа 7 Рисование графиков функций
- •Гашение выделения.
- •Последовательность макрокоманд выполнения задания
- •Закрытие окна программы Microsoft Word.
- •Лабораторная работа 8 Макрокоманды программы Microsoft Excel 2003.
- •1. Макрокоманда: «Включение компьютера и вход в систему».
- •2. Макрокоманда: «Запуск программы Microsoft Excel».
- •3. Макрокоманда: «Выбор активного листа».
- •4. Макрокоманда: «Занесение целых чисел в ячейку».
- •5. Макрокоманда: «Занесение целых чисел в диапазон ячеек».
- •6. Макрокоманда: «Занесение десятичных дробей в ячейку».
- •7. Макрокоманда: «Занесение десятичных дробей в диапазон ячеек».
- •8. Макрокоманда: «Занесение заголовка в ячейку».
- •9. Макрокоманда: «Активизация диапазона ячеек».
- •10. Макрокоманда «Сортировка данных».
- •11. Макрокоманда: «Активизация несвязанного диапазона ячеек».
- •12. Макрокоманда: «Форматирование ширины столбца».
- •13. Макрокоманда: «Форматирование высоты строки».
- •14. Макрокоманда: «Специальная вставка – транспонирование».
- •15. Макрокоманда: «Выбор языка клавиатуры».
- •16. Макрокоманда: «Объединение ячеек».
- •17. Макрокоманда: «Добавление нового листа в рабочую книгу Excel».
- •18. Макрокоманда «Вставка символа».
- •19. Макрокоманда: «Заполнение арифметической прогрессии».
- •20. Макрокоманда: «Закрытие программы Microsoft Excel».
- •21. Макрокоманда «Создание индекса».
- •22. Макрокоманда «Выделение границ ячейки».
- •23. Макрокоманда «Центрирование данных в ячейке».
- •24. Макрокоманда: «Копирование в буфер обмена».
- •25. Макрокоманда: «Построение диаграммы».
- •26. Макрокоманда: «Занесение формул в ячейку».
- •27. Макрокоманда: «Автозаполнение - нумерация».
- •28. Макрокоманда: «Автозаполнение - формула».
- •Лабораторная работа 9 Логические задачи в алгебре Буля
- •Где и в каком веке изготовлен сосуд? с помощью Булевой переменной введем обозначения:
- •Лабораторная работа 10 Вычисление логических функций.
- •Лабораторная работа 11 Частотный анализ поэтических текстов по начальной букве.
- •Лабораторная работа 12 Частотный анализ поэтических текстов по всем буквам.
- •Лабораторная работа 13 Сравнительная оценка переводов стихотворения р.М. Рильке «Читатель» на русский язык
- •За книгой
- •Лабораторная работа 14 Формальный анализ исторических явлений.
- •1. Цель проекта
- •2. Теоретическая часть.
- •Промежуточные результаты для первого блока проекта.
- •Промежуточные результаты для второго блока проекта.
- •Промежуточные результаты для третьего блока проекта.
- •Лабораторная работа 15 Анализ авторской индивидуальности поэтических текстов с помощью предложных спектров н.А. Морозова.
- •Лабораторная работа 16 Частотный анализ курсов валют.
- •Лабораторная работа 17 Определение психологического портрета группы индивидуумов посредствам зодиакальных характеристик её членов.
- •Лабораторная работа 18 Система управления базами данных Microsoft Access
- •Ход выполнения работы
- •Ход выполнения работы
- •Ход выполнения работы
- •Ход выполнения работы
- •Ход выполнения работы
- •Ход выполнения работы
- •Лабораторная работа 19 Изучение основ программирования в Visual Basic
Лабораторная работа 19 Изучение основ программирования в Visual Basic
Запуск редактора Visual Basic: выполнить команду «Сервис → Макрос → редактор Visual Basic»
Запуск программы на выполнение: в редакторе Visual Basic: выполнить команду «Run Run → Sub\User Form (или нажать клавишу F5)»
Линейный алгоритм
Задание 1. Вычисление значений алгебраических выражений.
Sub schet()
a = 1
b = 4
S = a * 2 + Sqr(b)
MsgBox (S)
End Sub
Задание 2. Вычисление суммы двух чисел, введенных с клавиатуры
Sub sum()
I = InputBox(“Введите первое число!”)
K= InputBox(“Введите второе число!”)
S = int(I)+int(K)
MsgBox (S)
End Sub
Задание 3. Подсчет площади круга.
Sub okr()
Const Pi = 3.14
R = InputBox("Введите радиус круга в сантиметрах!")
S = Pi * R * R
MsgBox ("Площадь круга = " & S & " см.")
End Sub
Условный алгоритм
Задание 4. Создание диалога компьютера и пользователя.
Sub txt()
aa = InputBox("Любите ли Вы мороженное?")
If aa = "Да" Or aa = "да" Then
MsgBox ("Приятного аппетита!")
Else: MsgBox ("Я съем Вашу порцию!")
End If
End Sub
Задание 5. Проверка результата сложения двух чисел.
Sub sum1()
I = InputBox(“Введите первое число!”)
K= InputBox(“Введите второе число!”)
S = int(I)+int(K)
SV= InputBox(“Введите сумму чисел!”)
If S= int(SV) Then
MsgBox ("Правильно!”)
Else: MsgBox ("Неправильно!”)
End If
End Sub
Задание 6. Нахождение меньшего из двух чисел.
Sub min()
I = InputBox(“Введите первое число!”)
K= InputBox(“Введите второе число!”)
If I> K Then
MsgBox (K)
Else: MsgBox (I)
End If
End Sub
Задание 7. Нахождение большего из трех чисел.
sub max()
I = InputBox(“Введите первое число!”)
K = InputBox(“Введите второе число!”)
N = InputBox(“Введите третье число!”)
If ((I > K) And (I > N)) Then
MsgBox (I)
ElseIf ((K > I) And (K > N)) Then
MsgBox (K)
Else: MsgBox (N)
End If
End Sub
Задание 8. Создать тест из трех вопросов.
Sub vopr()
pro = 0
I = InputBox(“Сколькими способами можно расставить в ряд три разных кресла?”)
If I = 6 Then
MsgBox ((“Верно”)
pro = 1
Else: MsgBox ((“Неверно”)
End If
I = InputBox("Сколькими способами можно расставить на полке в ряд четыре разные чашки?")
If I = 24 Then
MsgBox (“Верно”)
pro = pro + 1
Else: MsgBox(“Неверно”)
End If
I = InputBox("Сколькими способами можно рассадить пятерых гостей на пяти стульях?")
If I = 120 Then
MsgBox (“Верно”)
pro = pro + 1
Else: MsgBox (“Неверно”)
End If
MsgBox (“Ваша отметка - ”& pro)
End Sub
Циклический алгоритм
Задание 9. Подсчитать сумму целых чисел от 1 до 10.
sub max()
Sum=0
For sch=1 To 10
Sum=Sum+ sch
Next sch
MsgBox (“Сумма=”& Sum)
End Sub
Задание 10. Подсчитать произведение целых положительных чисел от 1 до N. Число N вводится с клавиатуры.
sub max()
Pr=1
N = InputBox(“Введите целое положительное число!”)
For sch=1 To N
Pr=Pr*sch
Next sch
MsgBox (“Произведение=”&Pr)
End Sub
Задание 11. Подсчитать сумму целых положительных чисел от К до N. Числа К и N вводятся с клавиатуры.
sub max()
K = InputBox(“Введите первое целое положительное число!”)
N = InputBox(“Введите второе целое положительное число!”)
Sum=0
If K<N Then
S=1
Else: S=-1
End If
For sch=K To N Step S
Sum=Sum+ sch
Next sch
MsgBox (“Сумма=”& Sum)
End Sub
Задание 12. С клавиатуры вводится семь чисел. Подсчитать сумму положительных чисел, введенных с клавиатуры.
sub max()
Sum=0
For sch=1 To 7
K = InputBox(“Введите число!”)
If K>0 Then
Sum=Sum+ K
End If
Next sch
MsgBox (“Сумма = ”& Sum)
End Sub
Задание 13. С клавиатуры вводится десять чисел. Подсчитать количество нулей, введенных с клавиатуры.
sub max()
Kol=0
For sch=1 To 10
K = InputBox(“Введите число!”)
If K=0 Then
Kol=Kol+ 1
End If
Next sch
MsgBox (“Количество нулей = ”& Kol)
End Sub
Задание 13. С клавиатуры вводится числа, до тех пор, пока не введено число 13.. Подсчитать количество отрицательных чисел, введенных с клавиатуры.
sub max()
Kol=0
K = InputBox(“Введите число!”)
Do While K<>13
If K<0 Then
Kol=Kol+ 1
End If
K = InputBox(“Введите число!”)
Loop
MsgBox (“Количество отрицательных чисел = ”& Kol)
End Sub
Задание 14. С клавиатуры вводится числа, до тех пор, пока не введено число 777. Подсчитать количество чисел 7 и 77, введенных с клавиатуры.
Вариант 1
sub max()
Kol=0
K = InputBox(“Введите число!”)
Do While K<>777
If K=7 or K=77 Then
Kol=Kol+ 1
End If
K = InputBox(“Введите число!”)
Loop
MsgBox (“Количество чисел 7 и 77 = ”& Kol)
End Sub
Вариант 2
sub max()
Kol=0
Do
K = InputBox(“Введите число!”)
If K=7 or K=77 Then
Kol=Kol+ 1
End If
Loop While K<>777
MsgBox (“Количество чисел 7 и 77 = ”& Kol)
End Sub
Задание 15. С клавиатуры вводится буквы русского алфавита, до тех пор, пока не введена буква а. Подсчитать количество букв Я и я, введенных с клавиатуры.
Вариант 1
sub max()
Kol=0
K = InputBox(“Введите букву русского алфавита !”)
Do Until K = “а”
If K=”Я” or K=”я” Then
Kol=Kol+ 1
End If
K = InputBox(“Введите число!”)
Loop
MsgBox (“Количество букв Я и я = ”& Kol)
End Sub
Вариант 2
sub max()
Kol=0
Do
K = InputBox(“Введите букву русского алфавита!”)
If K=”Я” or K=”я” Then
Kol=Kol+ 1
End If
Loop Until K = “а”
MsgBox (“Количество букв Я и я = ”& Kol)
End Sub