10 REM Program za metodu najmanjih kvadrata
20 REM Unos broja tacaka
30 PRINT "unesite broj tacaka"
35 INPUT N
40 REM Kreiranje nizova za x i y
50 DIM X(N), Y(N)
60 REM Unos podataka
70 FOR I = 1 TO N
80 INPUT X(I)
90 INPUT Y(I)
100 NEXT I
110 REM Racunanje sume X, Y, X*X, X*Y
120 S1 = 0: S2 = 0: S3 = 0: S4 = 0
130 FOR I = 1 TO N
140 S1 = S1 + X(I)
150 S2 = S2 + Y(I)
160 S3 = S3 + X(I) * X(I)
170 S4 = S4 + X(I) * Y(I)
180 NEXT I
190 REM Racunanje parametara m (koeficijent pravca) i b (slobodan clan)
200 M = (N * S4 - S1 * S2) / (N * S3 - S1 * S1)
210 B = (S2 - M * S1) / N
220 REM Ispis rezultata
230 PRINT "jednacina prave je: y = "; M; " * x + "; B
240 END
