Лабораторная работа №6 Использование процедур и функций

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

Варианты заданий:

ВАРИАНТ 1.

Дана последовательность из 20 элементов: Х(1), Х(2), ..., Х(20). Составить подпрограмму нахождения максимального значения на заданном участке. Обра­щаясь к подпрограмме найти максимальное значение на участках 1-7, 8-20.

ВАРИАНТ2.

Дана таблица 5*17. Составить подпрограмму вычисления суммы элементов заданного столбца. Обращаясь к подпрограмме вычислить суммы элементов в столбцах с номерами 1,3,5,…17.

ВАРИАНТ 3.

Дана таблица 14*6. Составить подпрограмму подсчета количества от­рицательных элементов заданной строки. Обращаясь к подпрограмме вычислить количество отрицательных элементов в строках с номерами 1,2, 4….14

ВАРИАНТ 4.

Дана таблица из 10 элементов. Составить подпрограмму вычисления среднего арифметического элементов заданного участка. Обращаясь к подпрограмме вычислить среднее арифметическое элементов на участках 1-6, 7-10.

ВАРИАНТ 5.

Дана таблица 16*5. Составить подпрограмму вычисления суммы элементов заданной строки. Обращаясь к подпрограмме вычислить суммы элементов в строках 1, 4, 7, 10, 13, 16

ВАРИАНТ 6.

Дана таблица 4*16. Составить подпрограмму подсчета количества положительных элементов заданного столбца. Обращаясь к подпрограмме вычис­лить количество положительных элементов в столбцах с номерами 1,4, 7, 10, 13, 16

ВАРИАНТ 7.

Дана таблица из 10 элементов. Составить подпрограмму вычисления суммы положительных элементов заданного участка. Обращаясь к подпрограмме вычислить суммы положительных элементов на участках 1-4, 5-7.

ВАРИАНТ 8.

Дана линейная таблица из 10 элементов. Составить подпрограмму вычисления количества положительных элементов заданного участка. Обращаясь к подпро­грамме вычислить количество положительных элементов на участках 2-5, 1-7.

ВАРИАНТ 9.

Составить подпрограмму и вычислить значение функции Y. Вычисление логарифмов осуществлять по подпрограмме (LOGA(X)=LN(X)/LN(A) Y=(LOG2(X)+LOG3(X))/2*LOG5(X), при Х=5.8.

ВАРИАНТ 10.

Дана таблица С(12). Составить подпрограмму подсчета числа нулевых элементов заданного участка. Обращаясь к подпрограмме подсчитать число нулевых элементов на участках 1 -7, 3-12.

ВАРИАНТ 11.

Дана таблица 15*6. Составить подпрограмму вычисления суммы положительных элементов заданной строки. Обращаясь к подпрограмме вычислить суммы положительных элементов в строках 1,3,5,7….

ВАРИАНТ 12.

Дана таблица В(20). Составить подпрограмму подсчета числа ненулевых элементов заданного участка. Обращаясь к подпрограмме подсчитать число ненулевых элементов на участках 1-4, 3-6, 5-8….

ВАРИАНТ 13.

Дана таблица 4*5. Составить подпрограмму вычисления суммы отрицательных элементов заданной строки. Обращаясь к подпрограмме вычислить R=S1/S2, где S1, S2 - суммы отрицательных элементов строк 2 и 3 соответственно.

ВАРИАНТ 14.

Дана таблица 5*15. Составить подпрограмму подсчета произведений неотрицательных элементов заданного столбца. Обращаясь к подпрограмме вывести произведения неотрицательных элементов в столбцах с нечетными номерами.

ВАРИАНТ 15.

Дана таблица 16*5. Составить подпрограмму вычисления среднего арифметического положительных элементов заданной строки. Обращаясь к подпрограмме вычислить среднее арифметическое элементов в строках с номерами 1, 3, 5….

ВАРИАНТ 16.

Дана таблица из 12 элементов. Составить подпрограмму вычисления количества отрицательных элементов заданного участка. Обращаясь к подпрограмме вычислить количество отрицательных элементов на участках 1-6, 3-9.

ВАРИАНТ 17.

Дана таблица из 10 элементов. Составить подпрограмму вычисления значения минимального элемента заданного участка. Обращаясь к подпрограмме найти минимальные элементы на участках 1-7,3-10.

ВАРИАНТ 18.

Дана таблица из 10 элементов. Составить подпрограмму вычисления среднего арифметического отрицательных элементов заданного участка. Обращаясь к подпрограмме вычислить суммы отрицательных элементов на участках 1-4,5-10.

ВАРИАНТ 19.

Дана таблица из 11 элементов. Составить подпрограмму вычисления среднего арифметического положительных элементов заданного участка. Обращаясь к подпрограмме вычислить среднее арифметическое положительных элементов на участках 3-7,5-11.

ВАРИАНТ 20.

Дана таблица 5*6. Составить подпрограмму вычисления среднего арифметического отрицательных элементов заданного столбца. Обращаясь к подпрограмме вычислить среднее арифметическое отрицательных элементов в столбцах с нечетными номерами.

ВАРИАНТ 21.

Дана таблица 6*4. Составить подпрограмму вычисления максимального значения в заданной строке. Обращаясь к подпрограмме вычислить максимальное значение строк с нечетными номерами.

ВАРИАНТ 22.

Дана таблица 6*4. Составить подпрограмму, по которой элементы строки отличные от нуля выводятся в столбец. Обращаясь к подпрограмме вывести отличные от нуля элементы четных строк.

ВАРИАНТ 23.

Вычислить значение функции R=((N)!-2*(N-l)!)/((N+l)!-5). Вычисление совпадающих выражений произвести по подпрограмме. Предусмотреть ввод N.

ВАРИАНТ 24.

Упорядочить таблицу из 10 элементов в порядке убывания, используя для этого

подпрограмму нахождения максимального элемента.

ВАРИАНТ 25.

Составить программу для вычисления Z=(S1+S2)/(N1*N2), где S1, N1 -сумма и количество положительных элементов массива А(8); S2, N2 - сумма и количество положительных элементов массива В(10). Для вычисления S и N использовать подпрограмму.

ВАРИАНТ 26.

Составить программу для запоминания в таблице А(3) наибольших элементов таблиц В(5), С(8), D(4). Поиск наибольшего элемента осуществлять,по подпрограмме.

ВАРИАНТ 27.

Составить программу для вычисления F=S*R, где S - среднее арифметическое неотрицательных элементов таблицы А(10); R - среднее арифметическое положительных элементов таблицы В(10). Для вычисления среднего арифметического использовать подпрограмму.

ВАРИАНТ 28.

Дана таблица 3*6. Составить подпрограмму нахождения минимального значения в заданном столбце. Обращаясь к подпрограмме найти минимальные значения в столбцах с четными номерами.

ВАРИАНТ 29.

Составить программу для запоминания в таблице А(15) количества отрицательных элементов каждого столбца таблицы В(3,15). Поиск количества отрицательных элементов столбцов осуществлять в подпрограмме.

ВАРИАНТ 30

Дана таблица из 12 элементов. Составить подпрограмму для подсчёта коли­чества элементов, значения которых >0, но <1 на заданном участке. Обращаясь к подпрограмме вычислить число таких элементов на участках 1-7, 4-12.

ВАРИАНТ 31.

Дана таблица из А(12). Составить подпрограмму, которая выводит для задан­ного участка наименьшее I, при котором А(I)<0. Обращаясь к подпрограмме вы­вести номера для участков 1-7, 6-12.

ВАРИАНТ 32.

Вычислить значение функции:

Y=(COS(17°)-2*SIN(15°))/EXP(COS(32°)).

Перевод градусов в радианы производить по подпрограмме (рад=град*π/180).

ВАРИАНТ 33.

Составить программу нахождения наибольшего из 3-х чисел, используя под­программу нахождения большего из 2-х чисел.

Контрольные вопросы:

1. Отличие локальных и глобальных переменных.

2. Описание процедур и функций в интегрированной среде TurboPascal.

3. Примеры вызова процедур и функций при выполнении программы.