Question

Кто шарит в Pascal помогите пожалуйста решить 2 задачи, отблагодарю в 40 баллов! Только скиньте весь код, хочу разобрать. Задача 1. По строительным нормам дома, ниже шести этажей, не должны иметь лифт. Дома высотой до девяти этажей должны иметь один лифт, более высокие дома - два лифта. По известным количеством этажей определить, сколько лифтов необходимо установить в доме. Задача 2. В аэропорту выполняется регистрация билетов на рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно. По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

Answer 1

Пойдет?

1)

// этажей<6 лифта нет, до 9 этажей 1 лифт, более 9 2 лифта

//По известным количеством этажей определить, сколько лифтов необходимо установить в доме.

program v1;

var n,m:integer;

  begin

    writeln('Введите количество этажей'); readln(n);

    m:=n;

    if m<6 then writeln('Лифта нет');

    if (m>=6) and (m<=9) then writeln('1 лифт');

    if m>=10 then writeln('2 лифта');

  end.

2)

//рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно.  

//По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

program v1;

var n,m:integer;

 begin

   writeln('Введите номер рейса'); readln(n);

   m:=n;

   if m=107 then writeln('Стоянка с номером 3');

   if m=201 then writeln('Стоянка с номером 4');

   if m=32 then writeln('Стоянка с номером 5');

   if (m<>107) and (m<>201) and (m<>32) then writeln('Таких рейсов нет');

 end.

Answer 2

Конечно, я могу помочь вам написать код на Pascal для решения этих задач. Начнем с задачи 1:

pascalCopy code
program Lifts;

var
  numFloors, numLifts: integer;

begin
  writeln('Введите количество этажей в доме: ');
  readln(numFloors);

  if (numFloors <= 6) then
    numLifts := 0
  else if (numFloors <= 9) then
    numLifts := 1
  else
    numLifts := 2;

  writeln('Необходимо установить ', numLifts, ' лифт(ов) в доме.');
end.

Теперь перейдем к задаче 2:

pascalCopy code
program FlightParking;

var
  flightNumber, parkingNumber: integer;

begin
  writeln('Введите номер рейса (107, 201 или 32): ');
  readln(flightNumber);

  case flightNumber of
    107: parkingNumber := 3;
    201: parkingNumber := 4;
    32: parkingNumber := 5;
  else
    writeln('Данный рейс не существует.');
    exit;
  end;

  writeln('Отправьте багаж пассажиров на стоянку номер ', parkingNumber, '.');
end.

Эти программы позволят вам решить задачи и определить, сколько лифтов нужно установить в доме и на какую стоянку отправить багаж в аэропорту в зависимости от введенного номера рейса. Надеюсь, это поможет вам разобраться в решении задач!