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

[Romeo]

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

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

[kthrj]

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

[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, получается, что добрая половина дуги вылезет за границу экрана, и, как следствие, продолжится с противоположной стороны. Собственно, именно такую картину я и наблюдал.

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

[Romeo]

Так я, прочитал про PascalABC в интернете, и посмотрел, что у функции Arc там другой порядок параметров.

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

procedure Arc(x,y,r,a1,a2: integer);

Так что вопрос о неработающей программе снимается.

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

[Romeo]

И это снова я. Не поленился, установил себе PascalABC и запустил в нём твою программу. Что-то в этих треугольниках мне всё равно не нравится

[kthrj]

Ахах, почему у меня все работает, а у вас нет. Сейчас работа по курсовой немного приостановлена, т.к идет подготовка к нг

[Romeo]

Хорошо, тогда жду, когда вернёшься к курсовой.

[Romeo]

Неужто до сих пор от Нового года не отошла и не вернулась к курсовой?