Физика сабаќтарында компьютерді пайдалану

жүктеу/скачать 2,49 Mb.

бет	9/59
Дата	04.11.2022
өлшемі	2,49 Mb.
	#47406

1 ... 5 6 7 8 9 10 11 12 ... 59

Байланысты:
¨À?Ò?áå îáëûñòû? êàäðëàð á³ë³êò³ë³ã³í àðòòûðó æ?íå ?àéòà äàÿðëàó

While . . . Do қайталану операторын пайдала -найық
For ... To қайталану операторын пайдаланайық
If ...Then i шартты операторын пайдаланайық

v_t =v₀t, s=.
Дене бірқалыпты айналғанда бұрыштық жылдамдығы:

Мұнда t уақыт өткеннен кейінгі бұрылу бұрышы,
Айналып тұрған дененің бұрыштық жылдамдығы мен сызықтық жыл- дамдығының өзара байланысы

Мұнда v –сызықтық жылдамдық, -бұрыштық жылдамдық, R нүкте айналып жүрген шеңбердің радиусы.
* бұрыштық жылдамдық және секундына айналу санымен n өзара байланысы :
=2,
Нүктенің центргетартқыш үдеуі:
a =
Мұнда R-нүкте айналып жүрген шеңбердің радиусы, v және сызықтық және бұрыштық жылдамдық.
Бірқалыпты түзусызықты қозғалыс
Бір қалыпты түзу сызықты қозғалыстағы дененің жылдамдығы v болса, t уақыт өткеннен кейінгі жүрілген жолын табу программасын жазайық .
Ол үшін While . . . Do қайталану операторын пайдала -найық
Program BxrQTSQz;
Var t:Integer;
V:Real;
Begin
Writeln('t men v_nw engxz');Readln(t,v);
t:=0;
While t<=10 Do
Begin
Writeln(('S='),(v*t):4:1);
t:=t+1;
End;
Readln;
End.

Программаны жүргізіп, жүрілген жолдың уақытқа тәуелділігінің кестесін алайық. t=3, V=12.1

1 S=12.1
2 S=24.2
3 s=26.3
Енді программада For ... To қайталану операторын пайдаланайық

Program BxrQalQF;

Var n,t:integer;
V,s:real;
Begin
Writeln(‘n,v-nw engxz’);Readln(n,v);
For t:= to n Do
Begin
S:=v*t;
Writln(s:4:1);end;
Readln;
End.
Программаны жүргізіп, жүрілген жолдың уақытқа тәуелділігінің кестесін алайық. t=3, V=12.1
1 S=12.1
2 S=24.2
3 s=26.3

Бірқалыпты үдемелі түзусызықты қозғалыс

1-есеп. Бір қалыпты үдемелі қозғалыстағы дененің бастапқы жыл- дамдығы v_o үдеуі а>0 (a<0) болса t уақыт өткеннен кейінгі жүріл- ген жолы мен жылдамдығын табу программасын жазайық.

Программада If ...Then i шартты операторын пайдаланайық

program BxrQQoz1;
var t:integer;
a,v0,vt,s:real;
Begin
Write('a,t,v0 engxz');Readln(a,t,v0);
If a>0
Then vt:=v0+a*t;s:=a*sqr(t)/2+V0*t ;
If a<0 Then vt:=v0+a*t;s:=a*sqr(t)/2+V0*t;
Writeln(vt:4:1,' ',s:6:1) ;
end.
Программаны жүргізіп, нәтижесін алыңыз .

2-есеп. Бір қалыпты үдемелі (кемімелі) қозғалыстағы дененің бастапқы жылдамдығы v_o үдеуі а>0 (a<0) болса, t уақыт өткеннен кейінгі жүрілген жолын табу программасын жазайық.
program BxrQQozW;
var t,a,v0:real;
Begin
Writeln('a men v0-dw engxz'); Readln(a,V0);
t:=0;
while t<=10 Do
Begin
Writeln(t:2:1, ' ',((v0+a*t)):4:1,' ',(a*sqr(t)/2+v0*t):4:1);
t:=t+1;
end;
end.

Программаны жүргізіп, жүрілген жолдың уақытқа тәуелділігінің кестесін алыңыз

Енді программада For ... To қайталану операторын пайдаланайық

Program BxrQYQF;
var n,t:integer;
a,v0:real;
Begin
Writeln('n,a men v0-dw engxz'); Readln(n,a,V0);
For t:=1 To n Do
Begin
Writeln(t:2, ' ',((v0+a*t)):4:1,' ',(a*sqr(t)/2+v0*t):4:1);
end;
Readln;
end.

3-есеп. Бақылау басталған кезде автобус пен мотоциклдің арақашық- тығы s болған еді және автобус координаталар басын (x₀₁=0) өтіп ба- ра жатты. Денелер жылдамдықтарының проекциялары Vx және V_y -ке тең. Мыналарды табу керек: 1)автубуc пен мотоцилдің кездесу уа -қыты t-ны; 2) олардың кездесетін жерінің x координатасын; 3) автобус бус координаты x₁ (S=x₀₂ – x₀₁) болатын нүктені өтетін уақыттағы мото- циклдің координаты x₂ қандай болу керек?
Есепті шешудің математикалық модулі
1.Автобустың қозғалыс теңдеуі: x₁(t)=V_1x * t ;
2.Мотоциклдің қозғалыс теңдеуі: x₂(t)=s+v_2t*t
3. Кездесу уақыты. Олар кездескенде x₁=x₂ тең, сондықтан
V_1x * t =s+v_2t*t теңдеуінен табылады яғни t:=s/(v1-v2).

Автубуз пен мотоциклдің кездесу уақыты x₁=x₂ =x

Екенін ескере отырып абтобустың қозғалыс теңдеуінен табамыз x:=(v₁*s)/(v₁-v₂).
5.Автобустың координатасы x₁ болса, мотоцикл координатасы
x₂ : x2:=s+(v2*x1)/v1.
Есепті шешудің физикалық және математикалық қойылу жолдарын пайдаланып Паскаль тілінде бағдарлама құрамыз.
Program avtobus1;
var
s,x,x1,x2:real;
v1,v2,t:real;
begin
read(s,v1,v2,x1);
t:=s/(v1-v2);
Writeln('t=',t:4:2);
x:=(v1*s)/(v1-v2);
Writeln('x=',x:4:2);
x2:=s+(v2*x1)/v1;
Writeln('x2=',x2:4:2);
readln;
end.
Есеп нәтижесін тексеруге арналған тест:

Avtobus.in	Avtobus.out
0 14 18 630 -283 -18 -12 -364 148 17 21 548	0.00 0.00 810 47.2 -849 -526 -37 -629 825

жүктеу/скачать 2,49 Mb.

Достарыңызбен бөлісу:

1 ... 5 6 7 8 9 10 11 12 ... 59