Похожие работы на «Процедуры и функции»

Процедуры и функции
Программирование и комп-ры, Процедуры и функции, Контрольная ... end; j:=j+1; until j>Mx; i:=i+1; until i>Nx; end; Function Modul(var x:vector; Nx:integer):integer; begin M:=0; for k:=1 to Nx do M:=M+x[k]; M:=ABS(M) ...
... var Nx,Mx:integer; P:char) x [ i , j ] Nх,Mx НАЧАЛО j:=1 to Mx END END Modul:=M M:=ABS(M) M:=M+x[k] k:=k + 1 k:=1 Nc:=0 M:=Modul(c,Nc) END j:=j+1 i:=i ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... of real; var A:m; procedure vvod(m,n:integer;var x:m); var i,j: integer; begin writeln('введите элементы массива'); for i:=1 to m do for j:=1 to n do ...
... S2_Z4; type m=array[1..100] of integer; var A:m; procedure vvod(m:integer;var x:m); var i: integer; begin writeln('введите элементы массива'); for i: ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... 1; while (iN)do begin j:=i+1; while(j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; End; Function AddIfCan(mode ...
... Solve(i,j:integer;Var t:integer); var m:integer; begin If i>j then Writeln('No') else begin m:=(i+j)div 2; Inc(b); If A[m]X then Solve(i,m-1,t) else ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... r:citycode; function min(a:mcost):longint; {Минимальная стоимость по классам} var i:integer; m:longint; begin m:=1000000000; for i:=1 to Mclass do if ...
... InitGraph(grDriver, grMode,''); setcolor(12); outtextxy(200,0,'Карта транспортной схемы'); p:=1; while (p'') do begin setcolor(5); fillellipse(4*city[ ...


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная ... VAR_K,M,N:INTEGER; S,P:REAL; BEGIN WRITELN("Введите m и n"); READLN(M,N); S:=0; FOR_K:=M_TO_N_DO BEGIN P:=(SQR(K)+5)/(SQR(K)*K+K); S:=S+P; END; WRITE( ...
... А=I IaijI I, i = 1..m, j = 1..n i - j + 1, если i ? j aij = i / (? i + j), если i = j m = n = 3 PROGRAM_LR6; VAR_I,J,M,N:INTEGER; A:ARRAY[1..10,1..10] ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... нули под ведущим элементом----} for k:=i+1 to m-1 do begin d[k]:=d[k]-d[i]*c[k,i]; for j:=m-1 downto i do c[k,j]:=c[k,j]-c[i,j]*c[k,i] end; i:=i
... or (j=k) then if i=j then a_1[i,j]:=-1/a[i,j] else a_1[i,j]:=-a[i,j]/a[k,k] else a_1[i,j]:=a[i,j]-a[i,k]*a[k,j]/a[k,k]; for i:=1 to m do for j:=1 to m ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... 18,'заданная ширина поля'); writeln('',k,' ',l,' ',m,'':30,'K=',k:3,' L=',l:3,' M=',m:3); writeln; writeln('':25,'Введите вещественные числа A,B,C,D,E ...
... 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('преобразованная матрица:'); for i:=1 ...


Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе [нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая ... write(' Для прлолжения программы нажмите ENTER . '); readln; end; {"Формирование МГС из структурной матрицы.} procedure MGSS; begin for s:=1 to n do ...
... 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 ...


Aлгоритмы на графах [нестрогое соответствие]
Программирование и комп-ры, Aлгоритмы на графах, Реферат ... f:=true; break End End End; if f then Begin k:=B; Write(B); While Prev[k]<>0 do Begin Write('<-', Prev[k]); k:=Prev[k] end End else Write('Пути из ...
... Write('Конечная вершина: '); Readln(Finish); Write(Finish); Finish:=Path[Finish]; While Finish<>0 do Begin Write('<-', Finish); Finish:=Path[Finish] ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... шаг (результат) | |(U) |L(U) |R| |L(U) |R(U) | ... | |U| | ... | |J |( p |)| |( p |) p | | | |p| | | | |T |J T |J| |J T ( p |J ) p | |B |T B |T| |T B ...
... построить два целочисленных вектора f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i]G[j], если i > j - построить ребро графа F[i]<-G[ ...