Похожие работы на «Автоматизация расчета начислений заработной платы в строительном управлении N 151 »

Автоматизация расчета начислений заработной платы в строительном управлении N 151
Программирование и комп-ры, Автоматизация расчета начислений заработной платы в строительном управлении N 151 , Рефераты ... readln(f,z);kol_vo[i]:=kol_vo[i]+1; j:=pos('|',z);z:=copy(z,j+1,250); {Пропускаем номер} j:=pos('|',z);fio[i,kol_vo[i]]:=copy(z,1,j-1);z:=copy(z,j+1, ...
... copy(z,1,j-1),x,c); a[i,g,h]:=round(x);fzp:=fzp-a[i,g,h];z:=copy(z,j+1,250);end; j:=pos('|',z);val(copy(z,1,j-1),x,c); a[i,g,18]:=round(x);z:=copy(z,j


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... TComplex.Create(0,0); C := TComplex.Create(0,0); for y := yStart to yEnd do begin for x := xStart to xEnd do begin C.Assign(x,y); Z.Mul(Z0); Z.Plus(C) ...
... i = 2 then dx := LenX-2*Round(LenX/3) else dx := Round(LenX/3); {-} BlackCnt := 0; { Кол-во черных пикселов в квадранте } for y := yOld to yOld+dy-1 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... init(0,0,0,0); for j:=i+1 to m do begin x1:=hr[j].getx; y1:=hr[j].gety; at1:=hr[j].daiage; ct1:=hr[j].daizwet; hr[j].done; hr[j-1].init(x1,y1,at1,ct1) ...
... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... i:=1 to m do begin hr[i].init(0,0,0,0); hr[i].done; end; end; if (x10) then begin repeat j:=j+1; if hr[j].daiage=y1 then begin hr[j].done; hr[j].init
... until x1=m end; end; end; {*} procedure tmor;{мор травоядных} begin y:=g-x; if x>0 then begin repeat j:=random(g)+1; tg[j].done; tg[j].init(0,0,0,0) ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... shift[j]:=0; end; j:=1; repeat 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 ...
... 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[z]+1; end; end; for j: ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... Var I,P:SmallInt; begin Stop; Redactor; For I:=0 to 63 do For P:=0 to 47 do Qc[I,P]:=0; For I:=1 to Nc do For P:=1 to 3 do Qrc[I,P]:=0; Image1.Align: ...
... Tab,1); While not Eof(F) do begin Readln(F,S); SetLength(Tab,Length(Tab)+1);Inc(I); Tab[I].Name:=Copy(S,1,Pos('$',S)-1); Delete(S,1,Pos('$',S)); Tab[I ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... элемента, buf используется при обмене значений двух элементов} begin for i:=1 to 10 do begin write('Введите элемент номер ',i,' -> '); readln(a[i] ...
... f: text; c: char; begin assign(f,'showfile.pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c); end; readln(f) ...


Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... i] := Mas[41-j]; 2: MasEnd[8*(j-1)+i] := Mas[09-j]; 3: MasEnd[8*(j-1)+i] := Mas[49-j]; 4: MasEnd[8*(j-1)+i] := Mas[17-j]; 5: MasEnd[8*(j-1)+i] := Mas[ ...
... string; Source, Target : file; NumRead, NumWrite: word; buf : string; TempPos, Temp : real; begin {Открыть файлы} ToCopy := 'c:'; ToCopy := ToCopy ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая ... Func; a,b:Real; N:Integer; var INT:Real); var sum, h: Real; j:Integer; begin if Odd(N) then N:=N+1; h:=(b-a)/N; sum:=0.5*(F(a)+F(b)); for j:=1 to N-1 ...
... Randomize; WriteLn('ВВЕДИ kol'); ReadLn(kol); nb:=[1..36]; for i:=1 to kol do begin k:=[]; for l:=1 to 5 do begin repeat n:=Random(36) until (n in nb) ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... 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 ...