Temat: Praca→α
Prace ozanczamy litera W.
W=|F→| * |Δr→| * cosα(F→,Δr→)
W=F * Δr
F=ma * Δr
W=m*(vk-vp)/Δt(vpΔt+(vk-vp)/Δt*Δt2/2)
W=m*(vkvp-vp2+(vk2-2vkvp+vp2)/2)
W=m*(-vp2+vk2/2+vp2/2)
W=m(-vp2/2+vk2/2)
W=mvk2/2-mvp2/2
W=Ekkonc – Ekpocz = ΔEk
Jesli v=const, ΔEk=0
W=Fciezkosci (h1-h2)*cos 0
W=mgh1-mgh2
Ek=mgh
W=Ekkonc-Ekpocz
W=ΔEk
Q-cieplo
Q=E=W
Temat: Pęd
Pęd oznaczamy p→
p→=mv→[kg*m/s]
a→=F→/m
Δv→/Δt=F→/m
Δv→*m=F→*Δt
(vk→-vp→)*m=F→*Δt
mvk→-mvp→=F→*Δt
pk→-pp→=F→*Δt
Δp→=F→*Δt
Zasada zachowania pędu:
W układzie izolowanym mechanicznie, pęd całkowity układu (suma pędów ciał wchodzących w skład układu) jest stały.
Czyli: pc→=const, czyli Δp→=0, czyli pc koncowy=pc poczatkowy
Przedstawienie trzeciej zasady dynamiki Newtona za pomocą zasady zachowania pędu:
Δp1→=F21→*Δt
Δp2→=F12→*Δt
Oba równania dodajemy stronami:
Δp1→+Δp2→=(F21→+F12→)Δt
F21→=-F12→
Δp→=(-F12→+F12→)Δt
Δp→=0*Δt
Δp→=0
Temat: Tarcie
Na cialo spoczywajace, badz poruszajace is epo jakiejs powierzchni oddzialywuje sila tarcia. Ma ona przeciwny zwrot do zwrotu predkosci tego ciala.
Maksymalna wartosc tarcia statycznego Tsmax = μs*N (wspolczynnik tarcia * sila nacisku)
Jakie musi byc minimalne nachylenie rowni pochylej zeby cialo na ktore oddzialywuje sila tarcia o wspolczynniku tarcia μsi masie M zjechalo na dol?
Tsmax=mgsinα
M*N=mgsinα
N=mgcosα (wiemy to z lekcji o rowni pochylej)
M*mgcosα=mgsinα
M=-sinα/cosα=tgα
Temat: Rownia pochyla
Na cialo na rowni pochylej odzialywuja rozne sily:
Sila Ciezkosci skierowana w dol – mg – rozdzielamy ja na dwie skladowe – prostopadla i rownolegla do powierzchni rowni (Fy i Fx
Sila Reakcji podloza skierowana prostopadle do powierzchni rowni pochylej (R)
Sila Tarcia (T)
Fx/mg=sinα
Fy/mg=cosα
Fy=Fn (sila nacisku)
R=Fy
R=mg*cosα
Jakie jest przyspieszenie klocka zjezdzjacego z rowni?
a=Fx/m=mg*sinα/m=g*sinα
Zadanie: wylosowac tablice liczb wiekszych od 1 i uporzadkowac ja w sposob: najpierw liczby podzielne przez 2, potem przez 3, potem dalej.
program dupa;
const
n=10;
type
tablica=array [1..n] of integer;
function szukaj(A:tablica; j:integer; d:integer):integer;
var
b:boolean;
begin
b:=true;
while b do
if A[j] mod d = 0 then
begin
szukaj:=j;
b:=false
end
else
begin
j:=j+1 ;
if j>n then
begin
szukaj:=0;
b:=false
end;
end;
end;
procedure Losuj(var A:tablica);
var
i:integer;
begin
for i:=1 to n do
A[i]:=random(100)+2;
end;
procedure Wypisz(var A:tablica);
var
i:integer;
begin
for i:=1 to n do
write(A[i],' ');
writeln;
writeln;
end;
procedure sortuj(var A:tablica);
var
d, zap,i,j,m:integer;
b:boolean;
begin
i:=1;
d:=2;
while i<n do
begin
j:=szukaj(A, i, d);
If j=0 then
d:=d+1
else
begin
zap:=A[i];
A[i]:=A[j];
A[j]:=zap;
i:=i+1
end;
end;
end;
var
A,B,C:tablica;
begin
randomize;
Losuj(A);
Wypisz(A) ;
sortuj(A);
wypisz (A)
end.