KavaiiGot

05.01.2020 10:48

Информатика

Есть ответ 👍

Найти ошибку в программе на паскале
решал и не могу найти ошибку в программе
вот программа : (подозреваю, что циклы почему то не останавливается)
var
mas: array of integer;
n,q,z,b,p,w,x,l: integer;
begin
read(n);
n: =n+1;
setlength(mas,n);
q: =1 ;
while q< > n do
begin
mas[q]: =q;
q: =q+1;
end;
z: =length(mas);
reverse(mas);
setlength(mas,z-1);
reverse(mas);
write(mas);
q: =1; {создали массив}
z: =length(mas);
p: =z;
while (z< > 2) do{внешний цикл идёт пока длинна масива не 2}
begin
while (p< > (z/2)) or (p< > 2) do {внутренний идёт пока он не равен 2 или его длина не равна половине изначального массива, проводиться 1 тур, матчей z/2}
begin
readln(b); {убирается или 1, или 2 команда из пары}
if b=1 then begin
w: =l+2;
for var i: =w to p-1 do
mas[i-1]: =mas[i];
setlength(mas,p-1);
write(mas);
l: =l+1;
p: =length(mas);
end
else
begin
x: =l+1;
for var i: =x to p-1 do
mas[i-1]: =mas[i];
setlength(mas,p-1);
write(mas);
l: =l+1;
p: =length(mas);
end
end;
z: =length(mas);
w: =0;
x: =0;
l: =0;
end;
readln(b); {остаётся 2 команды, читается b, и убирается 1 из 2 команд}
if b=1 then begin
for var i: =2 to 2 do
mas[i-1]: =mas[i];
setlength(mas,p-1);
end
else
begin
for var i: =1 to 2 do
mas[i-1]: =mas[i];
setlength(mas,p-1);
end;
write(mas[1]); {выводиться 1 элемент массива, сосотоящего уже из 2 элемента-команды победителя}
end.

вот :
в турнире участвуют n команд. турнир проводится по олимпийской системе
(команды играют на вылет, проигравшие команды выбывают из турнира, выигравшие
проходят в следующий тур, ничьих не бывает). число команд в этой будет степенью
двойки.
все команды пронумерованы числами от 1 до n. в первом туре играют команды
с номерами 1 и 2, 3 и 4, 5 и 6 и т. д., всего играется n/2 матчей. по результатам этих матчей
команды выходят во второй тур. во втором туре играют победители первой и второй игры
первого тура, победители третьей и четвёртой игры первого тура и т. д. они выходят в третий
тур. в третьем туре играют вместе победители первой и второй игры второго тура,
победители третьей и четвёртой игры второго тура и т. д.
вам даны результаты всех матчей. определите номер команды, которая стала
победителем турнира.
в первой строке входных данных записано число n – количество команд,
участвовавших в турнире. оно является степенью двойки и может принимать значения
от 2
0 = 1 до 216 = 65536. следующие n − 1 строк содержат результаты всех сыгранных матчей.
первые n/2 строк из них являются результатами матчей первого тура, затем идёт n/4 строк
с результатами второго тура, n/8 строк с результатами третьего тура и т. д.
результат каждого матча является одним из двух возможных чисел: 1 или 2.
число 1 означает, что в матче выиграла первая команда (номер которой меньше), число 2
означает, что в матче выиграла вторая команда (номер которой больше).
программа должна вывести одно число – номер победившей в турнире команды.