Бесконечный цикл While в Delphi 2010: отображение общей стоимости и расходов на каждый спри в SpreeWin

Delphi , Синтаксис , Циклы

При работе с языком программирования Delphi 2010 может возникнуть необходимость использовать цикл While для решения различных задач. Одной из таких задач является отображение общей стоимости и расходов на каждый спри в SpreeWin. В данной статье мы рассмотрим, как правильно использовать цикл While для решения этой задачи.

Исходный код, представленный в контексте, содержит ошибку, связанную с отображением общей стоимости и расходов на каждый спри в SpreeWin. В данном коде используется цикл While для генерации случайных расходов на каждый спри, но общая стоимость отображается до начала цикла, в результате чего она равна 0. Кроме того, расходы на каждый спри отображаются без указания номера спри, что делает вывод информации неудобным для пользователя.

Для исправления данной ошибки необходимо внести несколько изменений в исходный код. Во-первых, отображение общей стоимости следует перенести в конец цикла While, чтобы оно отображало актуальную стоимость после всех расходов. Во-вторых, для отображения номера спри в выводе расходов на каждый спри необходимо инициализировать переменную, отвечающую за счетчик спри, и увеличивать ее на каждой итерации цикла.

Пример исправленного кода представлен ниже:

var
  SpreeCount: Integer;
  ListHead, SpreeWon, ListItems, Cost: string;
  Count, MaxCost, TotalCost, Prize: Integer;

begin
  ListHead := 'Max per spree is R500.00 Max limit is R10000.00';
  lstLimit.Items.Add(ListHead);

  Count := random(20) + 1;
  MaxCost := random(10000) + 1;
  TotalCost := 0;

  SpreeCount := 0;

  while TotalCost <= MaxCost do
  begin
    Prize := Random(500) + 1;
    TotalCost := TotalCost + Prize;

    Inc(SpreeCount);
    ListItems := 'On spree # ' + IntToStr(SpreeCount) + ' you may spend R' + IntToStr(Prize);
    lstLimit.Items.Add(ListItems);
  end;

  Cost := 'Total prize value : R' + IntToStr(TotalCost);
  lstLimit.Items.Add(Cost);

  SpreeWon := 'Your spending limit that you have won is  R' + IntToStr(TotalCost);
  lstLimit.Items.Insert(0, SpreeWon);
end;

В этом примере переменная SpreeCount инициализируется перед циклом While и увеличивается на каждой итерации цикла. Общая стоимость отображается в конце цикла, после всех расходов. Таким образом, пользователь видит актуальную информацию о расходах на каждый спри и общей стоимости.

В качестве альтернативного решения можно рассмотреть использование цикла For вместо цикла While. Однако, в данной задаче использование цикла While более оправдано, так как количество спри может быть неограниченным и зависит от случайных значений, генерируемых в цикле.

В заключение следует отметить, что правильное использование циклов в Delphi 2010 является важным навыком для любого программиста, работающего с этим языком программирования. В данной статье мы рассмотрели, как исправить ошибку в исходном коде и правильно использовать цикл While для отображения общей стоимости и расходов на каждый спри в SpreeWin.

Создано по материалам из источника по ссылке.

В статье рассматривается исправление ошибки в коде на Delphi 2010, связанной с отображением общей стоимости и расходов на каждый спри в SpreeWin при использовании цикла While.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::