Необходимо найти координаты точки пересечения медиан треугольника.

[Son Of Pain]

Сообщение от Alina_665

Понимаете дело то не в медиане, а как это написать?

Тебе нужно объявить переменные. Открыть файл (функции assign и reset), прочитать оттуда значения (функция read), закрыть файл (функция close), перейти в графический режим (функция initgraph), нарисовать треугольник (функция line), дать пользователю увидеть его (подождать нажатия любой кнопки, например - функция readkey).

Что из этого пугает? )

UPD: а, ну да, еще ж нужно как-то точку пересечения показать. ) Можно нарисовать сами медианы (еще два вызова функции line), и дописать текстом координаты их пересечения (функция OutTextXY, вроде так в этом вашем паскале оно называется).

[Rififi]

Alina_665

Математика
...
Необходимо найти координаты точки пересечения его медиан.

Alina_665, у меня к тебе только одна просьба: если ты каким-то чудом продержишься до выпуска, а не переквалифицируешься в домохозяйку с поварешкой наперевес, иди пожалуйста работать в американскую фирму. будешь саботировать инфраструктуру и математические разработки вероятного противника изнутри :D

[ViktorR]

Подумал и решил попробовать по подсказке Son Of Pain
1. Объявил перемнные:
Так как надо работать с графикой, то подключил к своей будущей программе графический модуль:

Uses Graph;

Решил, что будет лучше, если координаты точки X и Y будут храниться вместе.
Объявил тип Запись:

Type TCoord = record
      x : integer;
      y : integer;
    end;

Собственно объявление самих переменных:

var A, B, C : TCoord;  {Координаты вершин треугольника}
    fh : Text;  {Файловая переменная}
    Gd, Gm : Integer; {Эти переменные нужны для инициализации графического режима}

Т.к. A, B, C - вершины треугольника, имеют тип TCoord, обращение к самим координатам будет иметь вид: A.x и A.y - соотвтетственно.
Собственно программа:

Begin
   assign(fh, 'C:\FPC\GraphLab\Triangl.txt'); {тут я разместил текстовый файл с координатами точек}
   reset(fh); {Открыл файл на чтение}
   readln(fh, A.x, A.y); {Прочитал первую строчку с координатами: два числа, например, 200  100}
   readln(fh, B.x, B.y); {следующая точка}
   readln(fh, C.x, C.y); {тоетья точка}
   Gd := Detect;   {Это для автоматического определения графического режима}
   Gm := 0;  {для того же}
   InitGraph(Gd, Gm, ''); {Инициируем графический режим }
   If GraphResult<>grOk then {Проверяем, чтовсе Ок}
      Halt;
   Line(A.x, A.y, B.x, B.y); {Рисуем первую линию}
   Line(C.x, C.y, B.x, B.y); {и т.д.}
   Line(A.x, A.y, C.x, C.y);
   readln;   {Это для того, что бы посмотреть на рисунок}

   CloseGraph; {Закроем графический режим}
End.

В общем ничего сложного не обнаружил.

PS: Текстовый файл с координатами вершин надо подготовить в Блокноте или другом текстовом редакторе, но не в Word (его называют текстовым процессором).


Как-то так, ...