Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
где GoTo – ключевое слово;
идентификатор – одна из меток программы.
Метка – это идентификатор, помещаемый слева от программного оператора и отделенный от него двоеточием. Например:
m1: Text1.Text = "это метка"
Оператор перехода для перехода к оператору с меткой m1 будет иметь вид:
GoTo m1
Следует сказать о том, что для получения хорошего стиля программирования следует избегать применения оператора GoTo, так как в этом случае ухудшается читаемость и понимание программы.
Пример Delphi
var
i: Integer;
label
GotoLabel;
begin
for i:= 1 to 10 do
begin
ShowMessage('i = '+IntToStr(i));
if i = 4 then Goto GotoLabel; // Выход из цикла с условием
end;
ShowMessage('Цикл закончился нормально');
GotoLabel:
ShowMessage('Цикл закончился с значением i = '+IntToStr(i));
end;
Пример Visual Basic
Private Sub cmdTryIt_Click()
Dim lngFactorial As Long
Dim intInputNbr As Integer
Dim intLoopCtr As Integer
intInputNbr = Val(InputBox("Enter a number:", "GoTo Demo"))
lngFactorial = 1
intLoopCtr = 1
Loop_Start:
If intLoopCtr > intInputNbr Then GoTo 10
lngFactorial = lngFactorial * intLoopCtr
intLoopCtr = intLoopCtr + 1
GoTo Loop_Start
10 ' End of loop
Print CStr(intInputNbr); "! = "; lngFactorial
End Sub
6. Основные типы данных с примерами: элементарное данное, массив, запись, очередь, стек, список, таблицы, строки.
Дата публикования: 2014-12-11; Прочитано: 255 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!