Похожие работы на «10 задач с решениями программированием на Паскале »
10 задач с решениями программированием на Паскале
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи
... 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 read(x[i, ...
... элементы массива'); for i:=1 to m do read(x[i]); end; procedure moped(m:integer;var x:m); var i,k,n:integer; begin k:=0;n:=0; for i:=1 to m do if
Разработка системы задач (алгоритмы-программы) по дискретной математике
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая
... Var i,j:integer; Begin i:=1; j:=N+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: ...
... A[i],' '); end; procedure 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 ...
Циклические коды
Программирование и комп-ры, Циклические коды, Курсовая
... var i,j,i1,kol,Countzero:integer; begin j:=n; RETURN:while((j>=0)and(m2[j]=0))do dec(j); if(j>n1) then begin for i:=n1 downto 0 do begin r2[i]:=m2[j
... begin k:=n1-flag; for i:=n1 downto flag do begin m3[k]:=r3[i]; dec(k); end; end else begin for i:=n1-1 downto 0 do m3[i]:=r3[i]; end; end; Procedure ...
Aлгоритмы на графах
Программирование и комп-ры, Aлгоритмы на графах, Реферат
... if k=B then Begin 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 ...
... n do Begin For j:=1 to n do read(f, matrix[i, j]); Readln(f) End; For i:=1 to n do color[i]:=i; len:=0 End; Procedure Findmin(var a, b: integer); Var ...
Математическая модель метода главных компонент
Статистика, Математическая модель метода главных компонент, Курсовая
... for i:=1 to m do for j:=1 to m do begin s:=0; for k:= 1 to m do s:=s+r[i,k]*_b_[k,j]; a_[i,j]:=s end; {-вычисляем p[q]-} s:=0; for i:=1 to m do
... значений главных компонент 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]*z[j,k]; f[i,j]:=s end; {-выводим
Программа эмуляции развития популяций животных
Зоология, Программа эмуляции развития популяций животных,
... 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; end; m:=m+1+x; if (m> ...
... 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;{мор травоядных} begin y:=g- ...
Программа эмуляции развития популяций животных
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат
... 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; end; m:=m+1+x; if (m> ...
... 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 begin ...
Нейтрофилы
Медицина, Нейтрофилы , Рефераты
... end; procedure print_coord; var i, j, k : word; f : text; begin for i:=1 to 30 do with cell[i] do for j:=1 to 100 do begin writeln(i:5,x[j]:9:2,y[j]:9 ...
... j:=j+1; write(f,ln(j):10:2); for i:=1 to 30 do with cell[i] do begin loc_calc[i]:=0; for k:=j+1 to 100 do begin z:=(x[k]-x[k-j])*(x[k]-x[k-j])+(y[k
Построение функции предшествования по заданной КС-грамматике
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая
... f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i]G[j], если i > j - построить ребро графа F[i]<-G[j], если i < j - склеить вершины F[i ...
... List):Byte; Var j:Byte; Ex:Boolean; Begin If l<>Nil Then Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; Ex ...
Вычислительная практика I курс
Программирование и комп-ры, Вычислительная практика I курс, Реферат
... do For j:=1 to C do Read(a[i,j]); end; Function MAX; Var i,j:Word; m:E; begin m:=B[1,n+1]; For i:=1 to n do For j:=n+1 to k-1 do If B[i,j]>m then m:=B ...
... For i:=n+1 to k-1 do For j:=1 to C do If B[i,j]>m then m:=B[i,j]; For i:=k to R do For j:=n+1 to k-1 do If B[i,j]>m then m:=B[i,j]; MAX:=m end; ...
