Есть ответ 👍

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

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS