Содержание
- 2. Массивы Массив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом. Особенности:
- 3. Объявление массивов определить имя массива определить тип массива определить число элементов выделить место в памяти Массив
- 4. Массивы Объявление: Ввод с клавиатуры: Поэлементные операции: const N = 5; var a: array[1..N] of integer;
- 5. Неуправляемое движение (0,0) X Y (getmaxx,getmaxy) 8 (xp, yp)
- 6. Движение пули procedure polet (var xp,yp: integer; hp:integer; animp: AnimatType); begin PutAnim(xp,yp,animp,BkgPut); yp := yp-hp; if
- 7. Процедура Game procedure game; begin initdata; putimage(0,0,p3^,0); putAnim(x,y,anim,TransPut); putAnim(x2,y2,anim2,TransPut); repeat Neupr(x,y,hx,hy,sh,vs,anim); if keypressed then begin ch:=readkey;
- 8. Проверка попадания If proverka(x,y,xp,yp) then begin PutAnim(xp,yp,animp,BkgPut); PutAnim(x,y,anim,BkgPut); pula:=false; xp:=getmaxx; yp:=getmaxy; x:= random(getmaxx-sh); y:= 50; end;
- 9. Массив пуль repeat Neupr(x,y,hx,hy,sh,vs,anim); if keypressed then begin ch:=readkey; if ch=#0 then upr(x2,y2,sh2,vs2,h,anim2) else if ch=probel
- 11. Скачать презентацию