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

Однако пользователь должен понять, что за данные ему необходимо вводить.

Write (‘Введите ‘, count, ‘-тое значение:’);

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

sum:=sum+a;

В конце программы выведем результат на экран, следующей строкой

Writeln (‘Среднее арифметическое:’, sum/10);

Запустим программу, щелкнув пункт меню «Run», рисунок 16.

Рис. 16. Запуск программы

Необходимо пользователю ввести 10-ть значений (от 1 до 10). Результат работы программы видно на рисунке 17

Рис. 17. Результат работы программы

Мы рассмотрели два варинта написания программы с использование двух циклов. Как видно из примеров необходимо все сторонне подходить к написанию программы, что бы пользователю было понятно и удобно использовать написанную программу, для этого и вводим строки позволяющие пользователю получить желаемый результат работы программы.

3. Работа с массивами

Массив — упорядоченный набор данных для хранения данных одного типа, идентифицируемых с помощью одного или нескольких индексов. В простейшем случае массив имеет постоянную длину и хранит единицы данных одного и того же типа.[1]

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

Начнем запись программы

Program TestProg;

Begin

End.

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

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

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

i:integer;

Ввод данных с клавиатуры будет осуществляться в цикле for. Добавим в программу данный цикл. Для этого введем строку

for i:=1 to 10 do

Так как в теле цикла будет составной оператор, рисунок 18 то введем следующее:

Begin

End;

Рис. 18. Составной оператор цикла

Выдадим запрос на ввод очередного элемента. Для алгоритм программы вводим строку

Write (‘Введите’,i,’-ый элемент’);

Запросим i-ый элемент у пользователя. Для этого введите строку

readln(a[i]);