|
0 / 0 / 0
Регистрация: 09.09.2010
Сообщений: 18
|
|
| 1 | |
из паскаля в С++05.01.2011, 18:26. Показов 422. Ответов 0
Метки нет (Все метки)
Program PR53; Uses Graph; const n=20; Var k,d,m,x1,x2,y1,y2:integer; s1,s2,s3,s4,x0,y0,a:real; x,y:array[1..n] of integer; Begin d:=detect; for k:=1 to n do read(x[k],y[k])); for k:=1 to n do Writeln('x['k:2,']='x[k],' y['k:2,']=',y[k]); readln; s1:=0; s2:=0; s3:=0; s4:=0; For k:=1 to n do Begin s1:=s1+x[k]; s2:= s2+y[k]; s3:=s3+sqr(x[k]); s4:=s4+x[k]*y[k]; end; x0:=s1/n; y0:=s2/n; a:=(s4-n*x0*y0)/(s3-n*sqr(x0)); writeln ('Аппроксимирующая функция имеет вид'); writeln (' ','y-',y0:9:4,'=',a:6:4,'x-',x0:6:4); readln; x1:=0; y1:=Round(y0+a*(x1-x0)); x2:=400; y2:=Round(y0+a*(x2-x0)); readln; InitGraph(d,m,' '); Moveto(0,0); Line(0,0,600,0); Line(0,0,0,500); For k:=1 to n do PutPixel (x[k],y[k],14); Line(x1,y1,x2,y2); Readln; CloseGraph; End.
0
|
|
(| 05.01.2011, 18:26 | |
|
Ответы с готовыми решениями:
0
Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона Из Паскаля в с++ с паскаля на Си++ |
| 05.01.2011, 18:26 | |
| 05.01.2011, 18:26 | |
|
Помогаю со студенческими работами здесь
1
из паскаля в С++ С Паскаля на С++
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
