Читайте также:
|
В разделе определения констант задается размерность массива n = 10. В разделе описания переменных описывается массив целых чисел, переменные sum и pro, параметр цикла i.
Ввод элементов осуществляется в простом цикле с оператором writeln (‘введите через пробел 10 элементов массива’).
При подготовке цикла задается начальное значение суммы оператором sum: = 0; начальное значение произведения — оператором pro: = 1.
Для вычисления суммы и произведения элементов числовой последовательности организован еще один простой цикл с оператором for. Параметром этого цикла является переменная i, значение которой меняется от 1 до 5 с шагом 1. В теле цикла вычисляются сумма и произведение элементов, значения индексов которых соответственно:
(1 
2), [ 1 (2-1)].
Тело цикла, состоящее из двух операторов, заключено в операторные скобки begin … end.
Для вывода результатов вычисления на экран дисплея используются операторы writeln, в списке данных которых записываются текстовые сообщения в апострофах и переменные с указанием ширины поля вывода.
Пример 5. Составить программу определения наибольшего элемента числовой последовательности a1, a2, …, a15. Вывести на печать найденный максимальный элемент.
Входными данными являются значения элементов числовой последовательности и число членов последовательности, выходными данными — номер максимального элемента последовательности и значение этого элемента.
Для нахождения максимального элемента воспользуемся простым перебором значений последовательности, сравнивая эти значения с возможным максимумом. Если какое-либо значение элемента окажется больше найденного максимума, то это значение берется в качестве нового значения максимума и далее продолжается перебор. При таком переборе значений используется циклический алгоритм со структурой выбора действия по условию.
В качестве параметра цикла берется номер элемента числовой последовательности. Начальное значение параметра цикла 2, конечное — равно числу элементов в массиве, шаг цикла принимается равным 1.
В качестве начального значения возможного максимума берём значение первого элемента последовательности.
В теле цикла проверяется условие: будет ли очередное значение элемента последовательности больше значения максимума. Окончание цикла имеет место после просмотра всех элементов массива.
Введём обозначение: a — числовая последовательность а1, а2, …, а15; n — размерность массива; переменная amax — наибольший элемент; переменная pn — порядковый номер наибольшего элемента; переменная i — параметр цикла.
Программа вычисления наибольшего элемента последовательности имеет вид:
program pr3;
costn n=15; {размерность массива a}
var
a: array [1..n] of integer; {описание массива a}
amax: integer; {обозначение максимального элемента}
pn: integer; {параметр цикла}
i: integer;
begin
writeln (‘введите через пробел 15 чисел’);
for i:= 1 to n do
readln (a[i]);
amax:= a[1]; pn:= 1; {подготовка цикла}
for i:=2 to n do {цикл}
if a[i] > amax then
begin
amax:= a[i];
pn:= i;
end;
{печать}
writeln; {пропуск строки}
writeln (‘максимальный элемент последовательности a’);
writeln (‘a (‘, pn:2, ‘) = ‘, amax:4);
end.
Результат работы программы выглядит следующим образом:
Дата добавления: 2014-12-19; просмотров: 24 | Поможем написать вашу работу | Нарушение авторских прав |