Проблемы с циклом, условием - Помощь студентам - Страница 2

Иринкаа · 19.11.2007, 21:31

Изменила синтаксис условия наращения очереди у кладовщиков.
Вроде что то стало работать.
Может быть дело было именно в этом?

Код:

if (Kl1_ochered <= Kl2_ochered) and (Kl1_ochered <= Kl3_ochered)  then
      Kl1_ochered:= Kl1_ochered+Kol_post
      else if Kl2_ochered < Kl3_ochered then
      Kl2_ochered:= Kl2_ochered+Kol_post
      else Kl3_ochered:= Kl3_ochered+Kol_post;

Иринкаа · 19.11.2007, 21:46

Написала условие для 4-х кладовщиков:

Код:

if (Kl1_ochered <= Kl2_ochered) and (Kl1_ochered <= Kl3_ochered) and (Kl1_ochered <= Kl4_ochered) then
      Kl1_ochered:= Kl1_ochered+Kol_post
      else  if (Kl2_ochered < Kl3_ochered) and (Kl2_ochered < Kl4_ochered) then
      Kl2_ochered:= Kl2_ochered+Kol_post
      else if Kl3_ochered < Kl4_ochered then Kl3_ochered:= Kl3_ochered+Kol_post
      else Kl4_ochered:= Kl4_ochered+Kol_post;

Подскажите, плиз, правильно ли написала
запуталась в if и else

mutabor · 19.11.2007, 23:17

чтобы не путаться соблюдай отступы

Код:

if (Kl1_ochered <= Kl2_ochered) and (Kl1_ochered <= Kl3_ochered) and (Kl1_ochered <= Kl4_ochered) then
  Kl1_ochered:= Kl1_ochered+Kol_post
else  
  if (Kl2_ochered < Kl3_ochered) and (Kl2_ochered < Kl4_ochered) then
    Kl2_ochered:= Kl2_ochered+Kol_post
  else 
    if Kl3_ochered < Kl4_ochered then
      Kl3_ochered:= Kl3_ochered+Kol_post
    else 
      Kl4_ochered:= Kl4_ochered+Kol_post;

Иринкаа · 19.11.2007, 23:33

Подумала и решила, что наверное проще будет написать условие через ф-цию поиска минимума MinIntValue

19.11.2007, 21:31	#11
Иринкаа Пользователь Регистрация: 11.11.2007 Сообщений: 44	Изменила синтаксис условия наращения очереди у кладовщиков. Вроде что то стало работать. Может быть дело было именно в этом? Код: `if (Kl1_ochered <= Kl2_ochered) and (Kl1_ochered <= Kl3_ochered) then Kl1_ochered:= Kl1_ochered+Kol_post else if Kl2_ochered < Kl3_ochered then Kl2_ochered:= Kl2_ochered+Kol_post else Kl3_ochered:= Kl3_ochered+Kol_post;`

19.11.2007, 23:17	#13
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	чтобы не путаться соблюдай отступы Код: `if (Kl1_ochered <= Kl2_ochered) and (Kl1_ochered <= Kl3_ochered) and (Kl1_ochered <= Kl4_ochered) then Kl1_ochered:= Kl1_ochered+Kol_post else if (Kl2_ochered < Kl3_ochered) and (Kl2_ochered < Kl4_ochered) then Kl2_ochered:= Kl2_ochered+Kol_post else if Kl3_ochered < Kl4_ochered then Kl3_ochered:= Kl3_ochered+Kol_post else Kl4_ochered:= Kl4_ochered+Kol_post;` The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с циклом..	POPOV	Помощь студентам	3	29.04.2008 18:36
Помогите с циклом	Almost_Famous	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	8	27.03.2008 21:08
Помогите с Условием	memoze	Microsoft Office Excel	7	22.02.2008 15:23
Задача с циклом	POPOV	Общие вопросы Delphi	13	01.02.2008 20:33

19.11.2007, 23:33	#14
Иринкаа Пользователь Регистрация: 11.11.2007 Сообщений: 44	Подумала и решила, что наверное проще будет написать условие через ф-цию поиска минимума MinIntValue