Сделай Сам Свою Работу на 5

ИСПОЛЬЗОВАНИЕ ПРОЦЕДУР И ФУНКЦИЙ В TURBO PASCAL

 

Цель работы Овладеть техникой модульного программирования.

 

Задачи работыНаучиться применять процедуры и функции в программировании для определения промежуточных данных в решении задач.

Обеспечивающие средства Сборник описаний практических работ, персональный компьютер, конспект лекций.

 

Задание Составить программы для предложенных заданий, используя процедуры и функции, отладить их и сохранить.

 

Требования к отчету Итоги практической работы представить в виде блок-схемы алгоритма и текста программы, привести значения исходных данных и значения полученных результатов (при необходимости вывести на печать).

 

Технология работы

1. Ознакомьтесь с теоретическим материалом, необходимым для выполнения работы:

Подпрограмма – это часть операторов программы, выделенных в группу, оформленную в виде отдельной конструкции. В языке Turbo Pascal выделяют два вида подпрограмм: процедуры и функции. Различия процедур и функций заключается в назначении и способе их использования.

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

Процедуры служат для задания последовательности действий и определения новых значений переменных в программе. Вызов процедуры играет роль оператора.

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

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

Заголовок состоит из зарезервированного слова procedure, идентификатора (имени) процедуры и необязательного, заключенного в круглые скобки, списка формальных параметров с указанием типа каждого параметра:

PROCEDURE <имя> (список формальных параметров);

Имя процедуры должно быть уникально, т.е. его нельзя использовать повторно в программе для именования других процедур.



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

<имя процедуры> (список фактических параметров);

Список параметров отсутствует, если процедуре не передается никаких значений.

Параметры обеспечивают механизм замены, который позволяет выполнять процедуру с различными начальными данными. Между фактическими параметрами в операторе вызова процедуры и формальными параметрами в заголовке описания процедуры устанавливаются взаимнооднозначное соответствие в результате их перебора слева направо. Количество и тип формальных параметров равны количеству и типу фактических параметров. Соответствующие друг другу параметры не обязательно должны одинаково обозначаться.

1.2 Если результатом подпрограммы является только одно значение, то имеет смысл оформить такую подпрограмму в виде функции.

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

FUNCTION <имя> (список формальных параметров) : <тип результата>;

Имя функции уникально в пределах программы.

Обращение к функции осуществляется по имени с указанием списка фактических параметров. Количество, типы и порядок следования формальных параметров должны совпадать:

<имя_функции> (список фактических параметров);

В теле функции всегда должен быть один оператор, присваивающий значение имени функции.

2. Выполните следующие упражнения:

Задания уровня 1

Упражнение 1. Задан массив целых чисел. Необходимо удалить из него все совершенные числа. Совершенное число представляет собой сумму всех своих делителей, меньших его самого. Для решения поставленной задачи необходимо проверить каждый элемент массива, и, если он представляет собой совершенное число, удалить его (после удаления остается элемент с тем же номером, однако это уже следующий элемент). В противном случае надо перейти к следующему элементу. В программе будут использоваться две подпрограммы: функция ша з ьщв

Sover, которая проверяет, является ли число совершенным, и процедура Udal удаления одного элемента из массива.

1. Наберите текст программы:

Program MAS_3;

Type

{Тип данных massiv будет использоваться при описании процедуры удаления i-го элемента}

massiv=array[1..1000] of longint;

 

{Описание функции, проверяющей, является ли число совершенным}

Function Sover (P: longint):boolean;

var sum, m: longint;

Begin

if p>1 then

begin{Нахождение суммы общих делителей}

sum:=1; {В начале сумма равна 1, т.к. любое число делится на 1}

for m:=2 to p div 2 do

{Делителем числа может быть любое число от 2 до половины самого себя}

if p mod m=0 then sum:= sum+m; {Если число m – делитель, то добавляем его к сумме}

{Если сумма делителей = самому числу p, то функция возвращает значение true,}

if sum=p then Sover:=true

else Sover:=false{иначе - false}

end;

{Числа, меньшие или равные 1, не являются совершенными, поэтому ф-ция возвращает значение false}

else Sover:=false

end;

 

{Описание процедуры удаления i-го элемента из массива x}

Procedure Udal (var x: massiv; i: word; var N: word);

var j: word;

Begin

for j:=i to N-1 do{Сдвиг массива, начиная с i–го, влево на один элемент}

x[j]:=x[j+1];

N:=N-1; {После удаления элемента его размер становится на один меньше}

end;

var x: massiv;

i, n: word;

L: boolean;

Begin

write ('n='); readln (n);

writeln ('Массив X');

for i:=1 to n do read (x[i]);

i:=1; {Просмотр массива начинаем с первого элемента}

while (i<=n) do{Проверяем, не достигнут ли конец массива}

Begin

{Обращение к функции Sover, которая проверяет, является ли элемент массива x[i] совершенным;}

{результат записывается в логическую переменную L}

L:=Sover (x[i]);

{Если число совершенное,то удаляем его из массива. При этом текущим остается элемент с номером i}

{но после удаления там хранится другой элемент}

If L then Udal (x, i, n)

else i:=i+1

{Если число не является совершенным, то переходим к следующему элементу массива}

end;

writeln ('Преобразованный массив X');

for i:=1 to n do

write (x[i], ' ');

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P7PR1

 

3. Выполнить самостоятельно:

Задания уровня 2

 

Разработать процедуры и функции для решения следующих задач обработки массивов (по вариантам):

1. посчитать количество отрицательных элементов одномерного массива вещественных чисел. Записать программу под именем P7PR2;

2. посчитать сумму квадратов положительных элементов одномерного массива вещественных чисел. Сохранить программу под именем P7PR3;

3. посчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. Сохранить программу под именем P7PR4;

4.преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения. Сохранить программу под именем P7PR5;

5. преобразовать одномерный массив вещественных чисел, уменьшив каждый элемент на абсолютную величину среднего значения элементов массива. Сохранить программу под именем P7PR6;

6. преобразовать одномерный массив вещественных чисел, занеся в каждый элемент сумму всех предыдущих элементов (в первый элемент при этом необходимо поместить значение 0). Сохранить программу под именем P7PR7;

7. посчитать сумму квадратов диагональных элементов двумерного массива вещественных чисел. Сохранить программу под именем P7PR8;

8. посчитать максимальную сумму элементов в строках двумерного массива вещественных чисел. Сохранить программу под именем P7PR9;

9. посчитать минимальную сумму элементов в столбцах двумерного массива вещественных чисел. Сохранить программу под именем P7PR10;

10. преобразовать двумерный массив вещественных чисел, занеся значение 0 во все элементы с двумя четными индексами. Сохранить программу под именем P7PR11.

Задания уровня 3

Функции

11. Даны четыре числовых массива f1, f2, f3, f4. Вывести имя того из этих массивов, который имеет наибольшее число элементов (если таких элементов более одного, то вывести имя одного из них). Описать в программе функцию l(f), значение которой равно количеству элементов массива. Сохранить программу под именем P7PR12.

12.Даны действительные числа a, b, c. Получить:

Сохранить программу под именем P7PR13.

Процедуры

13.Дано: натуральное n, действительные a1, …, a3n. Получить x + y2 + z3, где

x = a1 ∙ a2 ∙…∙ an ,

y = an+1 ∙ a n+2 ∙…∙ a 2n ,

y = a2n+1 ∙ a 2n+2 ∙…∙ a 3n

Сохранить программу под именем P7PR14.

 

 

4. Окончание работы:

 

1. Сохранить созданные программы.

2. Подготовить ответы на контрольные вопросы.

3. Показать работу преподавателю.

4. Завершить работу TURBO PASCAL.

 

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

1. Что такое процедура?

2. Какое назначение имеют процедуры?

3. Как описываются процедуры в программах?

4. Как осуществляется вызов процедуры?

5. Что такое функция?

6. Как описывается функция и в каком месте программы она располагается?

7. Как осуществляется вызов функции в программе?

8. Какие параметры называют формальными, а какие фактическими?

9. Перечислите отличия между процедурой и функцией.

10. Какие переменные называются глобальными?

11. Какие переменные называются локальными?


ПРАКТИЧЕСКАЯ РАБОТА №8



©2015- 2017 stydopedia.ru Все материалы защищены законодательством РФ.