Физика сабаќтарында компьютерді пайдалану
Массасы 1 кг отын толық жанғанда бөлінетін жылу мөлшерін көр- сететін физикалық шаманы отынның меншікті жану жылуы дейді
жүктеу/скачать 2,49 Mb.
|
¨À?Ò?áå îáëûñòû? êàäðëàð á³ë³êò³ë³ã³í àðòòûðó æ?íå ?àéòà äàÿðëàó
| Массасы 1 кг отын толық жанғанда бөлінетін жылу мөлшерін көр- сететін физикалық шаманы отынның меншікті жану жылуы дейді.
program JanuJluw ; Uses crt; const OqDahrx=0.38E+7; QyrfOtwn=1.0E+7; Torf=1.4E+7; TasKomxr=2.7E+7; Spirt=2.7E+7; Antracit=3.0E+7; AfacRomr=3.4E+7; TabiGaz =4.4E+7; Mynai = 4.4E+7; Benzin= 4.6E+7; Kerosin=4.6E+7; Sutek = 12E+7; Var OqD,QOt,Tr,TsK,Spt,An, AfK,TVG,Mn,Bnz,Krs,Stk, m:real; Begin
Writeln('massanw m= engxz'); readln(m); OqD:=OqDahrx*m;QOt:=QyrfOtwn*m;Tr:= Torf*m; TsK:= TasKomxr*m; Spt:=Spirt*m; An:= Antracit*m; AfK:= AfacRomr*m;TVG:= TabiGaz*m;Mn:= Mynai*m; Bnz:=Benzin;Krs:=Kerosin; Stk:=Sutek; Writeln('OqD=', OqD,'':3,'QOt=',QOt,'':2,'Tr=',Tr); Writeln('TsK=', TsK,'':3,'Spt=', Spt,'':2,'An=', An); Writeln('AfK=',AfK,'':2,'TVG =',TVG,'':2,'Mn =', Mn ); Writeln('Bnz=',Bnz,'':2,'Krs=',Krs,'':2,'Stk=',Stk); End. massanw m= engxz 1 OqD= 3.8E+06 QOt= 1.0E+07 Tr= 1.4E+07 TsK= 2.7E+07 Spt= 2.7E+07 An= 3.0E+07 AfK= 3.4E+07 TVG = 4.4E+07 Mn = 4.4E+07 Bnz= 4.6E+07 Krs= 4.6E+07 Stk= 12E+07 Ваннаға 80°С-тағы 20 л ыстық су және 5°С-тағы 10 л су құямыз. Суды араластырып, қоспаның температурасын өлшейміз. Ол 55°С-қа тең бо- лады. Ыстық судың берген жылу мөлшерін және суық судың алған жы-лу мөлшерін анықтаңыздар. program JberuAlu ; Uses crt; const c1=4200; c2=4200; Tf=1E+3 ; Var V1,V2,t1,t2,t,m1,m2,Q1,q2:real; Begin
Writeln('V1=2E-2,V2=1E-2,t1=80,t2=5,t=55 engxz'); Readln(V1,V2,t1,t2,t); m1:=Tf*V1; Q1:=(c1*m1*(t1-t))/1E+3; m2:=Tf*V2; Q2:=(c2*m2*(t-t2))/1E+3; Writeln('Q1=',Q1,'':2,'Q2=',Q2); End. V1=2E-2,V2=1E-2,t1=80,t2=5,t=55 engxz 2E-2 1E-2 80 5 55 Q1= 2.1000000000E+03 Q2= 2.1000000000E+03 Тапсырма Есепте Паскаль тіліндегі программасы берілген, математикалық тілдегі тұжырымдамасын жазыңыз. Program OtwnEner; const Q=2.7E+7; Var M,QQ:Real; Begin Writeln('M-nw engxz');Readln(M); QQ:=M*Q; Writeln('':2,Q,'':2,M); End. M=3.2E+7 мәнін берсек нәтижесі: 2.7E+7 3.2E+7 Есепте Паскаль тіліндегі программасы берілген, математикалық тілдегі тұжырымдамасын жазыңыз. Program JwluMohl; const C=4200; Var M,T1,T2,Q:Real; Begin Writeln('M,T1,T2-lerdx engxz');Readln(M,T1,T2); Q:=C*M*(T2-T1); Writeln(C:4,'':2,M:4:1,'':2,T1:2:1,'':2,T2:2:1); End. M=10 ,T1=10,T2=15 мәндерін берсек нәтижесі: 4200 10.0 10.0 15.0 жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|