Убрать оператор goto

@Newby52 · Регистрация: 24.07.2018

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как переписать данный код без использования оператора goto:

Delphi

for i:=0 to N-1 do
begin
if spis[i]=elvalue then goto 1;
end;
spis[N]:=elvalue;
inc(N);
1: ;

То есть, если элемента в массиве нет, то он добавляется в него и счетчик элементов увеличивается.

@Arcor · 24.07.2018, 20:30

Delphi

for i:=0 to N-1 do
begin
  if spis[i]<>elvalue then 
    begin
      spis[N]:=elvalue;
      inc(N);
      Break;
    end;
end;

Добавлено через 1 минуту

Сообщение от Newby52

То есть, если элемента в массиве нет, то он добавляется в него и счетчик элементов увеличивается.

ты же уже сам условие написал как должно быть, почему не применил на коде?)))

@Newby52 · 24.07.2018, 20:36 **[ТС]**

Насколько я понимаю, Ваш код не совсем верно выполняет данную задачу.
Допустим, массив
spis=(1,2,3,4)
elvalue=3
В Вашем коде на первом же несравнении (1 и 3) он выйдет и запишет значение 3 в 4-ый (с нуля элемент). Но 3 уже есть в во 2-ом (с нуля) элементе.

Задача записать новый элемент только если его нет ни в одном элементе массива.

@Arcor · 24.07.2018, 20:40

идти циклом и проверять, как только проверка свершилась, ставить скажем переменную true/false, далее после цикла проверить переменную на true/false и оттуда уже делать добавление или не добавление. перед входом в цикл инициализировать данную переменную, если в цикле что-то свершилось будет скажем true ветвить прогу по true, иначе будет false к примеру, ветвить по другому логику

@Puporev · 24.07.2018, 20:41

Delphi

i:=0;
while (i<n)and(spis[i]<>elvalue) do inc(i);
if i=n then
 begin
  inc(n);
  spis[n-1]:=elvalue;
 end;

@Newby52 · 24.07.2018, 20:47 **[ТС]**

Спасибо.

@northener · 25.07.2018, 02:22

Не по теме:

Arcor,цикл for имеет заранее фиксированное количество итераций. Нельзя в нем менять границы цикла. Паскаль и Дельфи ругаются при таких манипуляциих. :)

@Arcor · 25.07.2018, 09:17

northener, мммм где эту ругань можно увидеть???? Или у меня снова дельфи не такая??

@krapotkin · 25.07.2018, 09:27

вы вообще о чем тут?
переменную цикла for менять в теле цикла запрещено
значение переменной цикла for после цикла не определено
переменная цикла for должна быть локальной переменной

вот собсно все правила, которые просто нужно выполнять

@Arcor · 25.07.2018, 12:00

Сообщение от krapotkin

вы вообще о чем тут?
переменную цикла for менять в теле цикла запрещено
значение переменной цикла for после цикла не определено
переменная цикла for должна быть локальной переменной
вот собсно все правила, которые просто нужно выполнять

northener, наверняка знает все это))) только решил снова свредничать

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	25.07.2018, 12:00	10
	Сообщение от krapotkin вы вообще о чем тут? переменную цикла for менять в теле цикла запрещено значение переменной цикла for после цикла не определено переменная цикла for должна быть локальной переменной вот собсно все правила, которые просто нужно выполнять northener, наверняка знает все это))) только решил снова свредничать 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	24.07.2018, 20:36 [ТС]	3
	Насколько я понимаю, Ваш код не совсем верно выполняет данную задачу. Допустим, массив spis=(1,2,3,4) elvalue=3 В Вашем коде на первом же несравнении (1 и 3) он выйдет и запишет значение 3 в 4-ый (с нуля элемент). Но 3 уже есть в во 2-ом (с нуля) элементе. Задача записать новый элемент только если его нет ни в одном элементе массива. 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	24.07.2018, 20:40	4
	идти циклом и проверять, как только проверка свершилась, ставить скажем переменную true/false, далее после цикла проверить переменную на true/false и оттуда уже делать добавление или не добавление. перед входом в цикл инициализировать данную переменную, если в цикле что-то свершилось будет скажем true ветвить прогу по true, иначе будет false к примеру, ветвить по другому логику 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	24.07.2018, 20:47 [ТС]	6
	Спасибо. 0

@northener
	25.07.2018, 02:22 #7
	Не по теме: Arcor,цикл for имеет заранее фиксированное количество итераций. Нельзя в нем менять границы цикла. Паскаль и Дельфи ругаются при таких манипуляциих. :) 0

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	25.07.2018, 09:17	8
	northener, мммм где эту ругань можно увидеть???? Или у меня снова дельфи не такая?? Миниатюры 0

@krapotkin 5874 / 4595 / 1452 Регистрация: 14.04.2014 Сообщений: 20,386 Записей в блоге: 20
	25.07.2018, 09:27	9
	вы вообще о чем тут? переменную цикла for менять в теле цикла запрещено значение переменной цикла for после цикла не определено переменная цикла for должна быть локальной переменной вот собсно все правила, которые просто нужно выполнять 0