zadach2.BAS

{* Задача3 *}

REM basic

' Заданы числа: A, B, H>0, E>0. Необходимо вычислить значения функции
' Лапласа на отрезке [A, B] с шагом H, и погрешность вычислений не должна превышать E.


 10 CLS
 20 PRINT "ВВЕДИТЕ НИЖНЮЮ ГРАНИЦУ A"
 30 INPUT A
 40 PRINT "ВВЕДИТЕ ВЕРХНЮЮ ГРАНИЦУ B"
 50 INPUT B
 60 PRINT "ВВЕДИТЕ ШАГ ВЫЧИСЛЕНИЯ H"
 70 INPUT H
 80 PRINT "ВВЕДИТЕ ТОЧНОСТЬ E"
 90 INPUT E
100 D=1/SQR(2*3.14159)
110 CLS
120 PRINT "ТАБЛИЦА ЗНАЧЕНИЙ ФУНКЦИИ ЛАПЛАСА"
130 For I=1 To 3
140  L2=(I-1)*20+3
150  PRINT TAB(L2); "X";
160  PRINT TAB(L2+10); "Ф(X)";
170 Next I
180 N=INT((B-A)/H)+1
190 L=0
200 For I = 0 To N
210  X=A+I*H
220  GoSub 330
230  L=L+1
240  If L>3 Then GoTo 290
250  L4=(L-1)*20+1 
260  PRINT TAB(L4)
270  PRINT Using "#.##";X; TAB(L4+7); Using "#.########";F;
280  GoTo 310
290  L=0
300  GoTo 230
310 Next I
320 GoTo 450
330 {LAPLACE
}340 C=-X*X/2
350 Y=X
360 N1=1
370 F=X
380 Y=Y*C/N1
390 Y1=Y/(2*N1+1)
400 F=F+Y1
410 N1=N1+1 
420 If (ABS(Y1)>E) Then GoTo 380
430 F=F*D
440 Return
450 End