Учеловека имеется 3 белых носка, 3 черных носка, 3 розовых носка и 3 голубых носка в комоде. какое минимальное число носков он должен вытащить из своего комода, чтобы составить три целых пары, если учесть, что он не может видеть их цвет?
211
331
Ответы на вопрос:
Program corablik; uses graph, crt; var grdriver: integer; grmode: integer; errcode: integer; x,y,y0,a,b: integer; {a,b-переменные для линии моря, чтоб они не зависели от х,у} procedure more(a,b: integer); begin moveto(0,y0); setcolor(blue); for a: =0 to 680 do{слева направо рисуем синусоиду синего чвета} begin b: =y0-round(sin(a*pi/180)*30); {30-коэффициент масштабирования по оси х, чем больше, тем волна круче} lineto(a,b); end; end; begin grdriver : = detect; initgraph(grdriver, grmode, '..\bgi'); errcode : = graphresult; y0 : = 250; if errcode = grok then begin x: =600; while x> =0 do{лучше использовать цикл while, можно менять величину шага, что тоже влияет на скорость и частоту смены картинки} begin cleardevice; more(a,b); {рисуем волну} setcolor(white); {устанавливаем цвет кораблика} y: =y0-40-round(sin(x*pi/180)*30); {движемся по волне} moveto(x - 40, y + 20); lineto(x - 20, y + 40); lineto(x + 20, y + 40); lineto(x + 40, y + 20); lineto(x - 40, y + 20); moveto(x + 15, y + 20); lineto(x + 15, y - 40); lineto(x - 20, y + 20); lineto(x + 15, y + 20); delay(100); {нормальная скорость, если модули *.tpl не глючные как у вас, время должно быть в миллисекундах, а не в каких-нибудь наносекундах} x: =x-2; {шаг движения} end; end else writeln('graphics error: ', grapherrormsg(errcode)); settextstyle(0,0,3); {устанавливаем стиль шрифта} cleardevice; setcolor(red); outtextxy(200,240,'rejs zavershen! '); {выводим надпись} readln; closegraph; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
аня20041416.12.2022 07:13
-
NikoBellic9907.08.2022 01:20
-
sanya320217.06.2020 06:54
-
Виктория247804.08.2021 17:25
-
Даниэла210625.05.2021 12:51
-
alkozlovtzeva05.04.2020 09:17
-
Ірина42801.01.2020 03:11
-
оля203627.05.2022 16:40
-
Scorpionoid02.12.2020 17:08
-
blackmaster244209.06.2020 15:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.