Работа с одномерными массивами

Цель работы:

1. Построение схем алгоритмов с использованием массивов;

2. Разработка программ с использованием одномерных массивов

Типовой пример

Составить схему алгоритма и программу определения суммы S всех положительных элементов одномерного массива M, содержащего К вещественных чисел (К£20). Числа в массив M ввести с экрана дисплея, результат суммирования (S) также вывести на экран.

Схема алгоритма

нет

да

Текст программы {Лабораторная работа 5}

{Работа с одномерными массивами Студенты гр. Фамилии }

Uses crt; {Подключение стандартного модуля TP}

Var m:array[1..20] of real; {Описание массива вещественных чисел}

S:real; {описание переменной для хранения суммы}

i,K:byte; {описание переменных для счетчика и количества чисел}

Begin Clrscr; {Очистка экрана}

Write(' Введите число элементов в массиве К ='); Readln(K);

Writeln(' Введите ',K,' вещественных чисел через пробел');

For i:=1 to K do read(M[i]); { Ввод вещественных чисел}

writeln; { Переход на новую строку на экране}

S:=0.0; { Присвоение начального значения суммы}

For i:=1 to K do

If M[i]>0 then S:=S+M[i]; { Суммирование положительных чисел}

Writeln(' S = ',S); { Вывод полученной суммы}

End.

Варианты самостоятельных заданий

1. Составить схему алгоритма и программу определения суммы наибольшего и наименьшего элементов вещественного массива А={a_i}, i=1,N, N- число элементов массива (N<100). Вывести на экран найденную сумму, а также наибольшее и наименьшее значения и их адреса (индексы) в массиве А.

2. Составить схему алгоритма и программу определения разности наибольшего и наименьшего элементов массива вещественных чисел М={m_i}, i=1,t, t- число элементов массива (t£50). Вывести на экран найденную разность, а также наибольшее и наименьшее значения и их адреса в массиве М.

3. Составить схему алгоритма и программу определения суммы всех четных чисел массива К={k_j}, j=1,m, m - число элементов в массиве К (m£60). Вывести на экран найденное значение суммы, а также все четные числа и их адреса.

4. Составить схему алгоритма и программу определения суммы всех нечетных чисел массива T={t_j}, j=1,s, s - число элементов в массиве T (s£40). Вывести на экран найденное значение суммы, а также все нечетные числа и их адреса.

5. Составить схему алгоритма и программу определения количества четных чисел массива К={k_j}, j=1,m, m - число элементов в массиве К (m£80). Вывести на экран найденное количество, а также все четные числа и их адреса.

6. Составить схему алгоритма и программу определения количества нечетных элементов массива T={t_j}, j=1,s, s - число элементов в массиве T (s£400). Вывести на экран найденное количество, а также все нечетные числа и их адреса.

7. Составить схему алгоритма и программу определения количества и адресов элементов массива целых чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£55), значения которых не превышают заданного значения К₀. Вывести на экран найденное количество, а также все найденные адреса.

8. Составить схему алгоритма и программу определения количества и адресов элементов массива вещественных чисел P={p_j}, j=1,r, r - число элементов в массиве P (r£140), значения которых не меньше заданного значения P₀. Вывести на экран найденное количество, а также все найденные адреса.

9. Составить схему алгоритма и программу определения произведения наибольшего и наименьшего элементов массива целых чисел М={m_i}, i=1,t, t- число элементов массива (t£250). Вывести на экран найденное произведение, а также наибольшее и наименьшее значения и их адреса в массиве М.

10. Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£90). Вывести на экран найденное количество, а также все найденные адреса.

11. Составить схему алгоритма и программу определения сумм всех положительных и отрицательных элементов массива вещественных чисел М={m_i}, i=1,t, t- число элементов массива (t£200). Вывести на экран найденные значения.

12. Составить схему алгоритма и программу определения количества положительных и отрицательных элементов массива вещественных чисел К={к_i}, i=1,t, t- число элементов массива (t£120). Вывести на экран найденные значения.

13. Составить схему алгоритма и программу определения количества и адресов элементов массива вещественных чисел P={p_j}, j=1,r, r - число элементов в массиве P (r£180), значения которых равны заданному значению P₀. Вывести на экран найденное количество, а также все найденные адреса.

14. Составить схему алгоритма и программу определения суммы и количества положительных элементов массива вещественных чисел К={к_i}, i=1,t, t- число элементов массива (t£170). Вывести на экран найденные значения.

15. Составить схему алгоритма и программу определения суммы и количества отрицательных элементов массива вещественных чисел К={к_i}, i=1,t, t- число элементов массива (t£260). Вывести на экран найденные значения.

16. Составить схему алгоритма и программу определения количества и адресов положительных элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£190). Вывести на экран найденное количество, а также все найденные адреса.

17. Составить схему алгоритма и программу определения суммы и адресов положительных элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£900). Вывести на экран найденное количество, а также все найденные адреса.

18. Составить схему алгоритма и программу определения количества и адресов отрицательных элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£110). Вывести на экран найденное количество, а также все найденные адреса.

19. Составить схему алгоритма и программу определения суммы и адресов отрицательных элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£450). Вывести на экран найденное количество, а также все найденные адреса.

20. Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива целых чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£300). Вывести на экран найденное количество, а также все найденные адреса.

Лабораторная работа №6