Pascal срочно!!!!!! С помощью оператора case !!! ** станции есть бензин нескольких марок...

Question

Pascal срочно!!!!!! С помощью оператора case !!! На станции есть бензин нескольких марок и по разной цене. Клиент выбирает марку бензина и называет количество литров. Вывести чек обслуживания клиента. В нем обязательно должны быть название станции, место расположения, имя оператора, номер колонки, название бензина, количество литров,общая сумма за бензин, сколько было дано денег, сколько дать на сдачу, и пожелать хорошего дня (или другое). Оч срочно.

Answer 1

Program n_5;
var  a, d: integer; 
  b, c, f: real;
begin
d := random(1, 8);
  writeln('Для выбора А-92 введите 1. Цена: 20.00руб. за литр');
  writeln('Для выбора А-95 введите 2. Цена: 25.00руб. за литр');
  writeln('Для выбора А-98 введите 3. Цена: 30.00руб. за литр');
  write('Введите марку бензина - ');
  readln(a);
  write('Введите количество литров - ');
  readln(b);
  if (a < 1) or (a > 3) or (b <= 0) then<br>    write('Ошибка. Введены некорректные значения');
  case a of
    1: c := 20 * b;
    2: c := 25 * b; 
    3: c := 30 * b
  end;
  writeln;
  writeln('.........Кассовый чек.........');
  writeln('АЗС: "Полный бак"');
  writeln('Адрес: г.Волгоград, улица Новослободская д.32');
  writeln('Кассир: Иванова Ирина Викторовна');
  writeln('Номер колонки: ', d);
  case a of
    1: writeln('Бензин: А-92');
    2: writeln('Бензин: А-95');
    3: writeln('Бензин: А-98');
  end;
  write('Введите размер оплаты - ');
  readln(f);
  writeln('Сумма к оплате - ', f);
  if f > c then
    writeln('Сдача: ', f - c)
  else
    writeln('Не достаточно средств');
  write('Хорошего дня');
end.

Comments

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

---

У меня программа рабочая. Копируйте, вставьте в паскаль и потыкайте Enter после каждого символа ";".
Прошу прощения за такое оформление

---

Забудьте, что писал, более менее поправил :D