Похожие работы на «Построение кубического сплайна функции»

Построение кубического сплайна функции
Математика, Построение кубического сплайна функции, Реферат ... y,double* &x1, double* &y1) { int c=16, z=16; char key='0'; while (key != 27) { if (key == 75) c = c+4; if (key == 72) z = z+4; if (key == 77) c = c-4 ...
... z = z+4; c = c+4; } if (c < 0) c = 0; if (z < 0) z = 0; if (key == 's') paint(c,z,2,n,dop,x,y,x1,y1); else if (key == 'f') paint(c,z,1,n,dop,x,y,x1,y1 ...


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале)
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... b*c),k1,320- round((240+x1)/10)+round(b*c),240); if 320-round((240+x1)/10)+a*c<80 then begin funktia(1,-240/c,240/c,y,1,f1); k:=round(240-(y[0])*c) ...
... c,y,1,f1); k1:=round(240-(y[1])*c); line(560,k1,560,240); end; for x:= -240 to 240 do begin funktia(1,x-1,x,y,c,f1); k1:=round(240-(y[1])*c); if ((x/c ...


Программирование на языке Турбо Паскаль
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... x+b.x; c.y:=a.y+b.y; c.z:=a.z+b.z; end; procedure VecSub(a,b: tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure ...
... tItem); var h: integer; begin h:=hash(item.key); while t[h].key<>empty do h:=hash2(h,item.key); t[h].key:=item.key; t[h].data:=item.data; end; Пусть в ...


Разработка автоматизированной системы учета выбывших из стационара
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... MIN(y1+count+2,20) x2=MIN(x1+maxlen+3,77) RESTORE SCREEN FROM SCREEN @ y1,x1,y2,x2 BOX singl+fon2 @ y2,x1,y2+3,x2 BOX "+-+°--L°"+fon2 saycent(y2+1,x1, ...
... p_vid-1) otherwise endcase enddo fclose(fh) set key 24 set key 18 set key 3 set key 29 set key 30 set key 31 setcolor(col_sv) RETURN(0) function mod ...


VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования
Программирование и комп-ры, VB, MS Access, VC++, Delphi, Builder C++ принципы(технология), алгоритмы программирования , Рефераты ... i - 1) j = i Do List(j - 1) = List(j) j = j + 1 If j > max Then Exit Do Loop While List(j) < tmp List(j - 1) = tmp last_swap = j - 1 i = j + 1 Else i ...
... i + 1) j = i Do List(j + 1) = List(j) j = j - 1 If j < min Then Exit Do Loop While List(j) > tmp List(j + 1) = tmp last_swap = j + 1 i = j - 1 Else i ...


Разработка алгоритмов и программ выполнения операций над последовательными и связанными представлениями структур данных [нестрогое соответствие]
Программирование и комп-ры, Разработка алгоритмов и программ выполнения операций над последовательными и связанными представлениями структур данных, ... N_X*(N_Y+N_Z);} inline double fun2(double N_X,double N_Y,double N_Z){ return N_X+N_Y;} inline double fun3(double N_X,double N_Y,double N_Z){ return N_ ...
... int *Pro = new int [Mas_y]; for (int j = 0; j< Mas_y; j++){ int k = random(Mas_y); int flag = 0; for (int j = 0; j< m; j++)if (k==Pro[j]) flag = 1; if ...


Передача информации из компьютерного рентгеновского томографа TOMOSCAN SR7000 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из компьютерного рентгеновского томографа TOMOSCAN SR7000 , Рефераты ... flags == 0) { getij(X0,Y1,Z0,&x0,&y0); getij(Cx,Y1,Z0,&x1,&y1); LineByte(ud->img,x0,y0,x1,y1,ud->edgcol); getij(X0,Y1,Cz,&x1,&y1); LineByte(ud->img,x0 ...
... LineByte(ud->img,x0,y0,x1,y1,ud->edgcol); getij(X1,Cy,Z1,&x1,&y1); LineByte(ud->img,x0,y0,x1,y1,ud->edgcol); getij(X1,Y0,Cz,&x1,&y1); LineByte(ud->img ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... 1 to m do begin x:=hr[i].getx; y:=hr[i].gety; j:=0; repeat j:=j+1; -14- x1:=tg[j].getx; y1:=tg[j].gety; if ((x=x1)and(y=y1))or((x=x1)and(y=y1-1))or((x ...
... 1)) or((x=x1-1)and(y=y1+1))or((x=x1+1)and(y=y1))or((x=x1+1)and (y=y1-1))or((x=x1+1)and(y=y1+1))then begin tg[j].done; tg[j].init(0,0,0,0); tt:=tt+1; k ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... i:=1 to m do begin x:=hr[i].getx; y:=hr[i].gety; j:=0; repeat j:=j+1; x1:=tg[j].getx; y1:=tg[j].gety; if ((x=x1)and(y=y1))or((x=x1)and(y=y1-1))or((x= ...
... 1)) or((x=x1-1)and(y=y1+1))or((x=x1+1)and(y=y1))or((x=x1+1)and (y=y1-1))or((x=x1+1)and(y=y1+1))then begin tg[j].done; tg[j].init(0,0,0,0); tt:=tt+1; k ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... zs:=' '; Loc(22,12); Wrt('-'); Repeat WaitKey; Loc(21+y,12); If (Key<>chr(13))And(Key<>chr(27)) Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin ...
... zs:=' '; Loc(26,12); Wrt('-'); Repeat WaitKey; Loc(25+y,12); If (Key<>chr(13))And(Key<>chr(27)) Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin ...