Составьте программу в паскале которая имитирует движения дельфина или кораблика по волнам. или что-то в этом роде.

184

245

Посмотреть ответы 2

Ответы на вопрос:

TheDrever

Информатика

4,4(87 оценок)

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.

kolya1325

Информатика

4,6(89 оценок)

Program u4i_div_and_mod; var a,b,c,z,x,v: integer; begin readln(a,b,c); if((a + b)> c) and ((a + c )> b) and ((c + b )> a) then begin writeln('yes'); if(a = b ) and( b = c ) then writeln('ravnostor'); if(a = b) and (b < > c) then writeln('ravnobedr'); if(a < > b ) and ( a < > c ) and (b < > c) then writeln('raznost'); end else writeln('no'); readln; end.cорри за ин-яз просто кодировки разные,исправь где нужно)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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