Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 105 - 107
§4.9. Процедуры и функции




Содержание урока

4.9.1. Процедуры

Процедура

Процедура Main()

Проект «Передача по ссылке и по значению»

Контрольные вопросы. Компьютерный практикум

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качать материалы урока







Наверх