Читайте также:
|
Примеры обработки массивов.
Найти сумму и среднеарифметическое значение элементов массива A.
n:=10;
S:= 0;
for i:=1 to n do
S:= S + a[i];
Sr:=S/n;
writeln(‘S=’, S, ‘ Sr=’, Sr);
Найти произведение и среднегеометрическое значение элементов массива A.
n:=10;
P:= 1;
for i:=1 to n do
P:= P * a[i];
SrG:=exp(ln(P)/n);
writeln(‘P=’, P:5:2, ‘ SrG=’, SrG:5:2);
Сложение двух векторов A и B.
for i:=1 to 5 do
d[i]:= a[i] + b[i];
writeln(‘ массив D = A + B‘);
for i:=1 to 5 do
writeln(d[i]:5:2);
4). Задана последовательность целых чисел
А={1, 2, -7, -4, 5, 3}. Сформировать из неё массив Y, состоящий из элементов массива А кратных 3, имеющих нечетные индексы.
Begin
k:= 0; { счетчик для массива Y }
for i:=1 to 6 do
if (a[i] mod 3 = 0) and (i mod 2=1) then
Begin
k:= k + 1;
y[k]:= a[i]
End;
{ распечатка массива Y }
If k = 0 Then
writeln(‘нет таких элементов’)
Else
for i:= 1 to k do
writeln(y[i]:5);
End.
Определить количество отрицательных элементов, имеющих четные индексы, в массиве X
k:=0;
for i:=1 to N do
if (x[i] < 0) and (i mod 2=0) then k:=k+1;
Аналогично определяется количество нечетных, отрицательных, нулевых и т.д. элементов
Определить, является ли нечетным целое число N.
1 способ:
If ODD(N) then writeln(‘нечетное’)
else writeln(‘четное’);
2 способ:
If N mod 2<>0 then writeln(‘нечетное’)
else writeln(‘четное’);
Если элемент массива принадлежит интервалу
[n, m], то обнулить его.
for j:= 1 to 10 do
if (a[j] >= n) AND (a[j]<=m) then a[j]:=0;
8). Если элемент массива не принадлежит интервалу [n, m], то увеличить на единицу все его элементы.
for j:= 1 to 10 do
if (a[j]< n) OR (a[j]>m) then a[j]:=a[j]+1;
10). 4 конструкции вычисления max/min элементов
массива.
А (3, 5, 8, 7, 2, 4, 6, 8, 1, 3)
1) Вычисляет первый
Дата добавления: 2015-07-10; просмотров: 85 | Нарушение авторских прав