Question

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

Answer 1

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

Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:

1d9862c5029a032a493a62f32cc385af.pas

Answer 2

enterCommandCicleRepeat:=true; {ставим значение, на true, то есть цикл будет работать}

while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров}
begin

Writeln('Add new product? (enter Y/N);');
Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}

Answer 3

if 'N' = userAnswer then
begin

cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже}

end;

Answer 4

if 'Y' = userAnswer then
begin

Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла}
end
else
begin

Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной}

end;

end;

end;

Answer 5

Writeln('Your tax is: ', tax:0:2); {вывести значение всего счёта}
Writeln('Enter monney: ');
Readln(monney); {ввести деньги}

if (monney < tax) then {если размер введеных денег меньше чем размер счёта}
begin
Writeln('Error! To less money. Abording...'); {то выдать ошибку}
end

Answer 6

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.