Похожие работы на «Циклические коды»

Циклические коды
Программирование и комп-ры, Циклические коды, Курсовая ... 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
... if(j0)then 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; ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... For i:=0 to 6*NumI+1 do begin Series1.AddXY(GrPar[i],GrPercent[i]); end; end; if Sender=N21 then begin for j:=1 to Query1.RecordCount do begin parm[j] ...
... For i:=0 to 2*NumI+1 do begin Series1.AddXY(GrPar[i],GrPercent[i]); end; end; if Sender=N1 then begin for j:=1 to Query1.RecordCount do begin parm[j] ...


Распределенные алгоритмы
Программирование и комп-ры, Распределенные алгоритмы , Учебник ... begin forall q ? Neighp do send to q ; while recp < # Neighp do begin receive ; recp := recp + 1 end ; decide end ; Для не-инициатора: begin receive ...
... do send to q end ; while wrp < # Neighp do begin receive ; wrp := wrp + 1 ; if not wsp then begin wsp := true ; forall q ? Neighp do send to q end end ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... i:=1 to _N do Begin IF F[i]=1 Then Begin t:=1; For j:=i to i+_M-1 do Begin K[j]:=Sum(F[j],P[t]); F[j]:=K[j]; t:=t+1; End; End; End; t:=1; For i:=_N+1 ...
... y); Str(Obr_Matr[i,j],Elm); OutText(Elm); End; End; SetColor(4); For i:=1 to _N Do Begin For j:=_N+1 to _N+_M-1 Do Begin MoveTo(x+j*k,i*10+y); Str(Obr


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... 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
... i:=1 to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z]:=shift ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... yStart+1) - 2*dy else Range := dy; { Три квадрата по горизонтали } for j := 1 to 3 do begin if j = 2 then Range := (xEnd-xStart+1) - 2*dx else Range ...
... x := 0; y := 0; z := 0; Randomize; for k := 1 to 15000 do begin b[k] := Random(10); if b[k] > 3 then b[k] := 1; end; { for k } i := 1; { b[i] := 1; ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... 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 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; {-выводим


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная ... X:ARRAY[1..N1]_OF_REAL; BEGIN WRITE("Введите количество чисел в последовательности n="); READLN(N); WRITELN("Введите элементы последовательности" ...
_TO_N_DO BEGIN IF_I=J_THEN_A[I,J]:=I/SQRT(J+1); ELSE_A[I,J]:=I-J+1; A[I,J]:=ABS(A[I,J]); WRITELN("A[",I:2,",",J:2,"]=",A[I,J]:10:3); END; END; END.


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... 1; repeat read(ff,buf); mas[j]:=buf; j:=j+1; until eof(ff); j:=j-1; close(ff); end; procedure delete_pass; var ff:file of airport; i,i1,f:integer; buf ...
... был удалён! '); f:=1; end else begin i:=j; f:=2; end; end; i:=i+1; until (i=j+1) or (f=1); if f=1 then begin assign(ff,'airport.dat'); rewrite(ff); i: ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... i:=1 to yyy-1 do for j:=1 to xxx do begin pixel(j*2+xx1,i*3+yy1,col[fire1[i,j]]); pixel(j*2+xx1,i*3+yy1-1,col[fire1[i,j]]); pixel(j*2+xx1,i*3+yy1-2, ...
... 460,100+j); end; setcolor(0); for j:=1 to nline do outtextxy(220,110+(j-1)*25,menu[menulevel,j]); end; PROCEDURE redraw_menu; begin for j:=nline*30+10 ...