Написать задачу про кассу,паскаль информатика 9 класс.Касса должна считатать кол во товаров,их стоимость и выдавать сдачу.Должна выдавать ошибку если пользователю не хватает денег
Ответы
Ответ дал:
0
Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
Приложения:
Ответ дал:
0
enterCommandCicleRepeat:=true; {ставим значение, на true, то есть цикл будет работать}
while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров}
begin
Writeln('Add new product? (enter Y/N);');
Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}
while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров}
begin
Writeln('Add new product? (enter Y/N);');
Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}
Ответ дал:
0
if 'N' = userAnswer then
begin
cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже}
end;
begin
cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже}
end;
Ответ дал:
0
if 'Y' = userAnswer then
begin
Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла}
end
else
begin
Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной}
end;
end;
end;
begin
Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла}
enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла}
end
else
begin
Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной}
end;
end;
end;
Ответ дал:
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
Writeln('Enter monney: ');
Readln(monney); {ввести деньги}
if (monney < tax) then {если размер введеных денег меньше чем размер счёта}
begin
Writeln('Error! To less money. Abording...'); {то выдать ошибку}
end
Ответ дал:
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад