Автор Азат Шоткин задал вопрос в разделе Другие языки и технологии
Pascal, Label и GOTO помогите, просто я неумею пользоватся метками и получил лучший ответ
Ответ от Sergey Zhukov[эксперт]
var
i,j,sch,hka: integer;
h: tstringlist;
Label Metka;
begin
h:=tstringlist.Create;
h.Add('18');
for i:=0 to 3 do
for j:=0 to 3 do
begin
Metka:
sch:= random(15);
for hka:=0 to h.Count do
if h.Strings[hka]=inttostr(sch) then
Goto Metka;
else
begin
stringgrid1.Cells[i,j]:=inttostr(sch);
h.Add(inttostr(sch));
end;
end;
Ответ от Надежда Наумова[гуру]
После begin пишешь GOTO A(любая буква) . После then A(ту же букву)
После begin пишешь GOTO A(любая буква) . После then A(ту же букву)
Ответ от VLynx[эксперт]
Вообще надо избегать использования меток и безусловного перехода GOTO.
В данном примере достаточно вместо
"/// здесь надо указатель на переход на метку выше"
использовать оператор Continue; для принудительного прерывания текущей итерации цикла.
Вообще надо избегать использования меток и безусловного перехода GOTO.
В данном примере достаточно вместо
"/// здесь надо указатель на переход на метку выше"
использовать оператор Continue; для принудительного прерывания текущей итерации цикла.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Pascal, Label и GOTO помогите, просто я неумею пользоватся метками