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

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

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

1 ... 46 47 48 49 50 51 52 53 ... 59

ОПТИКА 1.

Табу керек: Конденсатор астарларының арасындағы ортаның диэлектлік өтімділігін, яғни -?

Шешуі. Конденсатордыңразрядталуы басталған мезетте кон-турдың толық энергиясы -ге тең.
Кедергі R=0 болғандықтан,
электромагниттік тербелістердің энергиясы сақталады

= +
Есептің шарты бойынша:
= , Cu² = Li² C=; C=
,
program Elek11_1_4;
Uses crt;
const Pi=3.14;
Ro=8.85E-12;
Var S,d1,L,Im,Um,C,Fs:real;
Begin
clrscr;
Writeln('S=20,d1=1,L=31E-3,Im=2E-3,Um=10,Xkontur=0 engxz');
Readln(S,d1,L,Im,Um);
C:=(sqr(Im)*L)/sqr(Um); Writeln('C=',C);
Fs:=(C*d1)/(Ro*S); Writeln('Fs=',Fs:1);
Readln;
End.
S=20,d1=1,L=31E-3,Im=2E-3,Um=10,Xkontur=0 engxz
20 1 31E-3 2E-3 10
C= 1.2400000000E-09
Fs= 7.0E+00
1.1.5. Идеал тербелмелі контурда кернеудің максимал мәні Um=
28 B, ток күшінің ең үлкен мәні Im=1.4 A. Катушканың магнит өрісінің энергиясы конденсатордың электр өрісінің энергиясына тең болған мезеттегі контурдағы кернеу мен ток күші қандай?
Катушканың магнит өрісінің энергиясы конденсатордың электр өрісінің энергиясына тең болса W_э =W_м , яғни
CU²= LI²I==0,99, U===19,8, (1A;19.8B).

ОПТИКА

1. Температурасы Т λ толқындағы қара дененің шығаратын энер -гиясы E=(2 ·π ·c·h)/ λ⁵ (e^(ch/BhT)-1) формуласы мен есептеледі. Есептеу программасын жазайық . Мұнда :
C=2,997924 ·10⁸ –жарық жылдамдығы ;
H=6,6252 · 10^-34 –Планк тұрақтысы;
B=5,6687 ·10^-8 –Больцман тұрақтысы .
Формула өте құрделі болғандықтан есептеуді тізбек тей жүргіземіз: әуелі 2 π ch, онан соң ch/BhT, сонан соң e^(ch/BhT), әрі қарай λ⁵ ақы -рында Е мәнін табамыз. Осы процестің шешімін блок-схема тілінде жа- зылуы:

M: =C h

N: =2·π · M

K: =M/ B λ T

R: = e^K-1

S: = λ⁵

E: =N/(S+R)

Күрделі процесті жай процеске мүшелеп бөлуге болады, яғни әр блокта бір операцияны қолдануға болады
Тек енгізу, шығару және меншіктеу блоктарын жазу блок-схема тілінде іске асыруға болады.
C*H=M, 2*PI*M=N, M/(B*L*T)=K, EXP(K)-1=R, L⁵=S, N/(S+R)=E деп белгілейміз .

program Energie(input,output);

const pi=3.1459;
c=2.997924E+8;
h=6.6252E-34;
b=5.6687E-8;
var M,N,K,R,S,E,T,L:real;{L-tolqwnnwnh yzwndwghw}
begin
read(L,T);
M:=C*H;
N:=2*PI*M;
K:=M/(B*L*T);
R:=EXP(K)-1;
S:=L*L*L*L*L;
E:=N/(S+R);
WRITE('ENERGIE TENH',E,'DJOULGE')
END.
Программаны жүргізіп Т=20 , λ= 3.0E-7 берсек
ENERGIE TENH 3.9052113499E –31 DJOULGE деген нәтиже аламыз.

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

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

1 ... 46 47 48 49 50 51 52 53 ... 59