Уроки 105 - 107
§4.9. Процедуры и функции
Содержание урока
4.9.1. Процедуры
Проект «Передача по ссылке и по значению»
Контрольные вопросы. Компьютерный практикум
4.9.2. Функции
4.9.1. Процедуры
Проект «Передача по ссылке и по значению»
Создать проект, в котором:
• в вызываемой процедуре один параметр передается по ссылке, а другой — по значению и значения переменных внутри процедуры изменяются;
• в вызывающей процедуре-обработчике события переменным присваиваются начальные значения, вызывается процедура, а затем значения переменных выводятся на надписи.
Создание графического интерфейса проекта на языках Visual Basic .NET, Visual C# и Turbo Delphi
1. Разместить на форме (рис. 4.19):
• текстовые поля TextBox1 и TextBox2 для ввода начального значения переменных;
• надписи Label1 и Label2 для вывода конечного значения переменных;
• кнопку Button1 для создания процедуры-обработчика события;
• четыре надписи для вывода поясняющих текстов.
В программных кодах процедур на языках Visual Basic .NET и Turbo Delphi, а также программных кодах метода на языке Visual C# первый параметр X передается по ссылке, а второй параметр Y передается по значению.
Создадим программный код проекта, в котором:
• объявим две переменные;
• создадим процедуру, умножающую значения переменных, передаваемых по ссылке и по значению, на коэффициент 5;
• создадим обработчик события, реализующий присваивание переменным начальных значений, вызов первой процедуры и осуществляющий вывод конечных значений переменных на надписи.
Создание программного кода на языке программирования Visual Basic .NET
2. Объявить переменные и создать код вызываемой процедуры:
Dim RefA, ValB As Byte
Sub RefVal(ByRef RefA, ByVal ValB)
RefA = RefA * 5 ValB = ValB * 5
End Sub
3. Создать код вызывающей процедуры-обработчика события:
Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles Button1.Click
RefA = Val(TextBox1.Text)
ValB = Val(TextBox2.Text)
RefVal(RefA, ValB)
Label1.Text = Str(RefA)
Label2.Text = Str(ValB)
End Sub
Создание программного кода на языке программирования Visual C#
2. Объявить переменные и создать код вызываемой процедуры:
int RefA;
int ValB;
void RefVal (ref int RefA, int ValB)
{RefA = RefA*5;
ValB = ValB*5;
}
3. Создать код вызывающей процедуры-обработчика события:
private void buttonl_Click(object sender, System. EventArgs e)
{RefA = Convert.ToInt32(textBox1.Text);
ValB = Convert.ToInt32(textBox2.Text);
RefVal(ref RefA, ValB);
label1.Text = Convert.ToString(RefA);
label2.Text = Convert.ToString(ValB);
}
Создание программного кода на языке программирования Turbo Delphi
2. Объявить переменные и создать код вызываемой процедуры:
var
RefA, ValB: byte;
procedure RefVal(var RefA: byte; ValB: byte);
begin
RefA := RefA * 5;
ValB := ValB * 5;
end;
3. Создать код вызывающей процедуры-обработчика события:
procedure TForm1.Button1Click(Sender: TObject);
begin
RefA := StrToInt(Editl.Text);
ValB := StrToInt(Edit2.Text);
RefVal(RefA, ValB);
Label1.Caption := IntToStr(RefA);
Label2.Caption := IntToStr(ValB);
end;
Запуск проекта на языках Visual Basic .NET, Visual C# и Turbo Delphi
4. Запустить проект на выполнение и ввести в текстовые поля начальные значения переменных (например, 3). На надписи будут выведены конечные значения переменной, передаваемой по ссылке (в данном случае, 15), и переменной, передаваемой по значению (в данном случае 3) (см. рис. 4.19).
Что и требовалось показать!
Рис. 4.19. Проект «Передача по ссылке и по значению»
Следующая страница 
Контрольные вопросы. Компьютерный практикум
Cкачать материалы урока
