Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2014, 22:48   #11
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

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

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

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

Последний раз редактировалось Son Of Pain; 24.01.2014 в 22:52.
Son Of Pain вне форума Ответить с цитированием
Старый 25.01.2014, 00:19   #12
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,120
По умолчанию

Alina_665

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

Alina_665, у меня к тебе только одна просьба: если ты каким-то чудом продержишься до выпуска, а не переквалифицируешься в домохозяйку с поварешкой наперевес, иди пожалуйста работать в американскую фирму. будешь саботировать инфраструктуру и математические разработки вероятного противника изнутри :D
Rififi вне форума Ответить с цитированием
Старый 26.01.2014, 11:17   #13
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
Хорошо

Подумал и решил попробовать по подсказке 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 (его называют текстовым процессором).


Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано 3 точки своими координатами х,у. Будет ли они вершинами треугольника. Если да - найти периметр и площадь треугольника Arhi555 Паскаль, Turbo Pascal, PascalABC.NET 2 11.09.2012 17:46
Найти точки пересечения граффиков. Para La Musica Microsoft Office Excel 3 03.01.2011 00:28
Нужно найти координаты точки пересечения двух отрезков в пространстве... Dima6120 Мультимедиа в Delphi 2 30.07.2010 13:36
Треугольник на плоскости задан координатами своих вершин.Найти координаты точки пересечения его медиан. Silver23 Помощь студентам 2 13.01.2010 15:59
Программа должна вывести координаты точки пересечения прямых Natasha666 Общие вопросы Delphi 1 20.05.2009 00:52