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

Презентация: Бросание мяча
1 из 19
Ваша оценка презентации
Оцените презентацию по шкале от 1 до 5 баллов
  • 1
  • 2
  • 3
  • 4
  • 5
5.0
1 оценка

Комментарии

Нет комментариев для данной презентации

Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.


Добавить свой комментарий

Аннотация к презентации

Скачать презентацию (0.98 Мб). Тема: "Бросание мяча". Предмет: физика. 19 слайдов. Добавлена в 2016 году. Средняя оценка: 5.0 балла из 5.

  • Формат
    pptx (powerpoint)
  • Количество слайдов
    19
  • Слова
    физика
  • Конспект
    Отсутствует

Содержание

  • Презентация: Бросание мяча
    Слайд 1

    Исследование физических моделей. Движение тела, брошенного под углом к горизонту. Бросание мяча в площадку

    1 pptcloud.ru

  • Слайд 2

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

  • Слайд 3

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

  • Слайд 4

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

  • Слайд 5

    5 Разработка модели Формальная (математическая) модель Условие попадания мяча в площадку S S+L, то «перелет».

  • Слайд 6

    6 Компьютерный эксперимент Написать программу, с помощью которой представить рисунок площадки, траекторию движения мяча, задавая все необходимые начальные параметры, сделать текстовый вывод «Попадание», «Недолет», «Перелет».

  • Слайд 7

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

  • Слайд 8

    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); 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=s-0.1) and (xs+l+0.1 then outtextxy(320,240,'perelet') else outtextxy(320,240,'nedolet'); readln; closegraph; end.

  • Слайд 9

    9 Задача № 2 Написать программу, которая позволит для каждого значения скорости бросания мяча получить с заданной точностью диапазон значений углов, обеспечивающих попадание мяча в площадку. Получить диапазон углов для начальных параметров к задаче 1.

  • Слайд 10

    Задача 2.

    Тело брошено с некоторой высоты с начальной скоростью, направленной под углом к горизонту. Определить угол, при котором дальность полета будет максимальной. Нарисовать траектории движения при разных параметрах.

  • Слайд 11
  • Слайд 12
  • Слайд 13

    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; 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; y:=y1(nmax,x); end; str((x-0.1):4:1,s); outtextxy(240,320,s); readln; closegraph; end.

  • Слайд 15

    Задача 3

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

  • Слайд 16

    S h1 h0

  • Слайд 17

    h1

  • Слайд 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 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) then nmax:=a; end; writeln(nmax); readln;

  • Слайд 19

    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) do begin fillellipse(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

Посмотреть все слайды

Сообщить об ошибке