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;

Положительные качества данного гаджета:

Устройство беспроводное, что позволяет подключать его к телефону или компьютеру без специальных кабелей.

Естественным и самым используемым качеством является полная совместимость очков со всеми современными игровыми приставками, что собственно и поднимает популярность виртуальных очков.

Кроме игры такие очки подразумевают просмотр фильмов, новые работы, открываются новые возможности для моделирования и рисования.

Чаще всего внешний вид гаджета выглядит очень интересно и привлекательно.

Отличное погружение в цифровую реальность дополняется качественным звуком и датчиками которые синхронизируют физические движения с виртуальными.

Отрицательные качества данного гаджета:

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

Если установлены не все датчики, значительно ухудшается синхронизация, что сказывается на комфорте пользователя. Как правило, это возможно в более дешевых моделях.

Для полноценной хорошей работы подключать устройство нужно только к мощным компьютерам или телефонам.

Правильно настроить гаджет при необходимости сможет далеко не каждый.

Иногда маленькое расширение мешает получить качественное изображение.

.вьвьвтьвьвьв. о росер я не могу найти в интернете и не только в начале следующей недели я буду в Москве и Московской области в городе Москва российская федерация я не могу найти в интернете и не только в понедельник в первой половине дня в неделю по в неделю по в неделю по в неделю по в неделю по в неделю по в неделю по секрету скажу вам честно я уже говорил я видел я видел я могу в любой в понедельник утром в субботу вечером не только щяс не только начал с того времени

Объяснение:

пошел я на лево так что ты это не рофл на 4 точки зрения это не рофл я не могу найти в интернете и не только в том же пошла искать и я люблю я видел я могу в любой день кроме понедельника в неделю в отпуск