Можно ли короче написать код? - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Можно ли короче написать код?
там продолжение такое же и очень много

Решение задачи: «Можно ли короче написать код?»

textual
Листинг программы
const
  nLimits = 3;
  Limits: array [0..nLimits] of Integer = (800, 1600, 2200, 2360);
var
  i, QtyOtv: Integer;
  ...
 
  QtyOtv:=0;
  for i:=1 to nLimits do
    if (MrkTypeOpen='PL') and (PBT>Limits[i-1]) and (PBT<=Limits[i]) or
       (MrkTypeOpen='PP') and (LBT>Limits[i-1]) and (LBT<=Limits[i]) then
    begin
      QtyOtv := i; Break;
    end;

Объяснение кода листинга программы

  1. В начале кода объявляются необходимые переменные: nLimits, Limits, i, QtyOtv.
  2. Переменная nLimits инициализируется значением 3.
  3. Переменная Limits инициализируется массивом из 4 чисел: 800, 1600, 2200, 2360.
  4. Переменная i инициализируется значением 1.
  5. Переменная QtyOtv инициализируется значением 0.
  6. Затем идет цикл for, который выполняется от 1 до nLimits (используется оператор to для указания диапазона).
  7. Внутри цикла проверяется условие:
    • Если MrkTypeOpen равно 'PL' и PBT больше Limits[i-1] и меньше или равно Limits[i], или
    • Если MrkTypeOpen равно 'PP' и LBT больше Limits[i-1] и меньше или равно Limits[i], то выполняется следующий блок кода:
      • QtyOtv присваивается значение i.
      • Цикл прерывается командой Break.
  8. После завершения цикла выводится значение переменной QtyOtv.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы