Оператор case, выбор категорий. Возврат в начало кода

@Joker456 · Регистрация: 13.10.2013

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

Всем здравствуйте, решил написать программу обед в столовой техникума, но не могу понять как из середины цикла, кода программы вернуться обратно на повторный выбор категорий.
Программа, её суть:
Пришел студент набирает продукты напиток, второе блюдо, и т.д. и его выбор суммируется в конце выводится результат на сколько он набрал товара и вводит свою сумму денег, если сумма равна выход иначе дает сдачу.

Нужно вставить код где указан комментарий после Then.
If choose='Да' Then {Перемещаемся в меню, в самое начало выбора категорий где напитки, суп и т.д.} - здесь

так же если есть возможность уменьшить код приму ваши взгляды.
На данный момент представил не полный код, чтоб было видно что по чем основное.

Код:

Pascal

Program stolovaPAT;
Uses crt;
Const sokper = 15;{Объявил цены на продукты}
cofekrep = 12;
cofemag = 12;
cofekam = 12;
tea = 6;
 
Var menu:1..4; 
 nap:byte;
 sum,summamoney:Integer;
 choose:char;
Begin
textcolor(red);
ClrScr;
sum:=0;
 WriteLn('Столовая ПАТ'); 
 WriteLn('Меню: ',#10,#13,'1. Напитки',#10,#13,'2. Суп',#10,#13,'3. Вторые блюда',#10,#13,'4. Салат');
 ReadLn(menu);
  Case menu of
   1 : Begin
        WriteLn('Вы выбрали раздед напитки ',#10,#13,'1. Сок персиковый [',sokper,' руб]',#10,#13,'2. Чай [',tea,' руб]',#10,#13,'3. Кофе крепкий [',cofekrep,' руб]',#10,#13,'4. Кофе мягкий [',cofemag,' руб]',#10,#13,'5. Кофе карамелька [',cofekam,' руб]');
        ReadLn(nap);
        If nap=1 then 
         begin
          sum:=sum+sokper;
          WriteLn('Вы выбрали сок персиковый. Желает еще что нибудь ?',#10,#13,'Да/Нет');
          ReadLn(choose);
          If choose='Да' Then {Перемещаемся в меню, в самое начало выбора категорий где напитки, суп и т.д.}
                         Else begin
                          WriteLn('Ваш заказ составил ',sum,' руб');
                          WriteLn('Введите вашу сумму денег: ');
                          ReadLn(summamoney);
                           If summamoney=sum Then WriteLn('Спасибо, приходите еще поесть в ПАТ !')
                                             Else WriteLn('Спасибо, ваша сдача ',summamoney-sum,', руб');                          
                         end;
         end;
        If nap=2 then sum:=sum+tea;
        If nap=3 then sum:=sum+cofekrep;
        If nap=4 then sum:=sum+cofemag;
        If nap=5 then sum:=sum+cofekam;
       end;
  end;     
End.

Добавлено через 8 минут
Еще в результате перечислить товары, которые купил студент.
Пример:
Ваш заказа составил n рублей
Вы купили:
Кофе мягкий
Котлету
Рис и т.д.

@volvo · 23.11.2014, 17:13

Обычно это делается оборачиванием всего нужного фрагмента циклом:

Pascal

program stolovaPAT;
 
uses
  crt;
 
const
  sokper = 15;{Объявил цены на продукты}
  cofekrep = 12;
  cofemag = 12;
  cofekam = 12;
  tea = 6;
 
var
  menu: 1..4; 
  nap: byte;
  sum, summamoney: Integer;
  choose: char;
 
begin
  textcolor(red);
  ClrScr;
  sum := 0;
  WriteLn('Столовая ПАТ'); 
  repeat
    WriteLn('Меню: ', #10, #13, '1. Напитки', #10, #13, '2. Суп', #10, #13, '3. Вторые блюда', #10, #13, '4. Салат', #10, #13, '5. Выход');
    ReadLn(menu);
    case menu of
      1: 
        begin
          WriteLn('Вы выбрали раздед напитки ', #10, #13, '1. Сок персиковый [', sokper, ' руб]', #10, #13, '2. Чай [', tea, ' руб]', #10, #13, '3. Кофе крепкий [', cofekrep, ' руб]', #10, #13, '4. Кофе мягкий [', cofemag, ' руб]', #10, #13, '5. Кофе карамелька [', cofekam, ' руб]');
          ReadLn(nap);
          if nap = 1 then 
          begin
            sum := sum + sokper;
            WriteLn('Вы выбрали сок персиковый. Желает еще что нибудь ?', #10, #13, 'Да/Нет');
            ReadLn(choose);
            if choose = 'Да' Then continue // Переходим опять на начало цикла
            Else begin
              WriteLn('Ваш заказ составил ', sum, ' руб');
              WriteLn('Введите вашу сумму денег: ');
              ReadLn(summamoney);
              if summamoney = sum Then WriteLn('Спасибо, приходите еще поесть в ПАТ !')
              Else WriteLn('Спасибо, ваша сдача ', summamoney - sum, ', руб');                          
            end;
          end;
          if nap = 2 then sum := sum + tea;
          if nap = 3 then sum := sum + cofekrep;
          if nap = 4 then sum := sum + cofemag;
          if nap = 5 then sum := sum + cofekam;
        end;
    end; 
  until menu = 5; // Выбрали выход - выходим из основного цикла
end.

	23.11.2014, 17:13