Кто сможет сделать 12 таких лабораторных за деньги? Пишите в ВП
ПРИМЕР
lab1:
111 DATA 2,4,6,8,10,12,14,16,18,20
222 DATA -10.29,-6.64,-6.70,-4.31,-3.26,-2.20,-0.08,1.50,3.81,3.62
n = 10
DIM x(n), y(n)
RESTORE 111
FOR i = 1 TO n
READ x(i)
NEXT i
RESTORE 222
FOR i = 1 TO n
READ y(i)
NEXT i
FOR i = 1 TO n
a = a + x(i)
b = b + y(i)
c = c + x(i) * y(i)
d = d + (x(i)) ^ 2
NEXT i
dd = (d * n) - (a * a)
da = (c * n) - (a * b)
db = (d * b) - (a * c)
PRINT da, dd
a = da / dd
b = db / dd
SCREEN 12
WINDOW (-1, -20)-(25, 10)
LINE (0, -12)-(0, 20)
LINE (-2, 6)-(22, 6)
FOR i = 1 TO n
CIRCLE (x(i), y(i)), .2, 12
NEXT i
FOR px = 0 TO 20 STEP .05
py = a * px + b
PSET (px, py)
NEXT px
PRINT "y="; a; "*x"; b
Раздел: Магия, последний комментарий: 15.05.2012 12:28 Тема закрыта автором