12. Пример программы.

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

Program DoRatio;

Var

A, B: Integer;

Ratio: Real;

Procedure GetData (var X, Y: Integer);

Begin

Writeln(‘Введите два числа:’);

Readln (X, Y);

End;

Function GetRatio (I, J: Real);

Begin

GetRatio := I / J;

End;

Begin

GetData (A, B);

Ratio:= GetRatio (A, B);

Writeln(‘Отношение равно’,Ratio);

End.

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

После компиляции и запуска программы первым выполняется оператор GetData(A,B). Этот тип оператора известен как вызов процедуры. При обработке вызова выполняются операторы вGetData, при этомXиY(формальные параметры) заменяются на А и В (фактические параметры). Ключевое словоvarпередXиYв операторе вызоваGetDataговорит о том, что фактические переменные должны быть переменными и что значения переменных могут быть известны и возвращены вызывающей программе. При завершении работыGetDataуправление возвращается в главную программу на опрератор, следующий за вызовомGetData.

Следующий оператор – вызов функции GetRatio. Отметим некоторые отличия. Во-первых,GetRatioвозвращает значение, которое должно быть использовано; в этом случае оно присваивается Ratio. Во-вторых, значение присваивается GetRatio в главной программе, этим функция определяет, какое значение возвращается. В-третьих, нет ключевого слова var перед формальными параметрами I и J. Это означает, что они могут быть любыми целочисленными выражениями, такими какRatio:=GetRatio(A+B, 300); и что если даже их значения будут изменены в функции, то новые значения не возвратятся обратно в вызывающую программу. Кстати, это не является отличием процедуры от функции. Можно использовать оба типа параметров для обоих типов программ.

13. Комментарии.

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

Комментарий начинается левой фигурной скобкой ({). Она указывает компилятору: игнорировать все, пока не встретится правая фигурная скобка (}).

Комментарий может занимать несколько строк:

{Это пример

длинного комментария,

занимающего

несколько строк}

Кроме того, существует альтернативная форма комментария. Начинается “(*” и заканчивается “*)”. Комментарий, начинающийся с “(*” игнорирует все фигурные скобки, и наоборот.

Контрольные задания Вариант №1

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

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

Предусмотреть вывод данных на экран.

1. Вычислить функцию у = 2х² - 8Sinх (-2 х 3). Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.

1. С клавиатуры задается последовательность чисел. Найти сумму чисел, предшествующих первому отрицательному в задаваемой последовательности. Вывести сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Найти число таких чисел.