Сдать решение задачи 7-Лес Полный : 100
Ограничение времени: 1 с
Ограничение памяти: 512M
Ограничение размера стека: 64M
Задача 7: Лес
Миша заблудился в лесу и пытается выйти. Он составил план маршрута выхода из леса. План состоит из N прямолинейных отрезков пути. Сначала Миша идёт a1 метров на север, потом a2 метров на восток, потом a3 метров на юг, затем a4 метров на запад, затем он опять начинает повторять направления в порядке север, восток, юг, запад, то есть a5 метров он проходит на север, a6 метров на восток и т.д.
Оказалось, что для того, чтобы выйти из леса из его первоначальной точки, ему нужно было пройти ровно K метров в любом из четырёх направлений, то есть первоначально Миша находится в центре квадрата со стороной 2K метров.
Введём систему координат, в которой Миша первоначально находился в центре координат, ось OX направлена на восток, ось OY направлена на север, а единица измерения равна 1 метру. Определите, в какой точке Миша выйдет из леса (впервые окажется на границе леса), если будет следовать своему плану, или в какой точке его маршрут закончится, если он не выйдет из леса.
Входные данные
Первая строка входных данных содержит целое положительное число K (1 ≤ K ≤ 109) — расстояние от начального расположения Миши до четырёх сторон квадрата (границ леса). Вторая строка содержит целое положительное число N (1 ≤ N ≤ 105) — количество отрезков в плане перемещений Миши. Следующие N строк содержат по одному числу a1, a2, ..., aN (1 ≤ ai ≤ 109) — длины отрезков в плане Миши в направлениях север, восток, юг, запад и т.д.
Выходные данные
Программа должна вывести два целых числа x и y — координаты точки, в которой Миша выйдет из леса (то есть маршрут Миши впервые окажется на границе леса). Если же Миша не выйдет из леса, выведите координаты точки, в которой завершится его маршрут.
Науке известно множество фактов, подтверждающих протекание информационных процессов в живой природе. Животным свойственна память: они помнят дорогу к месту своего обитания, места добывания пищи; домашние животные отличают знакомых людей от незнакомых. Многие животные обладают обостренным обонянием, несущим им ценную информацию. Конечно животных к обработке информации значительно ниже, чем у человека. Однако многие факты разумного поведения свидетельствуют об их к определенным умозаключениям.
Что делает человек с полученной информацией?
Во-первых, он ее стремится сохранить: запомнить или записать. Во-вторых, он передает ее другим людям. В-третьих, человек сам создает новые знания, новую информацию, выполняя обработку данной ему информации. Какой бы информационной деятельностью люди не занимались, вся она сводится к осуществлению трех процессов: хранению, передаче и обработке информации:
Также к информационным процессам относят:
- Поиск информации;
-Отбор информации;
-Кодирование информации;
-Защита информации.
Поиск информации. Поиск информации — один из важных информационных процессов.
Нам с вами очень часто приходится заниматься поиском информации: в словаре искать перевод иностранного слова, в телефонном справочнике - номер телефона, в железнодорожном расписании - время отправления поезда, в учебнике математики - нужную формулу, на схеме метро - маршрут движения, в библиотечном каталоге - сведения о нужной книге. Можно привести еще много примеров. Все это - процессы поиска информации на внешних носителях: книгах, схемах, таблицах, картотеках.
Информационные процессы, осуществляемые по определенным информационным технологиям, составляют основу информационной деятельности человека.
Компьютер является универсальным устройством для автоматизированного выполнения информационных процессов.
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975