Примеры задач
Одномерные массивы
Пусть даны вещественные числа а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.