Вычислить сумму и произведение элементов последовательности целых чисел Р1, Р2,…, Р10 - Pascal
Формулировка задачи:
Составить программу для вычисления сумму элементов последовательности целых чисел Р1, Р2,…, Р10 имеющих четные индексы и произведение элементов последовательности Р1, Р2,…, Р10 имеющих нечетные индексы.
Решение задачи: «Вычислить сумму и произведение элементов последовательности целых чисел Р1, Р2,…, Р10»
textual
Листинг программы
const
NMAX = 10;
type
TLine = Array[1..NMAX] Of ShortInt;
function Sum(const l: TLine; const even: Boolean): Integer;
var
Result: Integer;
i: Byte;
begin
Result := 0;
for i := 1 to NMAX do
if ((even And Not Odd(i)) Or (Not even And Odd(i)))
then
Inc(Result, l[i]);
Sum := Result;
end;
function Mult(const l: TLine; const even: Boolean): Double;
var
Result: Double;
i: Byte;
begin
Result := 1;
for i := 1 to NMAX do
if ((even And Not Odd(i)) Or (Not even And Odd(i)))
then
Result := Result * l[i];
Mult := Result;
end;
var
p: TLine;
i: Byte;
begin
Randomize();
Write('P:');
for i := 1 to NMAX do
begin
p[i] := Random(199) - 99;
Write(p[i]:4);
end;
WriteLn;
WriteLn('even: sum=', Sum(p, True), ' mult=', Mult(p, True):0:0);
WriteLn('odd: sum=', Sum(p, False), ' mult=', Mult(p, False):0:0);
end.
Объяснение кода листинга программы
- Объявляется константа NMAX со значением 10.
- Определяется тип TLine как массив из 10 элементов типа ShortInt.
- Объявляются функции Sum и Mult, где l - массив целых чисел, even - булева переменная.
- В функции Sum вычисляется сумма элементов массива l, в зависимости от булевой переменной, которая определяет, является ли индекс элемента четным или нечетным, а затем возвращается значение суммы.
- В функции Mult вычисляется произведение элементов массива l, также в зависимости от булевой переменной, и возвращается результат.
- Объявляется переменная p как массив целых чисел.
- С помощью Randomize() генерируются случайные значения для массива p, после чего они выводятся на экран.
- Выводятся результаты суммы и произведения элементов массива p, как для четных, так и для нечетных элементов, используя функции Sum и Mult.