Вопрос по информатике:
Как сделать в паскале движущееся тело по дуге? В моем случае я хочу сделать, что человек кидает камень и он летит по дуге за счет притяжения к земле и в конечном итоге падает
- 04.12.2017 04:03
- Информатика
- remove_red_eye 9971
- thumb_up 9
Ответы и объяснения 1
Var
procedure kamen(x, y:integer);
{здесь рисуете свой камень. вместо координат х и у}
begin
{я опишу только анимацию камня. с графикой давно не работал-успел забыть}
x:=300;
y:=400;
while y700 do
if y<200 then begin
x:=x+15;
y:=y+10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа нужно подогнать на практике
- 05.12.2017 03:00
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.