Похожие работы на «Программирование элементов разветвляющейся структуры»

Программирование элементов разветвляющейся структуры
Программирование и комп-ры, Программирование элементов разветвляющейся структуры, Методические указания ... for j := 1 to m do begin sum := 0; for i := 1 to n do begin sum := sum + d[i, j]; end; z[j] := sum; end; min := 1; for i := 1 to m do if z[min] > z[i] ...
... b := 0 z[i,j] := random(60)-30 n,m z[i,j] < 0 Randomize; sum / b sum := sum + z[i,j] b := b + 1 j=1;n;1 1 1 sum := sum + d[i,j] j=1;m;1 I=1;n;1 d[i,j] ...


Решение обратной задачи вихретокового контроля
Физика, Решение обратной задачи вихретокового контроля , Диплом и связанное с ним ... apSpline : begin writeln('SPLINE'); getSiFunction := siSpline; end; apExp : begin writeln('EXP'); getSiFunction := siExp; end; apPWCon : begin writeln ...
... tmp, z ); end; mulComp( tmp, 2, z ); deltaComp( y, z ); func( xmax, z ); deltaComp(y,z); mulComp( y, hh/3, z ); eqlComp( result, z ); end; end;{I = h/ ...


Программа оптимизации рискового портфеля [нестрогое соответствие]
Экономико-математическое моделирование, Программа оптимизации рискового портфеля, Реферат ... i]+e[i,j]; end; end; for i:=1 to n do {формирование вектора-столбца Bm} begin for j:=1 to n do begin Bm[i]:=Bm[i]+m[j]*e[i,j]; end; end; for i:=1 to n ...
... меньше произведения СКО этих бумаг! '); goto out4; end; b[i,j]:=z; b[j,i]:=z; if i<>j then begin E[i,j]:=0; end; end; end; writeln; ma:=0; for i:=1 to ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... i;g:=j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then ...
... i,s]=-1 then for j:=s to m do STM[i,j]:=STM[s,j]+STM[i,j] end;end; end; writeln('Матрица главных сечений'); for i:=1 to n do for j:=1 to m-s do MGS[i, ...


Нахождение опорного плана транспортной задачи [нестрогое соответствие]
Программирование и комп-ры, Нахождение опорного плана транспортной задачи, Курсовая ... n:=3; SetLength(a,m); for i:= 0 to m-1 do a[i]:=0; SetLength(b,n); for j:= 0 to n-1 do b[j]:=0; SetLength(c,m); for i:= 0 to m-1 do SetLength(c[i],n) ...
... исходного массива aij = a i min - A min b j min = b j min - A min A i min Исключаем строку i min B j min=0 Исключаем строку j min 4 4 Заносим в ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; ...
... if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... if t>0 then begin x:=0; FOR I:=1 TO T DO begin J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0, ...
... key:=true; break; end; end; if j>=m then begin j:=0; y1:=y1-1; end; if m<=0 then break; until x1=m end; end; end; {*} procedure tmor;{мор травоядных} ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... K=',k:3,' L=',l:3,' M=',m:3); writeln; writeln('':25,'Введите вещественные числа A,B,C,D,E,F:'); readln(a,b,c,d,e,f); writeln('':20,'стандартная форма ...
... i:=1 to n do begin d:=d+2; for j:=1 to n do begin b[j,i]:=d+a[j,i]; gotoxy(i*6,j+3); writeln(a[j,i]:3:1) end; end; writeln; writeln('преобразованная ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... корреляций R=(1/n)*Z'*Z-} for j:=1 to m do for i:=1 to m do begin s:=0; for k:=1 to n do s:=s+z[k,j]*z[k,i]; r[j,i]:=s/n end; {-выводим матрицу R- ...
... a_1[i,j]:=-a[i,j]; {-===находим матрицу значений главных компонент F===-} for i:=1 to m do for j:=1 to n do begin s:=0; for k:=1 to m do s:=s+a_1[i,k] ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... mcost):longint; {Минимальная стоимость по классам} var i:integer; m:longint; begin m:=1000000000; for i:=1 to Mclass do if (m>a[i]) and (a[i]>0) then ...
... 1440)) mod 1440; delay:=(delay div 1440)+((a.time+(delay mod 1440)) div 1440); while delay+b.day>DayInMonth(b.month,b.year) do begin delay:=delay-1- ...