Pascalabc.netкак заставить ёлку двигаться вправо до конца экрана по нажатию клавиши е вот сама программа: program anima; uses thermal,graphabc; var k,x,y,x1,y1,x2,y2,readkey: integer; begin setwindowwidth(1000); setwindowheight(800); line(0,700,1500,700); floodfill(5,710,clmoneygreen); kqad(50,700,450,400); floodfill(60,600,clpurple); trngl(250,300,450,400,50,400); floodfill(250,310,clmaroon); kqad(80,420,160,560); line(120,420,120,560); line(80,490,160,490); floodfill(85,495,clcyan); floodfill(150,500,clcyan); floodfill(100,430,clcyan); floodfill(150,430,clcyan); kqad(200,700,300,500); floodfill(250,600,clsilver); ball4(290,610,4); floodfill(291,610,clyellow); floodfill(800,100,clpink); kqad(320,420,400,560); line(360,420,360,560); line(320,490,400,490); floodfill(325,495,clcyan); floodfill(390,500,clcyan); floodfill(340,430,clcyan); floodfill(390,430,clcyan); tree(800,450,850,500,750,500); floodfill(800,460,clgreen); floodfill(800,520,clgreen); floodfill(800,580,clgreen); kqad(780,590,820,700); floodfill(800,600,clmaroon); ball4(900,100,100); floodfill(950,100,clyellow); где thermal - это мой модуль, а tree - сама ёлкамодуль -unit thermal; uses graphabc; procedure ball4(x,y,r: integer); begin circle(x,y,r); end; procedure kqad(x,y,x1,y1: integer); begin rectangle(x,y,x1,y1); end; procedure trngl(x,y,x1,y1,x2,y2: integer); begin line(x,y,x1,y1); line(x1,y1,x2,y2); line(x2,y2,x,y); end; procedure tree(x,y,x1,y1,x2,y2: integer); begin pen.color: =(clgreen); trngl(x,y,x1,y1,x2,y2); trngl(x,y+50,x1+20,y1+50,x2-20,y2+50); trngl(x,y+100,x1+30,y1+90,x2-30,y2+90); end;
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998
Для данной сортировки используем алгоритм сортировки слиянием
В начале разбиваем арбузы на 2 группы по 2Каждую группу взвешиваем и сортируем (т.е. всего 2 взвешивания)Теперь собираем вместе, сравниваем сначала более легкие арбузы и находим самый легкий (всего 3 взвешивания)Теперь сравниваем тяжелый арбуз, что в группе с самым легким и более легкий из другой группы, и определяем второй по легкости (всего 4 взвешивания)Потом взвешиваем оставшиеся арбузы и докладываем их по порядку (всего 5 взвешивания)