Примеры задач

Одномерные массивы


Пусть даны вещественные числа а1,...аn,b1,...,bn. Вычислите произведение: (a1+bn)(a2+bn-1)...(an+b1).

Методика решения

Используемые переменные:
a, b – массивы,
N – количество чисел в массиве,
P – произведение,
I – счётчик массива,
J – вспомогательная переменная.

Для начала вводим с клавиатуры n . Затем в цикле от 1 до n считываем числа массива A . То же самое делаем с массивом B .
Переменной P, в которой будет искомое произведение, присваиваем 1, и в цикле от 1 до n каждый раз умножаем её на сумму в скобках. Так как элементы массива B необходимо брать с конца (начиная с Bn ), то понадобится вспомогательная переменная ( j ), для номеров элементов этого массива. Переменной j изначально присваиваем n , и в цикле при каждом умножении уменьшаем её на 1.
Полученное произведение, выводим на экран.

Листинг программы

Program ex2_1;
Uses crt;
Var a,b,s,p:real; i,j,n:integer;
m1,m2:array[1..100] of real;
Begin Clrscr;
Writeln('Введите n:');
Readln(n);
Writeln('Введите a1,...,an:');
For i:=1 to n do
begin
Read(a);
m1[i]:=a;
end;
Writeln('Введите b1,...,bn:');
For i:=1 to n do
begin
Read(b);
m2[i]:=b;
end;
s:=0;
p:=1;
j:=n;
For i:=1 to n do
begin
s:=m1[i]+m2[j];
p:=p*s;
j:=j-1;
end;
Writeln(p);
Readkey;
End.

Запустить программу






Назад