Код будет в треде
var i : integer;
begin
SetWindowSize(500,500);
setBrushColor (Clwhite);
Circle (256,400,100);
setBrushColor (Clwhite);
Circle (256,300,75);
setBrushColor (Clwhite);
Circle (256,200,50);
sleep(250);
setBrushColor (Clblack);
Circle (235,190,7);
if i=0 then setBrushColor(clblack)
else setBrushColor(clwhite);
if i=0 then i:=1 else i:=0;
Circle (235,190,7);
setBrushColor (Clblack);
Circle (270,190,7);
end.
Меняй препода. Хорошему такой мудак не научит.
Да, не могу моргание сделать. Можешь помочь?
Дропай свою шарагу и учи js (язык Бога), очевидно же.
Нарисуй закрытие глаза и поочередно выводи открытые/закрытые в цикле бесконечном. Пиздос, я в 7 классе такое делал на информатике.
Сделай ему гифку в фотошопе и не мучайся. Заодно тонко потроллишь его.
Ну если знаешь как кодить, то рисуешь белый круг поверх глаз, рисуешь линию, потом обратно глаза
Он внатуре еблан, кто в коде рисует
Почему именно js?
напиши пожалуйста код
я вообще ебу как эту хуиту делать
Хотел забайтить шизов на "твой язык говно а мой не говно".
А так просто няшный приятный язык с динамической типизацией, фп и минимумом ебли, хорошо написанный код на котором читается практически как предложения на английском.
Есть и другие отличные языки, в большинстве случаев похуй что выбирать.
С меня как обычно нихуя
Подавись говном сдохни тупым..
Ебать даун. Я это делал в детском саду.
ДАУНИЧ 0 АЙКЮ, Я ДЕЛАЛ ЭТО В УТРОБЕ
бля, братан, уже читал, не помогает
Я это делал еще в папиных яйцах, тупидзе.
я делал это в небытие
А мне жаба нравится
мимоаутист
> сделать в паскале
> ебучего снеговика, с МОРГАЮЩИМИ глазами
Дропай эту шарагу, лол
Ну вот и помоги ОПу, умник.
Смотри, тебе нужно в область глаз поместить два объекта одновоеменно, а именно картинку открытых и закрытых глаз и сделать так чтобы в цикле их цвета (или параметр видимости, если он есть) менялись так чтобы если у одного чёрный, то к другого белый. А вообще у одногруппников спроси.
Или чтобы в цикле создавались открытые глаза, потом уничиожались, потом создавались закрытые и тоже уничтожались.
>
>>>259347105
>>259347252
вот так сделал,нужно теперь ебанный нос и рот поместить по центу
uses graphABC;
var i : integer;
begin
SetWindowSize(500,500);
setBrushColor (Clwhite);
Circle (256,400,100);
setBrushColor (Clwhite);
Line(200,250,100,100);
Circle (256,300,75);
Line(310,250,400,100);
setBrushColor (Clwhite);
Circle (256,200,50);
sleep(250);
setBrushColor (Clblack);
Circle (235,190,7);
if i=0 then setBrushColor(clblack)
else setBrushColor(clwhite);
if i=0 then i:=1 else i:=0;
Circle (235,190,7);
setBrushColor (Clblack);
Circle (270,190,7);
Line(320,140,340,140);
SetBrushColor(CLwhite);
SetBrushColor(Clred);
Line(320,140,340,140);
SetBrushColor(Clwhite);
Line(330,120,330,130);
Line(330,120,305,130);
Line(330,130,305,130);
end.
var i,j : integer;
begin
SetWindowSize(500,500);
//Нижний круг хуле
setBrushColor (Clwhite);
Circle (256,400,100);
//Средний круг хуле
//setBrushColor (Clwhite); //повтор нах
Circle (256,300,75);
//Верхний круг хуле
//setBrushColor (Clwhite); //повтор нах
Circle (256,200,50);
//Глаз левый
setBrushColor(clWhite);
Circle (235,190,7);
Circle (235,190,3);
//Глаз правый
//setBrushColor (Clblack); //повтор нах
Circle (270,190,7);
Circle (270,190,3);
for j:=1 to 12 do
begin
sleep(250);
//Меняет цвет левого глаза в зависимости от текущего цвета
if i=0 then
begin
setBrushColor(clblack);
Circle (235,190,7);
Circle (270,190,7);
end
else
begin
setBrushColor(clwhite);
Circle (235,190,7);
Circle (270,190,7);
setBrushColor(clblack);
Circle (235,190,3);
Circle (270,190,3);
end;
if i=0 then i:=1 else i:=0;
end;
setBrushColor(clWhite);
textout (100,190,'OP - HUI');
end.
от души
реально блять, спасибо огромное
В цикле:
Закрасить глаз
Нарисовать открытый
Задержка
Закрасить глаз
Нарисовать закрытый
Задержка
Поиграй временем задержки чтобы получилась "анимация".
Вариант через жопу, но если нельзя ничего кроме стандартных либ покатит.
Если сторонние либы можно - приготовь спрайты открытого, закрытого и пары промежуточных состояний глаза и показывай спрайты по кругу поверх готовой картинки.
Нас визитки заставляли рисовать. При том, что я на биолога учился.
Да образование в пизде, хуль тут говорить-то
> паскаль
шта?
Школьникам проще некуда код писать, а учителям влом менять учебную программу и гнать ссаными тряпками хотящих выебнуться школьников скачавших 10 библиотек с примером анимации 3д хуя, вот и знакомство с программированием у всех на паскале уже десятки лет.
это еще что в универах можно отучиться на програмиста практически не программируя
Я не поддерживаю использование паскаля в школе, но он закаляет дух. По многим параметрам лучше Питона (хотя по некоторым хуже).
Молодец анон, могёшь!
Я как-то хотел перекатиться с физики на информатику
Пишу на питоне, увлекаюсь дата-саенсом, конечно хуярить трансформеры с дата-пайплайны с флайвилами я не могу, но сделать ребятам болталку с нейронкой, или определялку что на картинке, да или графики в матплотлибе легко бы донес с интересом и увлеченностью. Так же мог бы делать что-угодно с малиной. Так же изучаю для себя свифт. Когда моя директриса решала СОЗДАТЬ ЙОБА МЛ ЛАБОЛАТОРИЮ, или наставить маков - я ей прямым текстом сказал что вот он я.
Я вполне неплохой препод, я знаю как объяснять, я не забыл что такое быть школьником, я сам это все изучил недавно. Но по позиции учебных заведений - препод по программированию должен быть программистом. Поэтому во всех шарагах ВСЕГДА висит 2-3 разные CS-специальности открытые, они все ждут когда какой-нибудь программист с 3мя годами(важно!) стажа дропнет свою галеру, зарплату свою омерзительно большую и пойдет за 30к преподавать пиздюкам код, при этом он внезапно приобретет навыки преподавательства, как находить подход, как объяснять что тебе очевидно тем кому не очевидно, да и вообще говорить как человек научится.
Спасибо короне - дропнул эту хуйню всю, образование у нас проебано