Задания для самостоятельной работы. Procedure FormArifmProg(var A : Mas; N,A1,D : Integer);

...

Procedure FormArifmProg(var A: Mas; N,A1,D: Integer);

Var I: Ineger;

Begin

A[1]:=A1;

For I:=2 to N do A[I]:=A[I-1]+D;

End;

Пример 2. Дан первый элемент геометрической прогрессии В₁ и знаменатель прогрессии Q. Найти сумму первых N элементов геометрической прогрессии.

Указание: В_i=В_i-1·Q, S=B₁+…+B_N.

Function SumGeomProg(B1,Q,N: Integer):Longint;

Var I,X: Integer;

Sum: Longint;

Begin

Sum:=B1;

X:=B1;

For I:=2 to N do

Begin

X:=X*Q;

Sum:=Sum+X;

End;

SumGeomProg:=Sum

End;

Пример 3. Найти значение максимального по модулю элемента массива.

Const Nmax=100;

Type Mas=array[1..Nmax] Of Integer;

...

Function MaxElAbs(A: Mas; N: Integer):Integer;

Var I, Max: Integer;

Begin

Max(A[I]):=Abs(A[1]);

For I:=2 to N do If Abs(A[I])>Max then Max:=Abs(A[I]);

MaxElAbs:=Max;

End;

Пример 4. Найти средне арифметическое значение элементов целочисленного массива.

Const Nmax=100;

Type Mas=array[1..Nmax] Of Integer;

...

Function SredArifm(A: Mas; N: Integer):Real;

Var I, Sum: Integer;

Begin

Sum:=A[1];

For I:=2 to N do Sum:=Sum+A[I];

SredArifm:=Sum/N;

End;

Пример 5. Удаление из массива К-того элемента.

Const Nmax=100;

Type Mas=array[1..Nmax] Of Integer;

...

Procedure Del(var A: Mas; var N,K: Integer);

Var I: Ineger;

Begin

For I:=K to N-1 do A[I]:=A[I+1];

N:=N-1;

End;

Пример 6. Дублирование в массива К-того элемента.

Const Nmax=100;

Type Mas=array[1..Nmax] Of Integer;

...

Procedure Dubl(var A: Mas; var N,K: Integer);

Var I: Ineger;

Begin

For I:=N downto K do A[I+1]:=A[I];

N:=N+1;

End;

Задания для самостоятельной работы.

1. Удалить из массива все элементы, содержащие в записи цифру 5.

2. Удалить из массива все элементы, состоящие из одинаковых цифр.

3. Удалить из массива все элементы, последняя цифра которых четная.

4. Удалить из массива все элементы, кратные 7 и принадлежащие промежутку [A,B].

5. Удалить из массива все элементы, большие данного числа А.

6. Удалить из массива все четные элементы, стоящие на нечетных местах.

7. Удалить из массива все элементы, которые повторяются, оставив их первые вхождения, то есть получить массив из различных элементов.

8. Продублировать все элементы массива, у которых первая цифра является нечетной.

9. Продублировать все элементы массива, которые неотрицательны.

10. Продублировать все элементы массива, у которых сумма цифр является кратной 11.

11. Переставьте местами максимальный и минимальный элементы массива.

12. Переставьте местами первый положительный элемент и последний отрицательный элемент массива.

13. Переставьте местами первый элемент с последним элементом, второй с предпоследним и т.д.

14. Дан одномерный массив из целых чисел. Найти количество различных чисел среди элементов массива.

Не нашли, что искали? Воспользуйтесь поиском: