Задание № 3 массивы

Цель работы – изучение способов описания и особенностей работы одномерных и двумерных массивов, закрепление навыков в составлении простейших разветвляющихся и циклических программ.

Постановка задачи: выполнить два задания, по одному на каждый вид массива.

Задача 1. Рассчитать сумму отрицательных элементов массива А(n), если известно, что n = 5, A = (1.5, -4.6, 10, -1.7, -4.9).

Программа 1:

PROGRAM lab5_1;

CONST

n=5;

TYPE

ar=array[1..n] of real;

VAR

a:ar;

s:real;

i:integer;

BEGIN

{Ввод исходных данных}

WriteLn(‘Введите ’, n, ' вещественных элементов массива‘);

for i:=1 to n do

Read(a[i]);

{Выполнение задачи}

s:=0;

for i:=1 to n do

if a[i]<0 then s:=s+a[i];

{Вывод результата}

if s=0 then WriteLn(‘Отрицательных элементов нет.’)

else WriteLn(' S=',s:8:4);

END.

Результаты расчета:

S=-11.2000

Задача 2. Найти разность R между максимальным и минимальным элементами массива

Программа 2:

PROGRAM lab;

CONST

m=3; {количество строк, столбцов}

TYPE

mas=array[1..m,1..m] of integer;

VAR

A:mas; {массив А}

R:integer; {разность}

Amax:integer; {максимальный элемент}

Amin:integer; {минимальный элемент}

i,j:integer; {счетчики по строкам, столбцам}

BEGIN

for i:=1 to m do {чтение исходных данных}

for j:=1 to m do read(A[i,j]);

close(fi)

Amin:=A[1,1]; {начальные установки}

Amax:=A[1,1];

for i:=1 to m do {поиск минимального и максимального элементов} for j:=1 to m do

begin

if A[i,j]<Amin then Amin:=A[i,j];

if A[i,j]>Amax then Amax:=A[i,j]

end;

R:=Amax-Amin; {разность}

WriteLn(' R=',R:4);

close(fo)

END.

Результаты расчета:

R = 20

Варианты заданий Задача 1

1. Найти корни уравнения Ax + Bsin = 0, где  = 1.3, A = {1.1, 2.5, 3.9, 8.1, 4.5, 12.1, 11.9, 15.5}. (i = 1..8).

2. Вычислить массив , где – положительные корни уравнения Ax + Bcos = 0, при А = 0.75, B = 4.5,  = -1.5 .. 2.5, .

3. Найти сумму всех положительных элементов массива A = {-1.2, 3.5, 4.1, 8.5, 5.3, -6.1, 3.4, 2.7}.

4. Найти произведение элементов массива A = {1, 3.5, 4, -0.8, 1.9, 5, 13}, удовлетворяющих условию , если С = 2, D = 10. Сформировать из этих элементов массив Z.

5. Вычислить

при Y = -5.5, X = {-1.8, -1.6, ... , 1.2}. Результат представить в виде массива.

6. Найти номера первого нечетного и последнего четного чисел из последовательности целых чисел N = {10, 8, 4, 3, 6, 15, 2}.

7. Даны два массива: A = {1.1, 2, 4, 5.1, -8.2, -1.5, 1.2}, B = {-1.3, 2.7, -3.2, 5, 1.8, -4.6, -1.2}. Найти число перемен знаков последовательности попарных произведений

8. Найти разность между максимальным и К-м элементом массива А = {-1.1, 2.5, -2.9, 8.8, 14.5, 2.2, -1.3, 5.9} при К = 4.

9. Вычислить элементы массива

где x – корни серии уравнений Аx + sini = 0, , А = 5.5.

10. Найти сумму первых К положительных элементов массива А = (2.8, -3.5, -2.1, 4, 6, 8.1, 6.2, 9.5, 1.1) при К = 5.

11. Найти количество элементов массива A = {1.2, 5, 7, 9.3, 6.9, -8, -1.5, 2.5, 2.8}, удовлетворяющих условию , если С = -3.5, D = 6. Сформировать из этих элементов массив F.

12. Найти произведение последних N отрицательных элементов массива А = (-5, 6.1, -9.2, 4, 5, -2, 7, -1, 5, 4, 1.9, -3, 5); N = 3.

13. Сформировать массив , четные компоненты которого равны компонентам массива А = (-5.1, 2.3, 4.6, 5.8, -2.9), нечетные – компонентам массива В = (2.8, 3, 5.4, -1.9, -4.1).

14. Найти количество положительных, отрицательных и равных нулю элементов массива М = (-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10).

15. Среди последовательности чисел найти первое, меньшее заданного числа  ( = ).

16. Элементы массива A вычисляются по формуле , i = 1..10. Сформировать массив B, элементы которого удовлетворяют условию , если С = 2.5, D = 10.3.

17. Задан массив целых чисел N = (1, 5, -3, 3, 15, 21, 8, -5). Необходимо за один просмотр найти два минимальных числа.

18. Вычислить значения элементов массива S, которые являются модулями элементов массива Z: .

19. Даны два массива: М1 = (-5, 10, 21, 35, -9, 11, 4, 5) и М2 = (1, 5, 10, -3, 4, -15, 36, 6, 11). Найти их объединение и результат записать в массив М3.

20. Вычислить где х = , массив, элементы которого являются остатком от деления целых компонентов массива N = (156, 18, 72, 10, 95, 100) на целое число К = 9.

21. Задан массив Х = (-1.5, 6.8, -3, 9, 7, -2.7, -4.5, 1.6). Вычислить произведение модулей отрицательных и сумму положительных элементов массива Х.

22. Заданы массивы А = (-1.1, 2, 8, 9, 5, 5.3, 5, -5, 2.1) и С = (8, 9, 1, 2, -5, 3.4, 4.9, 6, 1.8). Найти их пересечение и результат записать в массив В.

23. Задан массив А = (5.5, -6, 8, 9.1, -3.5, 4.1, 10, -1, 2.5). Вычислить , где и – соответственно максимальный и минимальный элементы массива А; – их среднее арифметическое.

24. В массиве Н = (-0.5, 2.8, 9.1, -0.3, 10, -1, 2.1, 8.2) указать номер первого элемента, сумма которого с последующим за ним элементом не превышает D (D = 1.5).

25. Вычислить

где – элементы массива В = (0.1, 2, 5, -3.1, 4.2, -1.2, 6, -2, 3.7, 5.2), n = 10, a = 4.5.

26. Решить квадратное уравнение , где А – сумма элементов массива К = (2.1, 0.25, 1.4, -1.9), В – их произведение, а С = -1.34.

27. Вычислить элементы массива Y по формуле

где - корень уравнения , – элемент массива А = (1.2, -4.6, 3.8, -2.3, 0.6, 1.7).

28. Найти большее из чисел А, В, С, где А – сумма модулей отрицательных, В – произведение положительных элементов массива К, С – разность между максимальным и минимальным его элементами. К = (10.1, 0.2, -3.4, -0.5, 3.6, -12.9, 5.7).

29. Определить произведение двух чисел АВ, где А – сумма первых К, а В – последних К элементов массива С = (2, 4, -2, 9, 7, -10, 11, -1), К = 3.

30. Определить величины и индексы максимального по модулю и минимального элементов массива В = (-1.5, 6.9, 13, 6.2, -17, 8, 6.6).