Сумма равна 217,030

Данная программа требует следующих пояснений. В разделе определения констант задана размерность массива А, который описан в разделе описания переменных. Тип индекса - ограниченный. Тип элементов REAL. В этом же разделе описываются переменные: I — параметр цикла; S — сумма.

Для ввода элементов массива А используется цикл с оператором FOR. В качестве параметра цикла вводят номер члена последовательности. Оператор WRITELN, стоящий перед оператором FOR, введён для организации диалога между пользователем и машиной. При выполнении программы этим оператором на экран выдаётся сообщение:

«введите 10 элементов массива через пробел».

Числа вводятся с клавиатуры через пробел. После набора десятого числа нажимается клавиша <ВК> (возврат каретки).

Для вычисления суммы членов последовательности используется цикл с оператором FOR. Начальное значение суммы задаётся оператором S: = 0. Очередное значение суммы вычисляется при выполнении оператора S:= S + A[I]. Выход из цикла будет при значении параметра цикла I>10.

Для вывода на экран (печать) вычисленной суммы используется оператор WRITELN, в список переменных которого включена строка символов «значение суммы равно» для комментария выводимой информации и переменная S. Значение S выводится по формату 7: 3.

Пример 4. Составить программу для вычисления суммы элементов последовательности целых чисел P1, P2, …, P10, имеющих четные индексы, и произведения элементов последовательности P1, P2, …,P10 с нечетными индексами.

Сумма S членов последовательности с четными индексами и произведение Z членов последовательности с нечетными индексами вычисляются по формулам:

S = P2+P4+P6+P8+P10;

Z = P1 P3 P5 P7 P9.

Входными данными являются значения и число членов последовательности, выходными данными — сумма членов последовательности с четными индексами и произведение членов последовательности с нечетными индексами.

Для реализации данной задачи используем циклический алгоритм, рассмотренный в примере 1, но в этом случае кроме задания начального значения суммы нужно задать начальное значение произведения, равное 1. Параметр цикла должен меняться от 1 до 5.

Числовую последовательность P1, P2, …, P10 обозначим как массив целых чисел с именем P, сумму S — переменной SUM, произведение Z — переменной P, параметр цикла — переменной I.

Программа вычисление суммы и произведения элементов массива имеет вид:

PROGRAM PR 2;

CONST N = 10;{размерность массива}

VAR P: ARRAY [1..N] OF INTEGER;{описание массива целых чисел}

{тип индекса – ограниченный}

SUM: INTEGER;{сумма элементов массива}

PRO: INTEGER; {произведение элементов массива}

I: INTEGER; {параметр цикла}

BEGIN {ввод исходных данных}

WRITELN (“вводите через пробел 10 элементов массива”);

FOR I:= 1 TO N DO

READ (P[I]);

{вычисление суммы элементов с четными индексами}

{произведение элементов с нечетными индексами}

SUM:= 0; {начальное значение суммы}

PRO:= 1; {начальное значение произведения}

FOR I:= 1 TO 5 DO

BEGIN

SUM:= SUM + P [I*2];

PRO:= PRO * P [I*2–1];

END;

{печать результатов}

WRITELN;

WRITELN (‘сумма равна’,SUM:5);

WRITELN (‘произведение равно’,PRO:7);

END.

Результат работы программы выглядит следующим образом:

Поиск по сайту: