
Вопрос задан 08.06.2018 в 19:32.
Предмет Информатика.
Спрашивает Ханская Арука.
Внимание даю 50 балловВ конструкторском бюро проектируют планетоход для исследования поверхности
планеты Марс. Исследования должны проводиться на прямоугольной области планеты без препятствий внутри неё. Эта область разделена на единичные квадраты и имеет размеры M×N, где M – длина прямоугольника, а N – его ширина. Планируется, что планетоход должен работать по следующей программе. Вначале он садится в северо-западном углу заданной области в направлении на восток. После этогопланетоход начинает обход и исследование выбранной области, двигаясь по спирали почасовой стрелке. При этом спираль постепенно «закручивается» вовнутрь, захватывая постепенно все клетки прямоугольника. Исследование заканчивается, когда пройдены всеклетки. Требуется написать программу, которая для заданных M и N (1≤M, N ≤ 32767) определяет количество поворотов, которые должен выполнить планетоход в процессе исследования области. Описание входных данных Входные данные вводятся из файла input.txt. В единственной строке этого файла через пробел записаны два целых числа M и N (1 ≤ M, N ≤ 32767), размеры исследуемого прямоугольного участка. Описание выходных данных Выходные данные выводятся в файл output.txt. В единственной строке этого файла необходимо вывести одно целое число – количество поворотов, которое выполнит планетоход при исследовании заданной области на поверхности Марса.

Ответы на вопрос

Отвечает Кудряшова Марина.
Рассматривая различные прямоугольники и подсчитывая в них число поворотов P, можно прийти к следующему алгоритму. Для любого натурального k получаем:
var
M, N, k, mn, P: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, M, N);
Close(f);
if M < N then mn := M else mn := N;
if mn = 1 then P := 0
else begin
k := mn div 2;
if mn mod 2 = 0 then
if M = N then P := 4 * k - 2
else P := 4 * k - 1
else
if M = N then P := 4 * k
else P := 4 * k + 1
end;
Assign(f, 'output.txt');
Rewrite(f);
Writeln(f, P);
Close(f)
end.



Топ вопросов за вчера в категории Информатика

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

Информатика 16
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili