Изучи предложенный программный код и определи недостающие действия спрайта в сценарии. Спрайт: Кот Действие: 1. Постоянно двигается от края до края, пока не нажата клавиша «Пробел». 2. Каждую секунду спрайт клонирует самого себя. 3. При достижении края спрайт отталкивается и движется в обратном направлении. 4. Считает количество клонов. 5. При нажатии клавиши «Пробел» озвучивает количество клонов и останавливает все действия.
var a: array[1..n] of integer; kOdd, e, i: integer;
begin Randomize; kOdd := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(20) + 1; a[i] := e; if (e mod 2) <> 0 then kOdd := kOdd + 1; write(e:3) end; writeln; writeln('Количество нечетных элементов - ', kOdd) end.
Тестовое решение: Исходный массив 9 2 1 18 17 16 11 15 15 13 Количество нечетных элементов - 7
program ex2;
const n = 10;
var a: array[1..n] of integer; kNeg, e, i: integer;
begin Randomize; kNeg := 0; write('Исходный массив '); for i := 1 to n do begin e := Random(21) - 10; a[i] := e; if e < 0 then kNeg := kNeg + 1; write(e:4) end; writeln; writeln('Количество отрицательных элементов - ', kNeg); end.
Тестовое решение: Исходный массив -9 -1 -7 -4 8 -4 1 -1 -7 0 Количество отрицательных элементов - 7
program ex3;
const n = 10;
var a: array[1..n] of integer; e, i: integer;
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(20); write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] mod 2 = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(11) + -5; write(a[i]:4) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 0 then a[i] := 1; write(a[i]:4) end; writeln; end.
begin Randomize; write('Исходный массив '); for i := 1 to n do begin a[i] := Random(10) + 1; write(a[i]:3) end; writeln; write('Результирующий массив '); for i := 1 to n do begin if a[i] = 3 then a[i] := 5; write(a[i]:3) end; writeln; end.
Const m = 10; var a,b: array[1..m] of integer; c: array[1..m*2] of integer; i, j, k: integer; begin write ('Первый массив: '); for i := 1 to m do begin a[i] := random(100); c[i]:=a[i]; write (a[i],'; '); end; writeln; write ('Второй массив: '); for i := 1 to m do begin b[i] := random(100); c[i+m]:=b[i]; write (b[i],'; '); end; writeln; for i := 1 to 2*m-1 do for j := 1 to 2*m-i do if c[j] > c[j+1] then begin k := c[j]; c[j] := c[j+1]; c[j+1] := k end; write ('Отсортированный третий массив: '); for i := 1 to 2*m do write (c[i],'; '); end.
Озвучание количества пройденных шагов до нажатия клавиши " Пробел"
подсчет количества пройденных шагов до нажатия клавиши " Пробел"