Ответы на вопрос:
(0*0)*(0*0)*0 - достаточно последнего *0, чтобы не рассматривать остальное - результатом будет 0
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.
Популярно: Информатика
-
виктория12360016.05.2021 11:51
-
lida11318.04.2020 07:24
-
alibekovberkut21.06.2022 18:50
-
arsenlitvinov05.03.2022 16:08
-
amalia11031.01.2020 17:50
-
LilNooqas05.11.2021 09:58
-
sabina926223.06.2021 15:50
-
pat0545310.06.2022 21:38
-
найксон12.09.2022 23:42
-
maevava29.03.2022 08:48