0. Процедуры и функции с параметрами

   1. Процедуры с параметрами

Поставим и решим задачу, данную вам в качестве задания в 4.2: Составьте программу с процедурами, которая исполнит мелодию “Чижик-пыжик” (ми-до-ми-до-фа-ми-ре-соль-соль-ля-си-до-до-до).

Воспользуемся нотами третьей октавы:

USESCRT;

PROCEDURE doo; BEGIN Sound(523); Delay(2000); NoSound END;

PROCEDURE re; BEGIN Sound(587); Delay(2000); NoSound END;

PROCEDURE mi; BEGIN Sound(659); Delay(2000); NoSound END;

PROCEDURE fa; BEGIN Sound(698); Delay(2000); NoSound END;

PROCEDURE sol; BEGIN Sound(784); Delay(2000); NoSound END;

PROCEDURE la; BEGIN Sound(880); Delay(2000); NoSound END;

PROCEDURE si; BEGIN Sound(988); Delay(2000); NoSound END;

BEGIN

mi; doo; mi; doo; fa; mi; re; sol; sol; la; si; doo; doo; doo

END.

Все процедуры в нашей программе всегда делают одно и то же. Например, процедура dooвсегда издает звук частоты 523 герца и продолжительности 200 мс. Происходит это потому, что в описании процедур мы использовали не переменные величины, а константы.

В реальной музыке ноты принадлежат разным октавам и имеют разную длительность. Чтобы получить ноту четвертой октавы, достаточно умножить частоту одноименной ноты третьей октавы на 2. Например, нота речетвертой октавы имеет частоту 587*2=1174 гц. Естественно, все ноты четвертой октавы звучат выше нот третьей октавы. Пятая октава получается из четвертой так же, как четвертая из третьей и звучит еще выше. Ноты второй октавы, наоборот, получаются из нот третьей октавы делением частоты на 2.

Поставим задачу - создать более универсальную процедуру. Чтобы заставить ноту звучать по-разному, используем переменные величины. Здесь мы используем ту же самую идею, которую мы использовали в процедуре Houseиз Глава .6, она рисовала дом в разных местах экрана в зависимости от значений переменных величин, задающих его координаты. Для простоты ограничимся пока одной нотойреи двумя октавами - третьей и четвертой. Длительность пусть будет любая. Пусть программа должна воспроизвести три подряд нотыре: сначала третья октава одна секунда, затем четвертая октава одна секунда и затем третья октава три секунды.

USESCRT;

VARoctava : Byte;

dlit : Word;

PROCEDURE re; BEGIN

if octava = 3 then Sound(587) else Sound(1174);

Delay(dlit);

NoSound END;

BEGIN

octava:=3; dlit:=1000; re; octava:=4; dlit:=1000; re; octava:=3; dlit:=2000; re

END.

Недостаток программы в том, что раздел операторов выглядит довольно мутно. Гораздо прозрачнее была бы такая запись:

BEGIN

re(3,1000); re(4,1000); re(3,2000)

END.

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

USESCRT;

PROCEDUREre (octava : Byte; dlit: Word);BEGIN

if octava = 3 then Sound(587) else Sound(1174);

Delay(dlit);

NoSound END;

BEGIN

re(3,1000); re(4,1000); re(3,2000)

END.

Пояснения: Эта программа похожа на предыдущую, но имеется несколько отличий. Строка

Procedure re (octava : Byte; dlit: Word)

называется заголовком процедуры. Здесь после имени процедуры -re- ставятся скобки и внутри них описываются так называемыеформальные параметрыпроцедуры. Здесь их два:octavaиdlit. Поскольку они описаны в заголовке, пропадает необходимость в разделеVAR.

В записи re(3,1000)числа 3 и 1000 - так называемыефактические параметрыпроцедуры, их порядок и тип должен соответствовать формальным параметрам.

Когда во время выполнения программы Паскаль натыкается на re(4,1000), он присваивает переменнойoctavaзначение 4, переменнойdlit - значение 1000 (то есть, присваивает формальным параметрам значения фактических параметров) и затем переходит к выполнению тела процедурыre.

Усложним задачу. Создадим универсальную процедуру nota, параметрами которой будут название ноты, октава и длительность. Учтем, что длительность ноты в музыке задается в так называемых долях. Доли бывают:1- целая нота,1/2- половинка длительности,1/4- четвертушка и т.д. Пусть целая нота звучит 1 секунду. Вызывать процедуруnotaможно было бы так:nota(re,5,8)- это означает, что мы хотим, чтобы прозвучала нотаreпятой октавы длительности1/8.

Вот запись программы:

USESCRT;

TYPENota_type = (doo, doo_diez, re, re_diez, mi, fa, fa_diez, sol, sol_diez, la, la_diez, si);

PROCEDURE Nota(Nazvanie:Nota_type; Oktava,Dolya:Byte); {Здесь параметр Dolya - знаменатель доли}

VARHz:Word; {Внутри процедуры можно описывать свои переменные (в данном примере это Hz).

Они называются локальными. Подробнее о них - в 2.3}

BEGIN

{Объясним Паскалю частоту нужных нам нот третьей октавы}

case Nazvanie of

doo : Hz:=523;

re : Hz:=587;

sol : Hz:=784;

la : Hz:=880;

la_diez:Hz:=932;

end;

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

caseOktavaof

1 : Hz:=Hz div 4; {Используем целочисленное деление,так как стандартная}

2 : Hz:=Hz div 2; {процедура Sound требует задавать частоту целым}

3 : Hz:=Hz; {числом герц}

4 : Hz:=Hz*2;

5 : Hz:=Hz*4;

6 : Hz:=Hz*8;

elseWriteLn('Такой октавы не знаю'); ReadLn;Halt

end;

Sound (Hz); {Включаем звук}

Delay(10000 div Dolya); {Задаем пpодолжительность звука}

NoSound;

Delay (50); {Небольшой промежуток тишины после каждой ноты}

END;

BEGIN

{Вот первые ноты из песни “Широка страна моя родная”:}

Nota(re,3,8); Nota(re,3,16); Nota(re,4,4); Nota(re,4,8); Nota(re,4,8); Nota(doo,4,8);

Nota(la_diez,3,8); Nota(la,3,8); Nota(sol,3,4); Nota(re,3,4)

END.

Фактические параметры могут быть любыми выражениями подходящего типа. Например, вместо Nota(re,3,8)можно было бы написатьa:=3; Nota(re, a, 11-a).

Задание 119:В модуле Graph не хватает процедуры, которая рисовала бы треугольник. Создайте такую процедуру. Она должна рисовать примерно равносторонний треугольник вершиной вверх и иметь три параметра: положение треугольника на экране и размер.