![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Tribunal |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 233 Пол: Женский Реальное имя: Dasha Репутация: ![]() ![]() ![]() |
Задача такова:
Дан файл вещественных чисел,которые являются координатами точек. Нужно найти такие 3 точки, что треугольник, построенный на этих точках будет содержать максимальное количество точек множества. Координаты этих трёх точек сохранить в файле, как результат +нужна графическая иллюстрация к этой задаче. Предложите,пожалуйста,варианты решения этой задачи или какие-нибудь идеи. У меня они пока не могут оформиться... Буду благодарна за помощь. Сообщение отредактировано: Tribunal - 13.05.2006 19:02 -------------------- irreparabilium felix olivio rerum
|
![]() ![]() |
Tribunal |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 233 Пол: Женский Реальное имя: Dasha Репутация: ![]() ![]() ![]() |
значит у меня получается вот какая штука:
есть файл координат, которые в свою очередь находятся в списке для обработки. я хочу сделать так,чтобы можно было изменять координаты конкретной точки,то есть по ее номеру. процедура,которая у меня получилась почему-то очищает файл...( почему?подскажите,пожалуйста... Код var xe,ye:real; ne,k:byte; begin writeln('Введите x');read(xe); writeln('Введите y');read(ye); writeln('Введите n');read(ne); assign(f,'position.txt'); rewrite(f); if ne>kol then writeln('Такой координаты нет.Добавьте.') else begin pos:=first; k:=1; while (pos^.next<>nil) and (not eof(f)) do if k=ne then begin pos^.infx:=xe; pos^.infy:=ye; writeln(f,pos^.infx,pos^.infy); end else begin inc(k); pos:=pos^.next; readln; end; end; close(f); Сообщение отредактировано: Tribunal - 16.05.2006 10:05 -------------------- irreparabilium felix olivio rerum
|
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 1:34 |