Задача про шашки |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача про шашки |
LammerzAttack |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
Помогите решить задачу:
Имя входного файла: checkers.in Имя выходного файла: checkers.out Ограничение по памяти: 1 Мб Ограничение по времени: 1 с На квадратной доске N×N стоят N шашек. За один ход можно подвинуть на соседнюю по вертикали или горизонтали клетку. Сколько требуется ходов, чтобы составить их все в один горизонтальный ряд? Формат входного файла В первой строке натуральное число N < 32768. В следующих N строках по два натуральных числа, не превосходящих N — координаты шашек. Формат выходного файла Минимальное количество ходов, необходимых чтобы составить все шашки в один горизонтальный ряд. Пример checkers.in 4 1 1 2 2 3 3 4 4 checkers.out 4 Пока ксть идея, что координата горизонтали на которой будут расположенны шашки равеа среднему арифметическому координат всех шашек по оси y. |
LammerzAttack |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
Если кому интересно то вот решение:
Код program checkers; type a=record x,y:integer; end; var c:array [1..32768] of a; f,f1:text; i,n:integer; sum,sumsh:int64; begin assign(f,'checkers.in'); assign(f1,'checkers.out'); reset(f); rewrite(f1); readln(f,n); sumsh:=0; sum:=0; for i:=1 to n do readln(f,c[i].x,c[i].y); {Сюда надо вставить сортировку массива c.x по возрасстанию} for i:=1 to n do sum:=sum+c[i].y; sum:=round(sum/n); for i:=1 to n do sumsh:=sumsh+abs(c[i].x-i); for i:=1 to n do sumsh:=sumsh+abs(c[i].y-sum);; writeln(f1,sumsh); close(f1); end. Сообщение отредактировано: LammerzAttack - |
Текстовая версия | 23.12.2024 20:22 |