Физика сабаќтарында компьютерді пайдалану
жүктеу/скачать 2,49 Mb.
|
¨À?Ò?áå îáëûñòû? êàäðëàð á³ë³êò³ë³ã³í àðòòûðó æ?íå ?àéòà äàÿðëàó
| Жауабы: =5,5.
Тізбек бөлігі үшін Ом заңы 1-есеп. Әр үйде 440 омдық K электр шамы ,100 омдық тоңазыт- қыш, 240 омдық теледидар қолданылады. Ом заңы негізінде тұрмыс- тық құралдардың электрлік шамаларын анықтаңдар. U=220в ,K=3,R1=440ом , RD=240 ом RT=100 ом Om zan'w tyrmwsta Program ParaQosu; Var R1,R2,R3,R4,R:Real; Begin WriteLn('R1,R2,R3,R4 -nx engxz');Readln(R1,R2,R3,R4); R:=(R1*R2*R3*R4)/(R1*R2*R3+R1*R2*R4+R1*R3*R4+R2*R3*R4); Writeln(R:3:2); end. Program OmTymwsta; Var K,R1,RT,RD,U,I1,IC,IT,ID,I:Real; Begin K:=3; U:=220;R1:=440;RD:=220;RT:=100; I1:=U/R1;IC:=K*I1;ID:=U/RD;IT:=U/RT; I:=IC+ID+IT; Writeln(I1:1:2,'':2,IC:1:2,'':2,ID:1:2,'':2,IT:1:2,'':2,I:1:2); End. Программаны жүргізіп K=3,U=220, R1=440,RD=220,RT =100 берсек Нәтиже 0.5 1.50 1.00 2.20 4.70 болуы тиіс. 5 A-lxk saqtandwrg'c qoiu kerek" 2-есеп. Амперметр схемада көрсетілгендей 0.5 А ток күшін көрсе- тіп тұр. Кедергілер арқылы жүретін ток күшін табу керек . Берілгені : I1=0.5 A,R1=2 ом, R2=4ом ,R3=1ом,R4=2ом ,R5=1ом Табу керек :U1,I2,RP,R,I3,U3,U4,I4,I5 Otkxzgxcterdx qosu Program OhtKQosu; Var I1,R1,R2,R3,R4,R5,u1,i2,rp,r,i3,u3,u4,i4,i5,ir:Real; Begin i1:=0.5;R1:=2;R2:=4;R3:=1;R4:=2;R5:=1; u1:=i1*r1; i2:=u1/r2;rp:=r4*r5/(r4+r5);r:=rp+r3;i3:=u1/r; u3:=i3*r3;u4:=rp*i3;i4:=u4/r4;i5:=u4/r5;ir:=i4+i5; Writeln(u1:1:2,'':2,i2:1:2,'':2,rp:1:2,'':2,r:1:2,'':2,i3:1:2); Writeln(u3:1:2,'':2,u4:1:2,'':2,i4:1:2,'':2,i5:1:2,'':2,ir:1:2); Readln; End. Программаны жүргізіп i1=0.5, R1=2,R2=4,R3=1,R4=2,R5=1 берсек Нәтиже 1.00 0.25 0.67 0.67 0.60 0.60 0.40 0.20 0.40 0.60 болуы тиіс. 3-есеп. Шағын өндірісте K электр шамы, L тоңазытқыш және бір электр пеші қолданылады делік. Осы кездегі белгісіз электр шама -ларды Ом заңы арқылы табудың жолын қарастырыңдар. Берілгені: RE=440 ом,K=10 ,PT=500 вт-тоңазытқыш қуаты, L=2 , U=220 в , PP=1000вт-электр пешінің қуаты. Om zan'w o'ndxrxste Program OmOhndxr; Var U,RE,PT,PP,IE,IK,IT,IL,IP,IM,I,K,L,M:Real; Begin Readln(K,L,M); U:=220;RE:=440;PT:=500;PP:=1000; IE:=U/RE;IK:=IE*K;IT:=PT/U;IL:=IT*L; IP:=PP/U;IM:=IP*M;I:=IK+IL+IM; Writeln(IE:1:2,'':2,IK:1:2,'':2,IT:1:2,'':2,IL:1:2,'':2,IP:1:2); Writeln(IM:1:2,'':2,I:1:2); Readln; End. A
R V2 U2 U1 V1 r0 L 4-есеп. Кернеуді 0-ден 10 в дейін 2 в адымымен өсіреміз. Кедергі 2ом тұрақты етіп қалдырамыз, осы тәуелділікті сипаттайтын програм - ма жазамыз. Program OmImUbai; Const R=2; Var N: Integer; I,U:real; Begin Writeln('N-dx engxz');Readln(N); Writeln('I ');Readln(I); For N:=1 To N do Begin U:=I*R; Writeln(I:3:1,'':2,U:3:1); end; end. жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|