Страница 3 из 3

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 11:36
Romeo
Кстати, попробовал запустить твою программу - треугольники на месте, вроде, а дуги русуются вообще непонятно как и непонятно где, и какие-то они гигансткие, на весь экран. Мне кажется, ты неправильно интепретировала параметры функции Arc. Да и, если уж на то пошло, думаю, эту программу ты ни разу даже не запускала :)

В общем, я жду геометрических рассчётов (они, кстати, достаточно простые - уровень школьной геометрии... ну максимум 1-го курса ангема) и программки, которая использует выведенные формулы. Кстати, готов помочь даже с математикой. Спрашивай, если не понятно.

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 11:53
kthrj
Не не не , я запускала ее, и у меня все работало, и дуги так как есть..не на весь экран , а все подходит. В кусровой же не только программа нужна, а и то как она работает.

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 12:16
Romeo
Может у нас разные компиляторы Pascal (хотя я очень сомневаюсь, что в другом компиляторе всё будет работать иначе)? Я использовал старый Turbo Pascal под DOS. Там функция Arc имеет слудующие параметры:

Код: Выделить всё

Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word);
Теперь возьмём второй вызов Arc в твоей программе:

Код: Выделить всё

arc(50,300,20,270,180);
Получается, что стартовый угол - 20 градусов, конечный угол - 270 градусов. Это почти три четверти окружности!

Если учесть, что радиус окружности 180, а ордината центра всего 50, получается, что добрая половина дуги вылезет за границу экрана, и, как следствие, продолжится с противоположной стороны. Собственно, именно такую картину я и наблюдал.

Короче, ладно. На самом деле это всё не так важно. Действительно важно сейчас сделать рассчёты и составить формулы. Как продвигается работа?

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 12:38
Romeo
Так я, прочитал про PascalABC в интернете, и посмотрел, что у функции Arc там другой порядок параметров.

Код: Выделить всё

procedure Arc(x,y,r,a1,a2: integer);
Так что вопрос о неработающей программе снимается.

Как продвигается выведение формул?

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 12:52
Romeo
И это снова я. Не поленился, установил себе PascalABC и запустил в нём твою программу. Что-то в этих треугольниках мне всё равно не нравится :)

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 14:24
kthrj
Ахах, почему у меня все работает, а у вас нет. Сейчас работа по курсовой немного приостановлена, т.к идет подготовка к нг

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 31 дек 2014, 16:31
Romeo
Хорошо, тогда жду, когда вернёшься к курсовой.

Re: Помощь с курсовой. Вложенные треугольники.

Добавлено: 30 янв 2015, 16:54
Romeo
Неужто до сих пор от Нового года не отошла и не вернулась к курсовой? :)