- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Основы языка Pascal. Стрельба в играх презентация
Содержание
- 1. Основы языка Pascal. Стрельба в играх
- 2. Массивы Массив – это группа однотипных
- 3. Объявление массивов определить имя
- 4. Массивы Объявление: Ввод с клавиатуры: Поэлементные операции:
- 5. Неуправляемое движение (0,0) X Y (getmaxx,getmaxy) 8 (xp, yp)
- 6. Движение пули procedure polet (var xp,yp: integer;
- 7. Процедура Game procedure game; begin
- 8. Проверка попадания If proverka(x,y,xp,yp) then
- 9. Массив пуль repeat
- 10. Задание 1. Добавить полет пули и
Массивы Массив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом. Особенности: все элементы имеют один тип весь массив имеет одно имя все элементы расположены в
Слайд 2
Массивы
Массив – это группа однотипных элементов, имеющих общее имя и расположенных
в памяти рядом.
Особенности:
все элементы имеют один тип
весь массив имеет одно имя
все элементы расположены в памяти рядом
Примеры:
список учеников в классе
квартиры в доме
школы в городе
данные о температуре воздуха за год
Особенности:
все элементы имеют один тип
весь массив имеет одно имя
все элементы расположены в памяти рядом
Примеры:
список учеников в классе
квартиры в доме
школы в городе
данные о температуре воздуха за год
Слайд 3
Объявление массивов
определить имя массива
определить тип массива
определить число элементов
выделить место в памяти
Массив
целых чисел:
Размер через константу:
Размер через константу:
имя
начальный индекс
конечный индекс
тип
элементов
var A: array[1.. ] of integer;
const N=5;
N
var A : array[ 1 .. 5 ] of integer ;
Слайд 4Массивы
Объявление:
Ввод с клавиатуры:
Поэлементные операции:
const N = 5;
var a: array[1..N] of
integer;
i: integer;
i: integer;
for i:=1 to N do begin
write('a[', i, ']=');
read ( a[i] );
end;
for i:=1 to N do a[i]:=a[i]*2;
Слайд 6Движение пули
procedure polet (var xp,yp: integer; hp:integer; animp: AnimatType);
begin
PutAnim(xp,yp,animp,BkgPut);
yp
:= yp-hp;
if (yp <= 0) then pula:=false else
PutAnim(xp,yp,animp,TransPut);
UpdateGraph(updatenow);
delay(1);
end;
if (yp <= 0) then pula:=false else
PutAnim(xp,yp,animp,TransPut);
UpdateGraph(updatenow);
delay(1);
end;
Слайд 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;
if ch=#0 then
upr(x2,y2,sh2,vs2,h,anim2) else
if ch=probel then
begin
xp:= x2; yp:= y2;
putanim(xp,yp,animp,TransPut);
pula:=true;
end;
end;
if pula then polet(xp, yp, hp, animp);
if proverka(x,y,x2,y2)then hy:=-hy;
until ch=esc;
end;
putAnim(x2,y2,anim2,TransPut);
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 then
begin
xp:= x2; yp:= y2;
putanim(xp,yp,animp,TransPut);
pula:=true;
end;
end;
if pula then polet(xp, yp, hp, animp);
if proverka(x,y,x2,y2)then hy:=-hy;
until ch=esc;
end;
Слайд 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;
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 then
for i:=1 to n do
if pula[i]=false then
begin
xp[i]:= x2; yp[i]:= y2;
putanim(xp[i],yp[i],animp,TransPut);
pula[i]:=true; break;
end;
end;
for i:=1 to n do
if pula[i] then polet(xp[i], yp[i], hp, animp);
if proverka(x,y,x2,y2)then hy:=-hy;
until ch=esc;
begin
ch:=readkey;
if ch=#0 then
upr(x2,y2,sh2,vs2,h,anim2) else
if ch=probel then
for i:=1 to n do
if pula[i]=false then
begin
xp[i]:= x2; yp[i]:= y2;
putanim(xp[i],yp[i],animp,TransPut);
pula[i]:=true; break;
end;
end;
for i:=1 to n do
if pula[i] then polet(xp[i], yp[i], hp, animp);
if proverka(x,y,x2,y2)then hy:=-hy;
until ch=esc;
