Написать программу, на pascal, которая определяет принадлежит ли точка плоскости a отрезку с конечными точками b и с. программа получает на вход координаты точек а, в и с, и выводит ответ (да или нет).
Попытаюсь но непонятно, причём тут плоскость, если она не задаётся никак. И непонятна размерность пространства, в котором нужно решать задачу.
Опишу случай 3-мерного пространства, то есть решу задачу
В пространстве заданы своими координатами 3 точки А, В, С. Определить, принадлежит ли точка А отрезку ВС.
В такой формулировке нет неясностей. Всё понятно.
Немного теории
1. Точка А будет принадлежать отрезку ВС, если
а) она будет лежать на прямой ВС
б) она делит этот отрезок внутренним образом.
На оба этих вопроса овечает аналитическая геометрия, так,
а) уравнение прямой в пространстве описывается следующей формулой
X - Xb Y - Yb Z - Zb
= =
Xс - Xb Yс-Yb Zс - Zb
Поэтому, если мы вместо (X,Y,Z) подставим координаты точки А и получим верные равенства, значит точка А лежит на прямой ВС
б) Точка А делит отрезок ВС внутренним образом, если
|BA|
= k, при этом к>0
|AC|
Ну вот, в принципе и всё. Формула длины отрезка, думаю, тебе известна, это всего-навсего трехмерная теорема Пифагора.
Программа тоже должна эти два этапа проходить, при этом на второй переходить, если успешно пройден первый.
Текст писать не буду, он примитивен.
Если я что-то не так понял, и, например, все 3 точки лежат в одной плоскости, то всё упрощается, так как координата Z исчезает, но теория остаётся прежней.
Если же у тебя одномерный случай, то есть все три точки лежат на числовой прямой, то и координата Y исчезает, а вместе с ней и этап а).
Но теория в целом и алгоритм остаётся прежним, поэтому лучше сразу написать программу для трехмерного пространства.
Вот и всё, если возникнут вопросы, пиши в личку.
Ну и последнее, выставленные очки мне совершенно ни к чему, поэтому, чтобы их себе сэкономить, можешь внимательно изучить мой текст, а затем отметить его как нарушение.
const n = 10000;//Не изменяемая по ходу программы переменная var a: array[1..n] of integer; b: array[1..10]of integer; c: array[1..10]of integer; i, s, v: integer; begin for i := 1 to 10 do //Заполнение массива с числами от 1 до 10 c[i] := i; for i := 1 to n do //Заполнение массива a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей for i := 1 to n do case a[i] of 1: b[1] := b[1] + 1; 2: b[2] := b[2] + 1; 3: b[3] := b[3] + 1; 4: b[4] := b[4] + 1; 5: b[5] := b[5] + 1; 6: b[6] := b[6] + 1; 7: b[7] := b[7] + 1; 8: b[8] := b[8] + 1; 9: b[9] := b[9] + 1; 10: b[10] := b[10] + 1; End; for i := 1 to 10 do for s := 1 to 9 do if b[s] > b[s + 1] then begin v := b[s]; b[s] := b[s + 1]; b[s + 1] := v; v := c[s]; c[s] := c[s + 1]; c[s + 1] := v; end; writeln(c[10], ' - их ', b[10]); end.
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 function Avg(a:array[,] of integer):real; begin var s:=0; var k:=0; foreach var e:integer in a do if e>0 then begin s+=e; Inc(k) end; if k>0 then Result:=s/k else Result:=1e-100; end;
begin var A:=MatrixRandom(4,4,-50,50); Writeln(A); Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3); var B:=MatrixRandom(5,5,-30,30); Writeln(B); Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3); var C:=MatrixRandom(4,5,-25,38); Writeln(C); Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3); end.
Тестовое решение: [[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]] Среднее арифметическое положительных равно 24.000 [[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]] Среднее арифметическое положительных равно 15.083 [[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]] Среднее арифметическое положительных равно 19.200
Попытаюсь но непонятно, причём тут плоскость, если она не задаётся никак. И непонятна размерность пространства, в котором нужно решать задачу.
Опишу случай 3-мерного пространства, то есть решу задачу
В пространстве заданы своими координатами 3 точки А, В, С. Определить, принадлежит ли точка А отрезку ВС.
В такой формулировке нет неясностей. Всё понятно.
Немного теории
1. Точка А будет принадлежать отрезку ВС, если
а) она будет лежать на прямой ВС
б) она делит этот отрезок внутренним образом.
На оба этих вопроса овечает аналитическая геометрия, так,
а) уравнение прямой в пространстве описывается следующей формулой
X - Xb Y - Yb Z - Zb
= =
Xс - Xb Yс-Yb Zс - Zb
Поэтому, если мы вместо (X,Y,Z) подставим координаты точки А и получим верные равенства, значит точка А лежит на прямой ВС
б) Точка А делит отрезок ВС внутренним образом, если
|BA|
= k, при этом к>0
|AC|
Ну вот, в принципе и всё. Формула длины отрезка, думаю, тебе известна, это всего-навсего трехмерная теорема Пифагора.
Программа тоже должна эти два этапа проходить, при этом на второй переходить, если успешно пройден первый.
Текст писать не буду, он примитивен.
Если я что-то не так понял, и, например, все 3 точки лежат в одной плоскости, то всё упрощается, так как координата Z исчезает, но теория остаётся прежней.
Если же у тебя одномерный случай, то есть все три точки лежат на числовой прямой, то и координата Y исчезает, а вместе с ней и этап а).
Но теория в целом и алгоритм остаётся прежним, поэтому лучше сразу написать программу для трехмерного пространства.
Вот и всё, если возникнут вопросы, пиши в личку.
Ну и последнее, выставленные очки мне совершенно ни к чему, поэтому, чтобы их себе сэкономить, можешь внимательно изучить мой текст, а затем отметить его как нарушение.
Успехов!