Размещено 5 лет назад по предмету Информатика от verron228

Написать задачу про кассу,паскаль информатика 9 класс.Касса должна считатать кол во товаров,их стоимость и выдавать сдачу.Должна выдавать ошибку если пользователю не хватает денег

Ответ на вопрос

Ответ на вопрос дан DigitalAnnihilator

Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.

Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
1. Ответ на вопрос
  
  Ответ на вопрос дан DigitalAnnihilator
  
  enterCommandCicleRepeat:=true; {ставим значение, на true, то есть цикл будет работать}
  
  while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров}
  begin
  
  Writeln('Add new product? (enter Y/N);');
  Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}
2. Ответ на вопрос
  
  Ответ на вопрос дан DigitalAnnihilator
  
  if 'N' = userAnswer then
  begin
  
  cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла}
  enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже}
  
  end;
3. Ответ на вопрос
  
  Ответ на вопрос дан DigitalAnnihilator
  
  if 'Y' = userAnswer then
  begin
  
  Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла}
  enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла}
  end
  else
  begin
  
  Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной}
  
  end;
  
  end;
  
  end;
4. Ответ на вопрос
  
  Ответ на вопрос дан DigitalAnnihilator
  
  Writeln('Your tax is: ', tax:0:2); {вывести значение всего счёта}
  Writeln('Enter monney: ');
  Readln(monney); {ввести деньги}
  
  if (monney < tax) then {если размер введеных денег меньше чем размер счёта}
  begin
  Writeln('Error! To less money. Abording...'); {то выдать ошибку}
  end
5. Ответ на вопрос
  
  Ответ на вопрос дан DigitalAnnihilator
  
  else
  begin
  residue:=monney-tax; {иначе, посчитать сдачу}
  Writeln('Tax is: ', tax:0:2); {вывести весь счёт}
  Writeln('Products count is: ', productCounter); {вывести кол-во продуктов}
  Writeln('Your monney: ', monney:0:2); {вывести кол-во введеных денег}
  Writeln('Your residue is: ', residue:0:2); {вывести кол-во сдачи}
  end;
  
  end.