Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Бросание мяча

Содержание

Задача № 1Попадет ли мяч, брошенный со скоростью 18 м/сек под углом 300, в площадку длиной 1 м, находящуюся на расстоянии 25 метров?Допущения:мяч считаем материальной точкойускорение свободного падения g=9,8 м/с2движение по оси OY равноускоренноесопротивление воздуха не
Исследование физических моделей. Движение тела, брошенного под углом к горизонту. Задача № 1Попадет ли мяч, брошенный со скоростью 18 м/сек под углом Разработка моделиГрафическая модель Разработка моделиФормальная (математическая) модель:при заданных v0 и аy=0 (площадка на земле) Разработка моделиФормальная (математическая) модельУсловие попадания мяча в площадку Компьютерный экспериментНаписать программу, с помощью которой представить рисунок площадки, траекторию движения мяча, Анализ результатовСделать вывод «Попадание», «Недолет», «Перелет». uses crt, graph;var  driver,n:integer; str:string;  x,y,v,a,l,kx,ky,s:real;beginreadln(s,L,v,a); driver:=detect; initgraph(driver,n,'e:\bp\bgi');kx:=600/(s+l);  ky:=80;line(20,440,620,440); Задача № 2Написать программу, которая позволит для каждого значения скорости бросания мяча Задача 2.Тело брошено с некоторой высоты с начальной скоростью, направленной под углом program polet;uses crt, graph;const g=9.8;var  driver,n,a,nmax:integer; s:string;  h,x,y,v,kx,ky,l,max:real;function y1(a:integer; x:real):real;	begin		y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));	end;function driver:=detect;initgraph(driver,n,'e:\bp\bgi');kx:=20; setbkcolor(9);ky:=20;line(20,240,620,240);y:=0; x:=0;while (y>-h) and (not keypressed) dobeginfillellipse(20+trunc(kx*x),240-trunc(ky*y),5,5);delay(5000);x:=x+0.1; y:=y1(nmax,x);end;str((x-0.1):4:1,s);outtextxy(240,320,s);readln;closegraph;end. Задача 3Определить начальные параметры (скорость и угол), при которых следует бросить баскетбольный Sh1h0 h1 program polet;uses crt, graph;const g=9.8;var  driver,n,a,m,p,nmax:integer; h1,t,t0,y0,h0,x,x1,y,y2,v,kx,ky,s:real;function y1(a:integer; x:real):real;	begin	y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));	end;beginreadln(v,h0,h1,s); y2:=0;for a:=1 driver:=detect; initgraph(driver,n,'e:\bp\bgi');kx:=20; ky:=20; line(20,240,620,240);y:=0; x:=0; m:=0;while (m=0) and (not keypressed) dobeginfillellipse(20+trunc(kx*x),240-trunc(ky*y),5,5);delay(5000); y2:=y;x:=x+0.1; y:=y1(nmax,x);if (y-y2
Слайды презентации

Слайд 2 Задача № 1

Попадет ли мяч, брошенный со скоростью

Задача № 1Попадет ли мяч, брошенный со скоростью 18 м/сек под

18 м/сек под углом 300, в площадку длиной 1

м, находящуюся на расстоянии 25 метров?
Допущения:
мяч считаем материальной точкой
ускорение свободного падения g=9,8 м/с2
движение по оси OY равноускоренное
сопротивление воздуха не учитываем
движение по оси OX равномерное



Слайд 3 Разработка модели
Графическая модель

Разработка моделиГрафическая модель

Слайд 4 Разработка модели
Формальная (математическая) модель:
при заданных v0 и а


y=0

Разработка моделиФормальная (математическая) модель:при заданных v0 и аy=0 (площадка на земле)

(площадка на земле)


Слайд 5 Разработка модели
Формальная (математическая) модель


Условие попадания мяча в площадку

Разработка моделиФормальная (математическая) модельУсловие попадания мяча в площадку   S

S < x

S+L

где S- расстояние до площадки, L - длина площадки

Если xS+L, то «перелет».


Слайд 6 Компьютерный эксперимент
Написать программу, с помощью которой представить рисунок

Компьютерный экспериментНаписать программу, с помощью которой представить рисунок площадки, траекторию движения

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

сделать текстовый вывод «Попадание», «Недолет», «Перелет».

Слайд 7 Анализ результатов
Сделать вывод «Попадание», «Недолет», «Перелет».

Анализ результатовСделать вывод «Попадание», «Недолет», «Перелет».

Слайд 8
uses crt, graph;
var driver,n:integer; str:string; x,y,v,a,l,kx,ky,s:real;
begin
readln(s,L,v,a);

uses crt, graph;var driver,n:integer; str:string; x,y,v,a,l,kx,ky,s:real;beginreadln(s,L,v,a); driver:=detect; initgraph(driver,n,'e:\bp\bgi');kx:=600/(s+l); ky:=80;line(20,440,620,440); line(20+trunc(kx*s),438,20+trunc(kx*(s+l)),438);x:=0; y:=0.1;

driver:=detect; initgraph(driver,n,'e:\bp\bgi');
kx:=600/(s+l); ky:=80;
line(20,440,620,440); line(20+trunc(kx*s),438,20+trunc(kx*(s+l)),438);
x:=0; y:=0.1;
while (y>0) and

(not keypressed) and (kx*x<=620) do
begin
fillellipse(20+trunc(kx*x),438-trunc(ky*y),5,5);
delay(5000);
x:=x+0.1; y:=(x*v*v*sin(2*a*pi/180)-9.8*x*x)/(2*v*v*sqr(cos(a*pi/180)));
end
if (x>=s-0.1) and (x<=s+L+0.1) then outtextxy(320,240,'popal')
else if x>s+l+0.1 then outtextxy(320,240,'perelet')
else outtextxy(320,240,'nedolet');
readln;
closegraph;
end.

Слайд 9 Задача № 2

Написать программу, которая позволит для каждого

Задача № 2Написать программу, которая позволит для каждого значения скорости бросания

значения скорости бросания мяча получить с заданной точностью диапазон

значений углов, обеспечивающих попадание мяча в площадку.

Получить диапазон углов для начальных параметров к задаче 1.

Слайд 10 Задача 2.
Тело брошено с некоторой высоты с начальной

Задача 2.Тело брошено с некоторой высоты с начальной скоростью, направленной под

скоростью, направленной под углом к горизонту. Определить угол, при

котором дальность полета будет максимальной. Нарисовать траектории движения при разных параметрах.

Слайд 13 program polet;
uses crt, graph;
const g=9.8;
var driver,n,a,nmax:integer; s:string;

program polet;uses crt, graph;const g=9.8;var driver,n,a,nmax:integer; s:string; h,x,y,v,kx,ky,l,max:real;function y1(a:integer; x:real):real;	begin		y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));	end;function t(v,h:real;a:integer):real;begint:=(2*v*sin(a*pi/180)+sqrt(sqr(2*v*sin(a*pi/180))+8*g*h))/2/g;end;beginreadln(v,h);max:=0;for

h,x,y,v,kx,ky,l,max:real;
function y1(a:integer; x:real):real;
begin
y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));
end;
function t(v,h:real;a:integer):real;
begin
t:=(2*v*sin(a*pi/180)+sqrt(sqr(2*v*sin(a*pi/180))+8*g*h))/2/g;
end;
begin
readln(v,h);
max:=0;
for a:=0 to 90 do
begin
l:=v*t(v,h,a)*cos(a*pi/180);
if

l>max then begin max:=l; nmax:=a end;
end;
writeln(max:5:1,' ', nmax);
readln;

Слайд 14 driver:=detect;
initgraph(driver,n,'e:\bp\bgi');
kx:=20; setbkcolor(9);
ky:=20;
line(20,240,620,240);
y:=0; x:=0;
while (y>-h) and (not keypressed) do
begin
fillellipse(20+trunc(kx*x),240-trunc(ky*y),5,5);
delay(5000);
x:=x+0.1;

driver:=detect;initgraph(driver,n,'e:\bp\bgi');kx:=20; setbkcolor(9);ky:=20;line(20,240,620,240);y:=0; x:=0;while (y>-h) and (not keypressed) dobeginfillellipse(20+trunc(kx*x),240-trunc(ky*y),5,5);delay(5000);x:=x+0.1; y:=y1(nmax,x);end;str((x-0.1):4:1,s);outtextxy(240,320,s);readln;closegraph;end.

y:=y1(nmax,x);
end;
str((x-0.1):4:1,s);
outtextxy(240,320,s);
readln;
closegraph;
end.


Слайд 15 Задача 3
Определить начальные параметры
(скорость и угол), при

Задача 3Определить начальные параметры (скорость и угол), при которых следует бросить

которых следует бросить баскетбольный мяч в кольцо.
Мяч должен попасть

в кольцо «навесом», т.е. после прохода наивысшей точки.
Начальная скорость до 15 м/с, кольцо на высоте 3м, расстояние до кольца от 0,5 до 7 м, точность попадания 20 см.

Слайд 18 program polet;
uses crt, graph;
const g=9.8;
var driver,n,a,m,p,nmax:integer; h1,t,t0,y0,h0,x,x1,y,y2,v,kx,ky,s:real;
function

program polet;uses crt, graph;const g=9.8;var driver,n,a,m,p,nmax:integer; h1,t,t0,y0,h0,x,x1,y,y2,v,kx,ky,s:real;function y1(a:integer; x:real):real;	begin	y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));	end;beginreadln(v,h0,h1,s); y2:=0;for a:=1

y1(a:integer; x:real):real;
begin
y1:=x*sin(a*pi/180)/cos(a*pi/180)-(g/2*x*x)/(v*v*sqr(cos(a*pi/180)));
end;
begin
readln(v,h0,h1,s); y2:=0;
for a:=1 to 89 do begin

t:=s/v/cos(a*pi/180); t0:= (s+0.1)/v/cos(a*pi/180);
y:=h0+v*t*sin(a*pi/180)-g*sqr(t)/2;
y0:=h0+v*t1*sin(a*pi/180)-g*sqr(t)/2;
if (abs(y-h1)<=0.1)and(y-y0>0) then nmax:=a;
end;
writeln(nmax); readln;


  • Имя файла: brosanie-myacha.pptx
  • Количество просмотров: 127
  • Количество скачиваний: 0