Читайте также:
|
|
Данная программа требует следующих пояснений. В разделе определения констант задана размерность массива А, который описан в разделе описания переменных. Тип индекса — ограниченный. Тип элементов real. В этом же разделе описываются переменные: i — параметр цикла; s — сумма.
Для ввода элементов массива А используется цикл с оператором for. В качестве параметра цикла вводят номер члена последовательности. Оператор writeln, стоящий перед оператором for, введён для организации диалога между пользователем и машиной. При выполнении программы этим оператором на экран выдаётся сообщение:
«введите 10 элементов массива через пробел».
Числа вводятся с клавиатуры через пробел. После набора десятого числа нажимается клавиша <bk> (возврат каретки).
Для вычисления суммы членов последовательности используется цикл с оператором 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.
Результат работы программы выглядит следующим образом:
Дата добавления: 2014-12-19; просмотров: 18 | Поможем написать вашу работу | Нарушение авторских прав |