CLSe = .0001PRINT TAB(20); "labrab 2"PRINT " x S yt p kol"FOR x = .2 TO 1 STEP .1 n = 1: S = 0: kol = 0: sm = 1: np = 1 DO np = np * x V = sm * np / n S = S + V n = n + 1 kol = kol + 1 sm = -sm LOOP UNTIL ABS(V) <= e yt = LOG(1 + x) P = ABS((S - yt) * (yt)) * 100 PRINT USING "#.# ##.#### ##.#### ##.#### ##"; x; S; yt; P; kolNEXT xEND
Результат выполнения программы: labrab 2 x S yt p kol0.2 0.1823 0.1823 0.0002 50.3 0.2624 0.2624 0.0002 70.4 0.3365 0.3365 0.0007 80.5 0.4054 0.4055 0.0012 100.6 0.4700 0.4700 0.0009 140.7 0.5306 0.5306 0.0019 180.8 0.5878 0.5878 0.0023 270.9 0.6419 0.6419 0.0027 51