Создание программы циклической структуры. 
Работы с массивами

К достоинству статистического массива относится: лёгкость вычисления адреса элемента по его индексу, для динамического массива одинаковое время доступа ко всем элементам, для гетерогенного массива небольшой размер элементов: они состоят только из информационного поля

Работа с многомерными массивами всегда связана с организацией вложенных циклов. Рассмотрим пример написания такого массива. Создадим новую программу и пропишем там следующее: program n3-massive;beginend.Далее нужно определить массив, который будет использоваться для хранения 10-ти значений введенных пользователем. Прописываем: vara:array[1.10] ofinteger;Довольно часто обработка массива производится при помощи цикла for. Для использование данного цикла определяем переменную выступающую в роли счетчика: i:integer;Ввод данных с клавиатуры будет осуществляться в цикле for. Добавляем его в код программы: fori:=1 to 10 doВ теле цикла будет присутствовать составной оператор, поэтому вводим: beginend;Рис. 16 — Составной оператор цикла

Выдаем запрос на ввод очередного элемента. Прописываем: write (‘Введите', i,'-ый элемент');Запросим i-ый элемент у пользователя. Прописываем: readln (a[i]);Для нахождения максимального значения создаем еще одну переменную: max:integer;Присваиваем переменной значение — 0: max:=0;Организуем цикл для поиска максимального значения. Производим перебор всех элементов массива. for i:=1 to 10beginend;Рис. 17 — Цикл для поиска максимального значения. Проверяем, больше ли очередной элемент массива, чем значение в переменной max? Если это так, то записываем данное значение в max. Для этой операции в алгоритм программы добавляем строку: if (a[i]>max) then max:=a[i]; Организуем вывод результата работы программы: write (‘максимальное значение в массиве:', max); Рис. 18 — Полная программа выполняющая поиск максимального значения

Запускаем программу, вводим по запросу 10 чисел, и получаем в качестве результата наибольшее из введенных значений. Рис. 19 — Результат работы программы

Для поиска минимального значения создаем новую переменную — min: min: integerЗатем меняем условие: if (a[i]

Далее напишем цикл обработки заданного значения, начиная с 2-го:for i:=2 to 10beginend. Организуем проверку пары соседних значений массива. Для этого добавляем в алгоритм программы условие с составным оператором: if (a [i-1]>a[i]) thenbeginend;Рис. 21 — Цикл с составным оператором

В случае, если условие выполняется, присваиваем переменной x наименьшее из двух значений. Прописываем: x:=a[i]; Далее, присваиваем переменной j номер элемента, располагающийся перед рассматриваемым: j:=i-1;Прописываем цикл для перемещения блока значений, которые больше x: while (j>0 and (a[j]>x) dobeginend;Рис. 22 — Перемещение блока значений

Передвигаем очередное значение вперед по массиву: a[j+1]: =a[j];Уменьшим j на 1 для движения к началу массива. j:=j-1;Перебрав весь блок со значениями больше x, записываем x в конце блока: a[j+1]: =x;Рис. 23 — Поиск значения, которое было бы больше xОрганизуем цикл вывода упорядоченного массива в консоль. Для этого вводим следующие строки: for i:=1 to 10 dobeginend;Теперь произведем вывод очередного элемента на экран: writeln (I,'-ыйэлемент:', a[i]);Рис. 24 — Вывод данных на экран

Запустив программу видим, что пользователю необходимо ввести значения, после чего программа должна выдать искомое значение.Рис. 25 — Результат работы программы

К вопросу о методах сортировки массивов. Сортировка массива, это процесс расположения его элементов по возрастанию либо убыванию. Если не все элементы различны, то надо говорить о неубывающем (или невозрастающем) порядке. Всего в Паскале существует 3 вида сортировки, это — метод «пузырька», сортировка вставками, и сортировка посредством выбора. Продемонстрируем метод «пузырька», как наиболее простой: beginfor j:=1 to N-1 dofor I:=1 to N-j doif M[i] > M[i+1] thenswap (M[i], M[i+1])end;Нужно отметить, что если массив N является глобальным, то процедура могла бы содержать только аргументы (а не результаты). Кроме того, учитывая специфику ее применения в данном алгоритме, можно свести число парметров к одному, а не двум. Заключение

Из проведенной работы можно сделать вывод, что отсутствие циклов привело бы к определенным затруднениям, память программы оказалась бы загружена, не говоря уже о трудоемкости и быстродействии программы. В ходе работы были рассмотрены циклы начиная с арифметического, заканчивая итерационным циклом, делимый в свою очередь делится на: — цикл for (цикл «для» со счетчиком, в котором значения должны обладать порядковым типом, т.к. значение переменной цикла увеличивается или уменьшается на единицу при каждом его прохождении);

— цикл while-do (цикл «до» с предусловием, который выполняется до тех пор, пока выражение имеет истинное значение (true), но стоит выражению принять ложное значение (false), как произойдет переход к следующему оператору);

— цикл repeat-until (цикл с постусловием «пока» обладает противоположным циклу «до» действием, т. е. пока выражение ложное — тело цикла продолжается, но как только выражение становится истинным, цикл прекращается).После рассмотрения примеров использования циклов, мы также выяснили, что тело цикла с постусловием в любом случае выполняется хотя бы один раз, а вот цикл с предусловием может быть не выполнен не разу, данный момент необходимо брать во внимание при написании программы. Важно, чтобы код программы оставался читаемым. Для этого он должен удовлетворять определенным требованиям форматирования и стиля написания. Поэтому так важна цикличность программной структуры. При постоянно повторяющихся действиях, мы устанавливает цикл, количество операций, после чего оперативность программы улучшается, и меньше времени тратится у программиста на написание кода. Говоря о вложенных циклах, один цикл может начать свою работу, только после того, как другой цикл закончил свою. Также, циклический алгоритм-программу можно применить и для поиска максимального либо минимального значения, иногда это делать удобнее, чем использовать записи поиска. С точки зрения преподавания Pascal является универсальным языком, он удобен как в изучении так и в использовании. Язык программирования — это строго типизированный язык, что позволяет часто применять его при написании программ группами, что на сегодняшний день хорошо распространено. При написании программы, даже самой небольшой, необходимо помнить то, что кому-то, возможно, придется с ней работать, поэтому в процессе программирования нужно учитывать все правила. Циклические (повторяющиеся) действия окружают нас во многих местах, но многие никогда не задумывались, что их описание возможно, и тем более машинным языком. Научившись таким не сложным действиям перед нами открываются границы нового. Список использованной литературы

С. Немнюгин — Turbo PascalВ. Фаронов — TurboPascal. Наиболее полное руководство

Массивы в Турбо Паскаль:

http://egeinf.gym5cheb.ru/p66aa1.htmlМассивы в TurboPascal. Решение задач на массивы:

http://nsportal.ru/shkola/informatika-i-ikt/library/massivy-v-turbo-pascal-reshenie-zadach-na-massivyРубенкинг

Н.Дж. Турбо Паскаль для Windows: в 2-х томах

О. Меженный — Самоучитель Turbo Pascal Р. Сулейманов — Методика решения учебных задач средствами программирования. Методическое пособие.Н. Культин — Турбо Паскаль в задачах и примерах С. Трофимов — Программирование на языке высокого уровня: Рабочая программа дисциплины Ю. Федоренко — Алгоритмы и программы на TurboPascal Е. Шумова — Программирование на языке высокого уровня: Методические указания к курсовой работе В. Потопахин — Турбо Паскаль. Решение сложных задач А.

Пахомова — Методическое пособие «Программирование на языкеTurboPascal» С. Окулов — Программирование в алгоритмах

УчебникTurbo Pascal 7.0:

http://pascal.guti.ru/fornext.htmlФ. Меньшиков — Олимпиадные задачи по программированию

Программирование. Динамические списки Pascal:

http://www.pascal.helpov.net/index/dynamic_lists_pascal_programming Исходный текст программ на Паскаль:

http://www.pascal-c.ru/ishod_pascal.php Стандарт оформления кода: ru.wikipedia.org/wiki/Стандарт_оформления_кода 10 правил написания чистого кода:

http://ruseller.com/lessons.php ?rub=28&id=1063

Работа с массивами в Pascal:

http://ed.tusur.ru/lit/edu/informatica/Lections_part2.pdf Я. Гордон — Тонкости программирования на языке Паскаль

Методы сортировки массивов:

http://www.vzmakh.ru/info/pascal/modules/page14.htmlBorland Pascal — Руководство пользователя: citforum.ru/programming/bp70_ug/index.shtml‎Обучение. Учебник по Паскалю: pers.narod.ru/study/pascal.html