Составьте программу в паскале которая имитирует движения дельфина или кораблика по волнам. или что-то в этом роде.
252
353
Ответы на вопрос:
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.
Const nm = 50; {максимальная длина массива} var i, n: integer; a: array[1..nm] of integer; begin write('введите количество элементов в массиве: '); readln(n); write('введите элементы массива через пробел '); for i : = 1 to n do begin read(a[i]); end; i : = n; while (a[i] < = 0) and (i > 0) do dec(i); if i > 0 then writeln('последний положительный элемент a[', i, ']=', a[i]) end. тестовое решение: введите количество элементов в массиве: 5 введите элементы массива через пробел 3 -3 5 -5 -4 последний положительный элемент a[3]=5
Популярно: Информатика
-
rafik32122.07.2021 09:59
-
bellatrissa2130.09.2021 22:57
-
креореглеонл20.07.2022 04:43
-
anyanaffanya25.10.2022 08:35
-
Agarin19.03.2022 01:33
-
mariauizly8823.06.2023 18:07
-
igvolume1103.09.2021 05:34
-
Kojjd11.10.2022 00:26
-
Лера1501200308.01.2023 11:07
-
Света2017723.05.2022 22:47