Напишите программу на Pascal, которая позволяет заказать гостиницу на курорте Трускавец. В программе нужно выбрать

Veselyy_Pirat

59

"Трускавец" - три звезды, и цена за одноместную комнату составляет 400 гривен в сутки (с питанием - 600 гривен), а за двухместную - 700 гривен (с питанием - 1200 гривен).

Чтобы написать программу на Pascal, которая позволит заказать гостиницу на курорте Трускавец, нужно использовать условные операторы и переменные.

Вот пример программы, которая решает данную задачу:

pascal

program HotelBooking;



var

  numberOfStars: integer;

  numberOfGuests: integer;

  withMeals: boolean;

  pricePerDay: real;

  totalPrice: real;

  

Begin

  writeln("Добро пожаловать в программу по заказу гостиницы на курорте Трускавец!");

  writeln("--------------------------------------------------------------");

  

  writeln("Выберите количество звезд гостиницы:");

  writeln("1 - Три звезды");

  writeln("2 - Четыре звезды");

  writeln("3 - Пять звезд");

  

  readln(numberOfStars);

  

  writeln("Выберите количество гостей:");

  readln(numberOfGuests);

  

  writeln("Выберите тип проживания:");

  writeln("1 - С питанием");

  writeln("0 - Без питания");

  readln(withMeals);

  

  if numberOfStars = 1 then

  begin

    if withMeals then

      pricePerDay := 600

    else

      pricePerDay := 400;

  end

  else if numberOfStars = 2 then

  begin

    if withMeals then

      pricePerDay := 900

    else

      pricePerDay := 600;

  end

  else if numberOfStars = 3 then

  begin

    if withMeals then

      pricePerDay := 1500

    else

      pricePerDay := 1000;

  end;

  

  totalPrice := pricePerDay * numberOfGuests;

  

  writeln("--------------------------------------------------------------");

  writeln("Информация о заказе:");

  writeln("--------------------------------------------------------------");

  

  writeln("Количество звезд гостиницы:", numberOfStars);

  writeln("Количество гостей:", numberOfGuests);

  

  if withMeals then

    writeln("Тип проживания: С питанием")

  else

    writeln("Тип проживания: Без питания");

  

  writeln("Цена за сутки:", pricePerDay, " гривен");

  writeln("Общая стоимость:", totalPrice, " гривен");

  

  writeln("--------------------------------------------------------------");

  writeln("Спасибо за использование программы. Приятного отдыха!");

  

End.

В этой программе сначала мы получаем информацию о количестве звезд, количестве гостей и типе проживания от пользователя. Затем, с помощью условных операторов (if-else) и вложенных операторов (begin-end), мы определяем цену за сутки в зависимости от выбранного количества звезд и типа проживания.

Далее, мы вычисляем общую стоимость проживания (цена за сутки умножается на количество гостей) и выводим информацию о заказе на экран. Программа также благодарит пользователя за использование и желает приятного отдыха.

Надеюсь, это подробное пояснение помогло понять, как работает данная программа.