Continue ;

   Справедливости ради стоит рассказать об ещё одном операторе, позволяющем изменить последовательность выполнения программы. Это оператор перехода:    goto метка ; В качестве метки может использоваться любой допустимый идентификатор или число в диапазоне от 0 до 9999. Метку предварительно необходимо объявить в разделе описания переменных, но с помощью не ключевого слова var, а ключевого слова label:    label меткa ; или    label список меток ;

Переходить можно как вниз, так и вверх по программе. Двоеточие отделяет метку от оператора, на который производится переход. Пример использования оператора перехода:

Var X, y: Integer;

   label A, B;

   begin     A: X:=5 ;

       . . .

    операторы программы

    goto B;

       . . .

    B: Y:=25;

    goto A;

   end; Из этого примера видно, что оператор end ; завершающий программу, никогда не будет выполнен, то есть программа зациклится. Именно поэтому, вообще, использование оператора перехода является плохим стилем программирования, и без его использования вполне можно обойтись использованием условных операторов и операторов цикла. Единственный случай, когда использование оператора goto может быть оправдано - это выход из нескольких вложенных циклов, что иначе требует применения нескольких операторов Break.

Задания:

1. Используя одну и ту же форму для ввода и вывода данных, по введенным пользователем x, k найти:  c:=arctan(abs(x));  a:=c+sqr(k);  y:=sin(a)*sqr(sin(a))+sqr(cos(x)); 

2. Создать программу, выполняющую следующие действия: После запуска программы в окне изображается три текстовых поля. В первое поле вводится число. Во второе поле - проценты. При нажатии кнопки "Рассчитать" в третье поле выводятся вычисленные проценты от числа.

При нажатии кнопки "Очистить" очищаются значения полей. Далее вводятся новые значения в поля.

3. создать программу, выполняющую действия обычного калькулятора.

4. создать программу, выполняющую действия строкового калькулятора

2. Разместить на форме экземпляры компонентов: Edit, Label, Button. Фрагмент программы

procedure TForm1.Button2Click(Sender: TObject); begin

s:=Edit1.Text;

k:=StrToInt(Edit2.Text);

t:=StrToInt(Edit3.text);

Delete(s,k,t);

Edit10.Text:=s;

end;

procedure TForm1.Button3Click(Sender: TObject); begin

s:=Edit1.Text; q:=StrToInt(Edit4.Text); w:=Edit5.Text; Insert(w,s,q); edit11.Text:=s;

end;

procedure TForm1.Button4Click(Sender: TObject); begin

s:=Edit1.Text;

p:=StrToInt(Edit6.Text);

l:=StrToInt(Edit7.Text);

Copy(s,p,l);

sl:=copy(s,p,l);

Edit12.Text:=s1;

end;

procedure TForm1.Button5Click(Sender: TObject); begin

s:=Edit1.Text; r:=Edit9.Text; a:=Pos(r,s);

edit13.Text:=IntToStr(a);

end;

procedure TForm1.Button6Click(Sender: TObject); begin

s:=edit1.Text; b:=Length(s); edit14.Text:=IntToStr(b);

end;