Алгоритмы преобразования одномерных массивов, страница 7

Затем, с помощью оператора вывода на экран write (writeln) зададим для пользователя нашей программы вопрос о способе сортировки: «Выберите сортировку: 1 - по возрастанию; 2 - по убыванию». И с помощью оператора read (readln) присвоим переменной rответ на этот вопрос. Если пользователь отвечает цифрой 1, то программа начинает сортировку по возрастанию, если 2 – по убыванию (рис. 21).

Рисунок 21. Выбор сортировки

Далее, нужно задать цикл попарного сравнения элементов массива. Цикл начнёт сравнивать, начиная с первого введенного с клавиатуры элемента, и , таким образом, сравнит все элементы массива.

Если пользователь выбрал сортировку по возрастанию, то используем оператор условия if…then (рис. 22).

Рисунок 22. Задание цикла на выполнение сортировки по возрастанию

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

Рисунок 23. Задание цикла на выполнения сортировки по убыванию

В данном случае, больший элемент ставится в начало массива, а меньший в его конец.

Наконец, выведем полученный после сортировки массив на экран (рис. 24).

Полный текст программы представлен в приложении 4.

Рисунок 24. Вывод отсортированного массива на экран

Работоспособность программы (рис. 25, 26, 27, 28):

Рисунок 25. Окно программы при запуске

Рисунок 26. Окно программы при запросе выбора сортировки

Рисунок 27. Окно программы при выполнении сортировки по возрастанию

Рисунок 28. Окно программы при выполнении сортировки по убыванию

ЗАКЛЮЧЕНИЕ

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

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

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

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

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

3.  Реализовали алгоритмы преобразования одномерных массивов средствами языка программирования Pascal.ABC.

Все задачи, поставленные в данном исследовании, были выполнены в полном объеме.

БИБЛИОГРАФИЯ

1.  Бежанова, М.М. Москвина Л.А. Практическое программирование. Приемы создания программ на языке Паскаль. – М.: Научный Мир, 2000.

2.  Вирт, Н. Алгоритмы и структуры данных: Пер. с англ. – М.: Мир, 1989.

3.  Вирт, Н. Алгоритмы + структуры данных = программы: Пер. с англ. – М.: Мир, 1985.

4.  Вирт, Н. Систематическое программирование. Введение: Пер. с англ. – М.: Мир, 1977.

5.  Демидов, Д.В. Основы программирования в примерах на языке Паскаль: Учебное пособие. – М.: НИЯУ МИФИ, 2010.

6.  Павловская, Т.А. Паскаль. Программирование на языке высокого уровня: Учебник для вузов. – СПб.: Питер, 2007.

7.  Рапаков, Г.Г. Программирование на языке Pascal. – СПб.: БХВ-Петербург, 2004.

8.  Ускова, О.Ф. Программирование на языке Паскаль: задачник. – СПб.: Питер, 2003.

9.  Ушаков, Д.М. Паскаль для школьников. – СПб.: Питер, 2010.

10. Фаронов, В.В. TurboPascal 7.0. Учебный курс: учебное пособие. – М.: КНОРУС, 2011.

11. Федоренко, Ю. Алгоритмы и программы на TurboPascal. Учебный курс. – СПб.: Питер, 2001.

Приложение 1

Program C;

uses GraphAbc;

var a: array [1..10] of integer;

s,i,n: integer;