Question

СРОЧНО!! доделайте пожалуйста этот код по информатике var n,s:integer; begin writeln('Выбор кофе:1- латте, 2- американо, 3 - капучино'); readln(n); if n=1 then writeln('латте -120рб'); if n=2 then writeln('американо -100рб'); if n=3 then writeln('капучино -150рб'); write('оплатите');readln(s); if n=1 then if s>=120 then writeln('ждите кофе') else writeln('недостаточно средств'); if n=1 then if s>120 then writeln('возьмите сдачу',s-120); if n=2 then if s>=100 then writeln('ждите кофе') else writeln('недостаточно средств'); if n=2 then if s>100 then writeln('возьмите сдачу',s-100); end.

Answer 1

Ответ:

Program Answer;

uses SysUtils;

var n, s : integer;

begin writeln('Выбор кофе:1- латте, 2- американо, 3 - капучино');

readln(n);

if n=1 then writeln('латте -120рб');

if n=2 then writeln('американо -100рб');

if n=3 then writeln('капучино -150рб');

write('Оплатите');

readln(s);

if n=1 then

if s>=120 then

begin

writeln('Ждите кофе..');

sleep(5000);

if s>120 then writeln('Возьмите сдачу! Ваш кофе готов!', s-120)

else

begin

writeln('Ваш кофе готов!');

end;

exit;

end

else

begin

writeln('Недостаточно средств');

end;

if n=2 then

if s>=100 then

begin

writeln('Ждите кофе..');

sleep(5000);

if s>100 then writeln('Возьмите сдачу! Ваш кофе готов!', s-100)

else

begin

writeln('Ваш кофе готов!');

end;

exit;

end

else

begin

writeln('Недостаточно средств');

end;

if n=3 then

if s>=150 then

begin

writeln('Ждите кофе..');

sleep(5000);

if s>150 then writeln('Возьмите сдачу! Ваш кофе готов!', s-150)

else

begin

writeln('Ваш кофе готов!');

end;

exit;

end

else

begin

writeln('Недостаточно средств');

end;

end.

Answer 2

Код, который вы предоставили, решает задачу выбора кофе и оплаты, выводя информацию о стоимости выбранного кофе и предоставляя сдачу, если оплата достаточна. Однако код можно улучшить, чтобы сделать его более читаемым и эффективным. Вот доработанный код:

var
  n, s: integer;

begin
  writeln('Выбор кофе: 1 - латте, 2 - американо, 3 - капучино');
  readln(n);

case n of
    1: writeln('Латте - 120рб');
    2: writeln('Американо - 100рб');
    3: writeln('Капучино - 150рб');
  else
    writeln('Некорректный выбор');
    exit; // Выход из программы при некорректном выборе
  end;

write('Оплатите: ');
  readln(s);

case n of
    1:
      begin
        if s >= 120 then
        begin
          writeln('Ждите кофе');
          writeln('Возьмите сдачу ', s - 120, 'рб');
        end
        else
          writeln('Недостаточно средств');
      end;

2:
      begin
        if s >= 100 then
        begin
          writeln('Ждите кофе');
          writeln('Возьмите сдачу ', s - 100, 'рб');
        end
        else
          writeln('Недостаточно средств');
      end;

3:
      begin
        if s >= 150 then
        begin
          writeln('Ждите кофе');
          writeln('Возьмите сдачу ', s - 150, 'рб');
        end
        else
          writeln('Недостаточно средств');
      end;
  end;
end.

В этом коде использован оператор `case`, который делает код более читаемым и поддерживаемым. Он также улучшает структуру кода, делая его более легко расширяемым, если вы решите добавить больше видов кофе в будущем.