Регистрация Спросить otvet5GPT
vodovozoffsem
24.05.2021 11:36
Информатика
Есть ответ 👍

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

102
470
Посмотреть ответы 2

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

susannashakiro
susannashakiro
4,6(80 оценок)
Var _500,_100,_50,_10,money_get: integer; beginwriteln('введите стоимость товара'); readln(money_get); while(money_get mod 10 < > 0) do        begin        writeln('стоимость должна делиться на 10, попробуйте еще раз');         readln(money_get);         end; while (money_get> =500) do        begin        _500: =_500+1;         money_get: =money_get-500;         end; while (money_get> =100) do        begin        _100: =_100+1;         money_get: =money_get-100;         end; while (money_get> =50) do        begin        _50: =_50+1;         money_get: =money_get-50;         end; while (money_get> =10) do        begin        _10: =_10+1;         money_get: =money_get-10;         end; writeln(_500,': 500 рублей',_100,': 100 рублей',_50,': 50 рублей',_10,': 10 рублей'); readln; end.
Kopek
Kopek
4,7(77 оценок)
Вот программас использованием файлов program proizvedenie; uses crt; var a: array[1..1000] of real;     amax,amin,p: real;     i,n,i1,i2: integer;     inp,outp: text; begin assign(inp,'input.txt'); assign(outp,'output.txt'); readln(n); p: =1; reset(inp); for i: =1 to n do read(inp,a[i]); close(inp); amin: =a[1]; for i: =1 to n do if abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n do if abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2)  then for i: =i1+1 to i2-1 do p: =p*a[i] else if (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 do p: =p*a[i] else begin write(0); exit; end; rewrite(outp); write(outp,p); close(outp); end.без файловprogram proizvedenie; uses crt; var a: array[1..1000] of real;       amax,amin,p: real;     i,n,i1,i2: integer; beginp: =1; readln(n); for i: =1 to n doread(a[i]); amin: =a[1]; for i: =1 to n doif abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n doif abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2) then for i: =i1+1 to i2-1 dop: =p*a[i] elseif (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 dop: =p*a[i] else beginwrite(0); exit; end; write(p); end.ошибки: 1)в разделе описания переменных var нет файловых переменных input и output; 2)в строке 24 нет ; 3)сравнивать нужно модули  переменных amin и amax с модулем a[i]; +++много лишних переменных

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS