Информатика. 
Дополнительные разделы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ Северо-Западный государственный заочный технический университет Кафедра информатики Контрольная работа Информатика. Дополнительные разделы Выполнил ст.

Мамедов Максат Сейдиевич Санкт-Петербург

Вариант задания № 3

Задание 3.

Создать процедуру для выполнения следующих действий

1. Записать в массив с именем Р данные, хранящиеся в ячейках С4: F9 листа Excel c именем «Эксперимент»

2. Найти среднее арифметическое значение элементов массива и присвоить это значение переменной S

3. Вывести диалоговое окно с сообщением «Среднее значение массива равно» S

4. Найти разность величины S и числа, хранящегося в ячейке С5 листа «Числа», результат присвоить переменной Разность.

5. Вывести диалоговое окно с сообщением «Разность S и числа в ячейке С5 равна» Разность.

6. Если Разность > 4, записать в ячейки В5: Е10 листа с именем «Итоги» удвоенное значение элементов массива Р Если Разность <=4, то вычислить и записать в ячейки D2: G7 листа Excel с именем «Итоги» абсолютные значения элементов массива Р

Решение

1. Определяем размерность исходного массива на листе «Эксперимент». Для этого рассмотрим фрагмент электронной таблицы (рис.1):

Рис.1

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

2. Теперь определяем адрес первой ячейки электронной таблицы «Эксперимент», начиная с которой будем считывать исходный массив. Нумерация строк цикла (переменная I) начинается с единицы. Первый элемент массива Р (6,4) располагается в четвертой строке электронной таблицы, значит, адрес строки, с которой начнем считывание массива, будет I + 3. Нумерация столбцов цикла (переменная J) также начинается с единицы. Первый элемент массива P (6,4) располагается в третьем столбце электронной таблицы, значит, адрес столбца, с которого начнем считывание массива, будет J + 2.

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

· создадим файл в табличном процессоре Excel;

· присвоим открывшейся Книге 1 имя «Контрольная работа». Для этого выполним команды: Файл — Сохранить Как — введем имя — Контрольная работа;

· Переименуем рабочий Лист 1 в лист с именем Эксперимент. Для этого выполним команды: Щелчок правой клавишей мыши по имени Лист 1 — Переименовать — введем имя листа Эксперимент (аналогичным образом создадим листы Числа и Итоги);

· Введем массив данных на лист Эксперимент. Заполняем ячейки С4: F9 любыми значениями. Например, в результате ввода исходных данных получим фрагмент программ (рис.2)

Рис.2

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

Рис.3

5. Организуем выполнение задания 2 — Найти среднее арифметическое значение элементов массива и присвоить это значение переменной S. Вспоминаем алгоритм суммирования:

· Обнулить ячейку, где будет храниться сумма;

· Организовать цикл по перебору элементов массива. В результате получаем фрагмент программы рис.4

Рис.4

Для контроля сразу просчитываем среднее арифметическое значение массива (рис.2):

8+7+9+8+(-2)+7+5+7+9+5+3+7+3+6+9+3+8+7+(-1)+6+9+8+6+7 = 144: 24 = 6

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

6. Организуем выполнение задания 3 — Вывести диалоговое окно с сообщением «Среднее значение массива равно» S. Фрагмент программы представлен на рис. 5.

Рис.5

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

Рис. 6.

7. Используя оператор условного перехода If, создаем фрагмент программы для выполнения задания 4. Найти разность величины S и числа, хранящегося в ячейке С5 листа «Числа», результат присвоить переменной Разность.

Фрагмент программы, реализующий это задание, приведен на рис. 7.

Рис. 7.

Далее, согласно задания 5 — Вывести диалоговое окно с сообщением «Разность S и числа в ячейке С5 равна» Разность. Запись ввода будет выглядеть следующим образом, рис. 8.

Рис. 8.

Результат работы фрагмента представлен на рис. 9.

Рис. 9.

8. Пишем фрагмент программы согласно п. 6 задания.

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

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

При проверке условия если разность > 4, вновь вычисленный массив нужно записывать, начиная с ячейки В5. Поскольку цикл перебора строк начинает работу с I = 1, адрес строки первого элемента массива получается равным I + 4. Аналогичным образом определяем, что адрес первого столбца массива равен J + 1.

Если разность <= 4, то необходимо получить абсолютные значения элементов массива и записывать, начиная с ячейки D2, листа с именем Итоги. Поскольку цикл перебора строк начинает работу с I = 1, адрес строки первого элемента массива получается равным I + 1. Аналогичным образом определяем, что адрес первого столбца массива равен J + 3.

При правильной организации ветвления в ячейках В5: Е10 листа Итоги должны быть записаны удвоенные значения массива Р (6,4).

Пишем фрагмент программы согласно заданию 6. (рис.10)

Рис. 10.

Запускаем программу на выполнение (F5). Результат выполнения приведен на рис.11

Рис. 11.

Изменяем числовое значение ячейки С5 листа Числа, так чтобы добиться результата Разность <=4, теперь так как условие изменилось, массив записывается в ячейки D2: G7, листа Итоги с абсолютным значением чисел. Результат вычислений приведен на рис. 12.

Рис.12

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

ПРИЛОЖЕНИЕ

(ЛИСТИНГ ПРОГРАММЫ — КОНТРОЛЬНАЯ РАБОТА)

Библиографический список

1. Информатика. Дополнительные разделы. Учебно-методический комплекс. Санкт-Петербург. Издательство СЗТУ, 2008.

2. Международная компьютерная сеть INTERNET и ее информационные ресурсы