Напишите программу на языке Паскаль, которая будет определять две команды, которые выбывают из премьер-лиги

Блестящий_Тролль

42

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

1. Сначала создадим переменные для команд и инициализируем их значениями:

pascal

var

  teamA, teamB: string;

2. Спросим пользователя о названиях двух команд и сохраните введенные значения в соответствующих переменных:

pascal

writeln("Введите название первой команды:");

readln(teamA);

writeln("Введите название второй команды:");

readln(teamB);

3. Теперь нам нужно определить условия выбывания команд из премьер-лиги в соответствии с условиями чемпионата 2003 года. Давайте пока примем, что команда выбывает, если она заняла предпоследнее место. Создадим переменную для номера места и инициализируем ее значением 1:

pascal

var

  place: integer = 1;

4. Теперь создадим цикл, который будет выполняться до тех пор, пока не определены оба выбывших команды. Внутри цикла будем спрашивать пользователя о результатах игры и изменять место команды в зависимости от этого:

pascal

while (place <= 18) and ((teamA <> "") or (teamB <> "")) do

begin

  writeln("Введите результат игры (", teamA, " vs ", teamB, "):");

  var result: string;

  readln(result);



  if result = "A" then

  begin

    if teamA <> "" then

      teamA := ""

    else

      teamA := "error";

  end

  else if result = "B" then

  begin

    if teamB <> "" then

      teamB := ""

    else

      teamB := "error";

  end;



  place := place + 1;

end;

5. После цикла проверим, какие команды выбывшие, и выведем результат:

pascal

if teamA = "" then

  writeln("Команда ", teamA, " выбыла из премьер-лиги")

else

  writeln("Команда ", teamB, " выбыла из премьер-лиги");

6. Весь код:

pascal

program PremierLeague;

var

  teamA, teamB: string;

  place: integer = 1;

begin

  writeln("Введите название первой команды:");

  readln(teamA);

  writeln("Введите название второй команды:");

  readln(teamB);



  while (place <= 18) and ((teamA <> "") or (teamB <> "")) do

  begin

    writeln("Введите результат игры (", teamA, " vs ", teamB, "):");

    var result: string;

    readln(result);



    if result = "A" then

    begin

      if teamA <> "" then

        teamA := ""

      else

        teamA := "error";

    end

    else if result = "B" then

    begin

      if teamB <> "" then

        teamB := ""

      else

        teamB := "error";

    end;



    place := place + 1;

  end;



  if teamA = "" then

    writeln("Команда ", teamA, " выбыла из премьер-лиги")

  else

    writeln("Команда ", teamB, " выбыла из премьер-лиги");



  readln;

end.

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

Пожалуйста, обратите внимание, что приведенное решение ориентировано на условия чемпионата 2003 года и предполагает, что все введенные данные будут корректными. Вы можете внести изменения в соответствии с другими правилами или условиями.