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.
Одинаковые окружности, центры которых лежат на горизонтально вращающемся отрезке, левый конец которого закреплен. Отредактируй под логику своей задачи и все.
Раздел: Программирование, ответов: 16, последний комментарий: 17.04.2013 16:38
Существуют деньги или нет не важно, люди изначально не идеальны, у них есть пороки, и деньги тут вовсе не при чем, они всего лишь средство для достижения целей. А на счет идеального общества, оно не возможно в этих условиях, мы живем, хотим мы этого или нет, по законам природы, выживает сильнейший, это обеспечивает наше развитие, можно сказать это толчок к нашей эволюции. Да и потом, какой смысл жить в мире без проблем? Ожидание неизбежной смерти?
Раздел: Психология, ответов: 37, последний комментарий: 17.04.2013 18:03
съездил в ИФНС, получил письмо из робокассы об активации всех платежных опций, сижу пишу код для автоматизации работы сайта и этой системы. Порисовал на своей стене, получилось фигово. Открыл счет в банке, для вебмани. Настроил утром код для восприятия реф ссылок на сайте фирмы. УСТАЛ! ХОЧУ СПАТЬ!
Раздел: Юмор, ответов: 17, последний комментарий: 16.04.2013 07:05
Опрос чтобы определиться за сколько местные готовы работать, а не подсчет их капиталов. Ну а на счет заработка здесь, меня что-то не впечатлили эти копеечки. Вообще суммы менее 500р за час работы меня не заводят :)