В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах...

Question

В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах экономического класса и одна четверть мест - в салоне бизнес-класса.



Стоимость билета в салоне бизнес класса составляет х рублей, что в два раза выше стоимости билета в салонах экономического класса.
Разработайте программу, которая вычислит сумму денег, полученную авиакомпанией от продажи билетов на этот рейс, если известно, что остались нераспроданными а билетов бизнес-класса и b билетов экономического класса.
Выделите все этапы решения этой задачи и опишите свои действия на каждом из них.



ПОМОГИТЕ СОСТАВИТЬ БЛОК-СХЕМУ, ПОЖАЛУЙСТА

Answer 1

Var
 o,em,bm:real;
 x,x2:real;
 a,b:real;
begin
 o:=160;
 bm:=40;
 em:=120;
 
 writeln('Введите цену бизнес класса ');
 readln(x);
 x2:=(x/2);//цена эконом класса
 writeln('Непроданные бизнес класса =');
 readln(a);
 writeln('Непроданные эконом класса =');
 readln(b);
 bm:=bm*x;
 em:=em*x2;
 bm:=bm-a*x;
 em:=em-b*x2;
 o:=bm+em;
 writeln ('Прибыль = ',o);
 end.