Лабораторная работа №2.

Тема: Раздел описания процедуры.

В языке программирования Delphi методы и обработчики событий объектов оформляются в виде процедур и функций. Например, из лабораторной работы № 1 видно, обработчик события onClick кнопки Button1 выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

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

Определение: Идентификатором мы будем называть любую последовательность латинских букв, цифр и символа подчеркивания («_»). Идентификатор не может начинаться с цифры и не может содержать пробелов.

Рассмотрим структуру процедуры:

Procedure (Function) <Имя>(<список параметров>); //Заголовок процедуры

Var

Раздел описания переменных

Begin

Раздел операторов

End;

РАЗДЕЛ описания ПЕРЕМЕННЫХ. Каждая переменная, встречающаяся в программе, должна быть описана в разделе описания переменных. Описание переменной предшествует использованию ее в программе. Для описания переменной указывают ее имя и через двоеточие ее тип, например:

I:Integer;

X:Real;

В Паскале с помощью одного описания можно ввести в употребление сразу несколько переменных одного и того же типа, в этом случае имена переменных разделяются запятыми:

I, J, K, L:Integer;

X, Y:Real;

Все описания переменных должны содержаться в разделе переменных, который начинается служебным словом VAR. Описания отделяются друг от друга точкой с запятой. Каждая переменная, используемая в программе, должна быть описана не более одного раза.

Пример раздела переменных:

VAR I,J,K:Integer;

X,Y,Z:Real;

M,N:Integer;

D1,D2:Day;

Наиболее часто используются переменные следующих типов:

Integer - целочисленная переменная

Real - Действительные числа

Char - Символьная переменная

String - Строковая переменная

Boolean - логическая переменная

РАЗДЕЛ ОПЕРАТОРОВ. Это основной раздел процедуры. Здесь задаются те действия, которые должны быть выполнены при работе данной процедуры. Раздел операторов начинается служебным словом BEGIN, а заканчивается служебным словом END и точкой с запятой. Операторы отделяются друг от друга точками с запятыми, перед служебным словом END точка с запятой не обязательна.

Пример: Найти квадрат введенного пользователем числа.

Задачу решим следующим образом: Нахождение квадрата числа поручим обработчику события OnClick объекта Button1 . Само число введем в поле ввода Edit1 . Вывод результата осуществим с помощью объекта Label1 .

При решении этой задачи будем использовать следующие функции:

IntToStr – преобразование целого числа в строку.

StrToInt – преобразование строки в целое число.

FloatToStr – преобразование действительного число в строку.

StrToFloat – преобразование строки в действительное число.

Procedure TForm1.Button1Click(Sender: TObject);

Var

Y, X:Integer; - переменная Y целочисленная

begin

X:=StrToInt(edit1.text); - переменной X присваиваем значение свойства text

объекта edit1, преобразованное в целое число.

Y:=X*X; - Переменной Y присваиваем значение X*X

Label1.caption:=IntToStr(Y); - свойству Caption присваиваем

преобразованное к строке значение Y

end;

Замечание 1: Рассмотрим строку Label1.caption:=IntToStr(Y). Здесь левая часть равенства имеет значение типа String. И поэтому если бы мы записали Label1.caption:=Y, то возникла ошибка несоответствия типов, т.к. Y:Real.

Замечание 2: Для ввода данных в наших программах будем использовать поле ввода edit1. Поле ввода содержит свойство Text – введенный текст. Для вывода данных – объекты Label.

Рассмотрим структуру процедуры, когда необходимо включить константы:

Procedure (Function) <Имя>(<список параметров>); //Заголовок процедуры

Const

Раздел описания констант

Var

Раздел описания переменных

Begin

Раздел операторов

End;

РАЗДЕЛ КОНСТАНТ. Константой называется конкретное значение того или иного типа, которое зафиксировано в тексте программы и не может изменяться в процессе выполнения программы. Константе можно дать имя и использовать его в качестве синонима константы. При описании константы указывают ее имя знак равенства и саму константу, например:

E=2.7818281828,

Имя, использованное для определения константы, можно употреблять при определении последующих констант. Например: NE=-E; Все описания констант должны содержаться в разделе определения констант. Этот раздел начинается служебным словом CONST и заканчивается точкой с запятой. Если в разделе несколько констант, то они отделяются друг от друга точкой с запятой. Например:

CONST E=2.71828;

NE=-E;

Word='ФУНКЦИЯ';

Maximum=100;

Например, вычислить значение выражения c = a + b, при а=10, b=3. Результат вывести на экран.

procedure TForm1.Button1Click(Sender: TObject);

Const

a=10;

b=3;

Var

с:Real;

begin

с:=а+b;

label1.caption:=FloatToStr(с);

end;

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

1. Дайте определение идентификатора.

2. Для чего служит раздел описания меток?

3. Для чего служит раздел описания констант?

4. Для чего служит раздел описания типов?

5. Для чего служит раздел описания переменных?

6. Каким образом можно осуществить вывод данных на экран?

Задания:

1. Вычислить значение выражения r = x/2-b вывести его на экран.

2. Вычислить значение выражения: s = a +b - c² + b/2 и вывести его на экран.

3. Вычислить значение выражения a = b² + n/2 – c и вывести его на экран.

4. Вычислить значение выражения k = n/ b² - 7 – n и вывести его на экран.

5. Вычислить значение выражения a = b² - 3 + n/3 – m и вывести его на экран.

6. Вычислить значение выражения a = m² + n/2 при m=3, n=2 и вывести его на экран.

7. Вычислить значение выражения x = n/2 - b² при n=4, b=0.2 и вывести его на экран.

8. Вычислить значение выражения l = b³ + n/2 при b=7, n=6 и вывести его на экран.

9. Вычислить значение выражения y = b³ + m/2 при b= - 6, m= - 2 и вывести его на экран.

10. Вычислить значение выражения j = i² + m/2 при i=4, m=0.4 и вывести его на экран.

11. Вычислить значение выражения a = - b³ + (n-1)/2 при b=10, n=2 и вывести его на экран.

12. Вычислить значение выражения x = (-b³ ) - f/4 при b= - 3, f=7 и вывести его на экран.

13. * Вычислить значение выражения x = b³ - f/2 при b= - 3c-a, f=7+a и вывести его на экран.

14. * Вычислить значение выражения x = b³ + n/2 при b= - 3+k/2, f=2-k*a и вывести его на экран.

15. * Вычислить значение выражения x = m² + n/2 при m= a² - 3, n = 15-a и вывести его на экран.