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

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

readln(a);

Увеличим счетчик на 1[3,c.82]. Для этого введем с клавиатуры

count:=count+1;

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

mult:=mult*a;

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

writeln('Произведение чисел равно: ',mult);

Дошли до пункта проверки программы. Для запуска программы выберем пункт меню «Run» смотрите рисунок 11.

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

Запустим программу, введем произвольные числа в диапазоне от 1 до 5 и посмотрим результат на рисунке 12

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

Аналогично изложенной программе, давайте создадим алгоритм со вложенным циклом используя цикл for-to.

Решим задачу: необходимо запросить с клавиатуры 10 чисел и найти их среднее арифметическое.

Для организации цикла for-to необходимо использование переменной-счетчика.[14,c.56] Объявим такую переменную. Для этого создадим строчку и добавим её в программу

var count:integer;

Начало написания программы смотрите на рисунке 13

Рис. 13. Введение счетчика в программу

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

a:integer;

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

sum:integer;

Переменная, отвечающая за суммирование, должна быть проинициализирована перед использованием, рисунок . Установим значение переменной, равное 0. Для этого введем в программу строку, рисунок 14

sum:=0;

Рис. 14. Ввод суммирующего элемента

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

for count:=1 to 10 do

Так как мы собираемся использовать в цикле несколько операций, то необходимо поставить операторные скобки. Вводим следующую строку

begin

...введите дополнительную строку, окончания данного задания

end;

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

readln(a);