director
?>

Подскажите/объясните последовательность действий в задаче "Ход Конем". Знаю, как проверить возможность хода в ту или иную клетку, но не могу понять, что нужно делать после создания поля не использовать сложные библиотеки и тп, т.к. мало чего понимаю из этого. (часть кода во вложениях, прикрепить текстом не могу - не хватает места) Текст задания: Написать игру «Ход конем». На поле размером 10х10 пользователь и компьютер по очереди ставят числа от 1 до 100. Первое число ставится в левую верхнюю клетку. Дальше по порядку числа ставятся так, как ходит шахматный конь. Выигрывает тот, кто поставит последнее число и у противника больше не будет возможных ходов.

Информатика

Ответы

Yumashev
1.program z;var a:array [1..10] of integer; i,t:integer; s:real;beginfor i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if (odd(i)) and (odd(a[i])) then begins:=s+a[i];t:=t+1;end;end;writeln;write('Cреднее арифметическое = ',s/t);end.2.program z;var a:array[1..10] of integer; max,i:integer;beginwriteln('Исходный массив');for i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if a[i]>max then max:=a[i];end;writeln;writeln('Измененный массив');for i:=1 to 10 dobeginif not(odd(a[i])) then a[i]:=max;write(a[i]:4);end;end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Подскажите/объясните последовательность действий в задаче "Ход Конем". Знаю, как проверить возможность хода в ту или иную клетку, но не могу понять, что нужно делать после создания поля не использовать сложные библиотеки и тп, т.к. мало чего понимаю из этого. (часть кода во вложениях, прикрепить текстом не могу - не хватает места) Текст задания: Написать игру «Ход конем». На поле размером 10х10 пользователь и компьютер по очереди ставят числа от 1 до 100. Первое число ставится в левую верхнюю клетку. Дальше по порядку числа ставятся так, как ходит шахматный конь. Выигрывает тот, кто поставит последнее число и у противника больше не будет возможных ходов.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

shymilin19951783
upmoskovskiy
Freelifecool797
ogonizoloto
IInessa44478
Терентьева
Gennadevich Aleksandr
sakh2010kprf7
olelukoya4
baxirchik
fursov-da
Дружинин
s45983765471717
mitin228133770
Strelkov567