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

Ответы 6

  • enterCommandCicleRepeat:=true; {ставим значение, на true, то есть цикл будет работать} while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров} begin Writeln('Add new product? (enter Y/N);'); Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}
    • Автор:

      leftytbpa
    • 5 лет назад
    • 0
  • if 'N' = userAnswer then begin cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла} enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже} end;
  • if 'Y' = userAnswer then begin Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла} enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла} end else begin Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной} end; end; end;
    • Автор:

      diego87
    • 5 лет назад
    • 0
  • Writeln('Your tax is: ', tax:0:2); {вывести значение всего счёта} Writeln('Enter monney: '); Readln(monney); {ввести деньги} if (monney < tax) then {если размер введеных денег меньше чем размер счёта} begin Writeln('Error! To less money. Abording...'); {то выдать ошибку} end
    • Автор:

      junecgpb
    • 5 лет назад
    • 0
  • 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.
    • Автор:

      vance9
    • 5 лет назад
    • 0
  • Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
    answer img
    • Автор:

      bentley98
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years