Помогите решить задачи Pascal, благодарность будет )
1. По экрану двигается окружность так, что центр объекта перемещается по контру треугольника.
то есть тут нужно написать код программы, чтобы нарисовалась окружность и ее центр двигался по контру треугольника
2. Аналогичная, но по сложнее. По экрану движутся два квадрата с разными скоростями в одном направлении, исчезая в конце траектории, возникают в начале, до нажатия кнопки на клавиатуре с лево на право
Кто решит правильно отблагодарю, о благодарности договоримся)
Модератор Al-Yena выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: Темы с просьбами (подыскать задания, предложить рефералов, найти выполнителя услуг и пр.) помечаются автором темы как «Реклама». В противном случае автору темы выписывается штраф и дается бан на 1 день без снятия рейтинга. Модератор Al-Yena заблокировал пользователю rust90 доступ к данному разделу до 18.04.2013 17:30 по причине: темы с просьбами. предупреждение было
Темы с просьбами (подыскать задания, предложить рефералов, найти выполнителя услуг и пр.) помечаются автором темы как «Реклама». В противном случае автору темы выписывается штраф и дается бан на 1 день без снятия рейтинга.
PROGRAM PRG;
USES GRAPH, CRT;
VAR DRIVER, MODE, X,Y,I,T,X0^ INTEGER;
BEGIN
DRIVER := DETECT;
INITGRAPH(DRIVER, MODE, 'C:\BP\BGI')
SETFILLSTYLE(1,1);
FLOODFILL(1, 4, 1);
T:= -4;
X0 := 10;
SETCOLOR(0);
FOR I:= 1 TO 155 DO
BEGIN
T:=T+2;
X0:=X0+4;
X:= X0 + TRUNC(COST(T/10)*I);
Y := GETMAXY DIV 2-TRUNC(SIN(T/10)*I)
SETFILLSTYLE(1, 10);
FILLELLIPSE(X,Y,20,20);
DELAY(100);
END;
REPEAT
UNIT KEYPRESSED;
CLOSEGRAPH
END.
Одинаковые окружности, центры которых лежат на горизонтально вращающемся отрезке, левый конец которого закреплен. Отредактируй под логику своей задачи и все.