Здесь мы займемся анимацией нашего персонажа. В оргинальной игре Flappy Bird для птички использовалось три картинки: птичка с поднятым крылом, птичка с расправленным крылом, птичка с опущенным крылом. Эти картинки быстро сменяли друг друга и создавалось ощущение, что птица машет крыльями.

Мы подготовили для вас эти картинки: fpbs1.png, fpbs2.png, fpbs3.png соответственно. Картинки должны меняться в следующем порядке: 1,2,3,2,1,2,3,2,1,2... и т. д.

Очевидно, имеет смысл положить все три картинки в список и менять таким образом.

Кстати, для одного из возможных решений можно использовать функцию shift, которую мы писали в пятом модуле. Она сдвигает список по кругу на steps шагов.

Пользоваться ей необязательно, но она делает код гораздо более красивым. Так что на всякий случай оставлю ее тут.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен