Ответы
Ответ дал:
0
var n, i, z, step, k, g, retry: integer; // n - количество карточек (вводит пользователь), остальное - обычные счетчики циклов
c: array[1..300000] of integer; // массив, в котором хранятся все наши карточки
begin
write('Введите количество карточек: '); // рекомендую для теста вводить около десяти , т.к. больше вероятность, что попадутся одинаковые числа и вы сможете увидеть результат
readln(n);
writeln();
writeln('Карточки: ');
for z := 1 to n do begin
c[ z ] := random(10); // создается n карточек
//c[ 1 ] := 3; эти строки я закомментировал
//c[ 2 ] := 0; их можно удалить
//c[ 3 ] := 7;
//c[ 4 ] := 6; просто проверял работу своими значениями
//c[ 5 ] := 6;
//c[ 6 ] := 3;
//c[ 7 ] := 4;
//c[ 8 ] := 0;
//c[ 9 ] := 2;
//c[ 10 ] := 2;
write( '|' , c[ z ], '| ' ); // вывод обрамленных карточек
end;
step := 0; // переменная, которая считает шаги
writeln();
for retry := 1 to 11 do begin // главный цикл, который прогоняет второстепенный цикл 11 кругов, для того, чтобы исключить вероятность, что "сзади" остались одинаковые числа
for z := 1 to n do begin // второстепенный цикл
if z >= n then break // в случае конца выходим из цикла и отдаем управление программой главному циклу (тот что выше)
else begin // начинаем проверять карточки слева направо, пока не достигнут конец. в случае оного - выполняется действие выше
if c[ z ] = c[ z + 1 ] then begin // сравниваем соседние карточки. если они равны, то начинаем делать шаг
inc(step);
writeln();
writeln( step, ' шаг ', retry, ' круг: ');
inc( c[ z ] );
for g := 1 to ( n - z ) do c[ z + g ] := c[ z + g + 1 ]; // удаляем две одинаковых карточки, оставляем одну, увеличенную на 1
n := n - 1; // сокращаем количество карточек на 1
writeln();
for k := 1 to n do write( '|' , c[ k ], '| ' ); // вывод каждого шага
writeln();
end;
end;
end;
end;
writeln();
end.
c: array[1..300000] of integer; // массив, в котором хранятся все наши карточки
begin
write('Введите количество карточек: '); // рекомендую для теста вводить около десяти , т.к. больше вероятность, что попадутся одинаковые числа и вы сможете увидеть результат
readln(n);
writeln();
writeln('Карточки: ');
for z := 1 to n do begin
c[ z ] := random(10); // создается n карточек
//c[ 1 ] := 3; эти строки я закомментировал
//c[ 2 ] := 0; их можно удалить
//c[ 3 ] := 7;
//c[ 4 ] := 6; просто проверял работу своими значениями
//c[ 5 ] := 6;
//c[ 6 ] := 3;
//c[ 7 ] := 4;
//c[ 8 ] := 0;
//c[ 9 ] := 2;
//c[ 10 ] := 2;
write( '|' , c[ z ], '| ' ); // вывод обрамленных карточек
end;
step := 0; // переменная, которая считает шаги
writeln();
for retry := 1 to 11 do begin // главный цикл, который прогоняет второстепенный цикл 11 кругов, для того, чтобы исключить вероятность, что "сзади" остались одинаковые числа
for z := 1 to n do begin // второстепенный цикл
if z >= n then break // в случае конца выходим из цикла и отдаем управление программой главному циклу (тот что выше)
else begin // начинаем проверять карточки слева направо, пока не достигнут конец. в случае оного - выполняется действие выше
if c[ z ] = c[ z + 1 ] then begin // сравниваем соседние карточки. если они равны, то начинаем делать шаг
inc(step);
writeln();
writeln( step, ' шаг ', retry, ' круг: ');
inc( c[ z ] );
for g := 1 to ( n - z ) do c[ z + g ] := c[ z + g + 1 ]; // удаляем две одинаковых карточки, оставляем одну, увеличенную на 1
n := n - 1; // сокращаем количество карточек на 1
writeln();
for k := 1 to n do write( '|' , c[ k ], '| ' ); // вывод каждого шага
writeln();
end;
end;
end;
end;
writeln();
end.
Ответ дал:
0
p.s: Там есть строчка , где мы заполняем массив случайными числами - c[ z ] := random(10);
В задании сказано, что все числа не превышают значения 1 миллиард. Но делать пределом такое большое число смешно. Нам просто не попадется одинаковых чисел. Поэтому значения на карточках варьируются от 0 до 10. если вам все-так нужно изменить эти пределы, то просто поменяйте значения в скобках на максимально допустимое вам нужное
В задании сказано, что все числа не превышают значения 1 миллиард. Но делать пределом такое большое число смешно. Нам просто не попадется одинаковых чисел. Поэтому значения на карточках варьируются от 0 до 10. если вам все-так нужно изменить эти пределы, то просто поменяйте значения в скобках на максимально допустимое вам нужное
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад