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

Содержание вопроса: Написание программы на языке Pascal для заказа гостиницы в Трускавце

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

Сначала мы объявляем переменные для уровня гостиницы, количества мест в номере и выбора наличия питания. Затем, пользователю будет предложено сделать выбор для каждого параметра.

Мы используем условные операторы для определения цены в зависимости от выбранных параметров. Мы можем использовать оператор "if" для проверки выбора пользователя и соответствующего присвоения цены в переменную.

После того, как программа получит полные данные от пользователя, будет выведена общая стоимость проживания в гостинице в соответствии с выбранными параметрами.

Дополнительный материал:

pascal

var

  uroven : integer;  // уровень гостиницы

  mesta : integer;   // количество мест в номере

  pitaniye : boolean;  // наличие питания

  cena : real;       // цена



begin

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

  writeln("Выберите уровень гостиницы (4 или 5 звезд):");

  readln(uroven);

  

  writeln("Выберите количество мест в номере (1 или 2):");

  readln(mesta);

  

  writeln("Требуется ли вам проживание с питанием (True/False):");

  readln(pitaniye);

  

  if uroven = 5 then

  begin

    if mesta = 1 then

    begin

      if pitaniye then

        cena := 1500

      else

        cena := 1000;

    end

    else

    begin

      if pitaniye then

        cena := 2500

      else

        cena := 1500;

    end;

  end

  else if uroven = 4 then

  begin

    if mesta = 1 then

    begin

      if pitaniye then

        cena := 900

      else

        cena := 600;

    end

    else

    begin

      if pitaniye then

        cena := 1800

      else

        cena := 1200;

    end;

  end;

  

  writeln("Общая стоимость проживания составляет: ", cena:0:2, " гривен в сутки.");

  

end.

Совет:
Чтобы лучше понять программирование на языке Pascal, рекомендуется изучить основные концепции языка, такие как переменные, условные операторы и ввод/вывод данных. Практикуйтесь в написании простых программ, чтобы укрепить свои навыки.

Задача для проверки:
Напишите программу на языке Pascal, которая позволяет пользователю выбирать гостиницу с разным количеством звезд (от 1 до 5), а затем вводить количество дней проживания и выводить общую стоимость проживания. Каждая звезда гостиницы увеличивает стоимость проживания на 20%.