Взамечательной стране , как нетрудно догадаться из ее названия, все дома имеют
треугольную форму. они расположены на координатной плоскости, и их вершины имеют целочисленные координаты.
недавно в объявили о строительстве нового жилого района, и герой нашей ,
которого зовут ректангул, решил приобрести себе дом в этом районе.
ректангул выяснил, что всем покупателям перед покупкой дается набор точек, среди которых
можно выбрать любые три, не лежащие на одной прямой. именно они на карте будут являться
вершинами треугольника, изображающего их будущий дом.
ректангул хочет как-то выделиться из толпы, и поэтому он решил приобрести не простой дом, а
прямоугольный. получив набор точек, наш герой задался вопросом: сколько у него есть вариантов
выбрать три точки так, чтобы они образовывали прямоугольный треугольник?
формат входных данных
первая строка входного файла содержит одно целое число n — количество точек в наборе
(3 6 n 6 2500).
далее в n строках записаны по два целых числа: xi
, yi — x и y координаты i-й точки из набора
(−1000 6 xi
, yi 6 1000). все точки в наборе различны.
формат выходных данных
в выходной файл необходимо вывести одно число — количество троек точек, которые подходят
нашему герою.
Двухмерный массив: берем многоквартирный дом. В доме 3 этажа, на каждом этаже 4 квартиры. Соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. Если в доме 3x4=12 этажей, то получается 12 элементов массива.
Так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (Пример: дан массив с двумя элементами. Первый элемент равен 5, второй 33)
Создать массив в Pascal:
В var напишите x:array [y..z] of what
x - название массива
y - начальная цифра массива (обычно 1, так и представим)
x - последняя цифра массива (представим как 10)
what - тип (integer, real и т.д.)
Найти значение массива и редактировать его:
a:=x[4]
Данным действием мы присваиваем 4 элемент массива для a.
x[4]:=b
Данным действием мы присваиваем b для 4 элемента массива.
Если что-то непонятно, задайте вопрос в комментарий. Постараюсь объяснить именно то, что вам непонятно.