Az Eszterházy Károly Tanárképző Főiskola Tudományos Közleményei. 1989. 19/6. (Acta Academiae Paedagogicae Agriensis : Nova series ; Tom. 19)

Budai László: Egyszerű hőöszzegmérés

- 613 30 DIM Y/N/ 40 LET S=0

: LET P=0: LET Q=0 50 FOR 1=1 TO N 60 PRINT I;".

ADAT: " 70 INPUT "HOMERSEKLET C-fok: ":X/I/ 80 PRINT X/I/ C-fok " 90 LET X/I/

=1000 //X/I/+273

.15/ 100 LET S=S+X/I/ 110 NEXT I 120 LET S=S/N 130 FOR 1=1 TO N 140 LET K=X/I/-S 150 LET Q=Q+K * K 160 NEXT I 170 LET W=0:LET E=0:LET L=0:LET D=ü :LET P=0 180 FOR 1=1 TO N 190 PRINT 200 INPUT "1 NAPI PAROLGAS /gr./: ";Y/I/ 210 PRINT I;". ADAT: ",Y/I/;

M gr. 220 LET L=Y/I/ 230 LET L=LN /L/ 240 LET P=P+L 250 NEXT I 260 LET P=P/N 270 FOR 1=1 TO N 280 LET D= Y/I/ 290 LET D= LN /D/ 300 LET D=D-P 310 LET W=W+D * D 320 LET K=X/I/-S 330 LET E=E+K * D 340 LET H=W-E * E/Q 350 NEXT I 360 LET B=E/Q 370 LET A=P-B * S