Похожие работы на «Автоматическое рабочее место для работника склада»

Автоматическое рабочее место для работника склада
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая ... List[j]; k:=j end; 3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end; 5: if Bas.kol_p>List[j].kol_p then begin Bas:=List[j]; k:=j end; 6 ...
... k:=j end; 7: if Bas.kol_r>List[j].kol_r then begin Bas:=List[j]; k:=j end; 8: if Bas.date_r>List[j].date_r then begin Bas:=List[j]; k:=j end; end; end ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 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) ...
... 40,10,80,25); fon(black); clrscr; info; omenu; end; if (key='B') or (key='b') then begin beast; window(40,10,80,25); fon(black); clrscr; info; omenu; ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...
... Write('Результат'); End; 50:Begin TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure pannel; ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... 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-x; if x ...
... 40,10,80,25); fon(black); clrscr; info; omenu; end; if (key='B') or (key='b') then begin beast; window(40,10,80,25); fon(black); clrscr; info; omenu; ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... Name<>inf.Name) and Not Ex Do Begin inc(j); If l^.Name=#0 Then Ex:=True; l:=l^.next; End; End; If (l=Nil) or Ex Then SearchInBlock:=0 Else ...


Циклические коды [нестрогое соответствие]
Программирование и комп-ры, Циклические коды, Курсовая ... RETURN; 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] ...
... i1; while((Kol>0)and(j>=0))do begin r2[Kol-1]:=m2[j]; dec(Kol); dec(j); end; if((j=-1)and(Kol=0)) then begin for i:=n1 downto 0 do r2[i]:=r2[i] xor p2 ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... For I:=1 to MClass do If P^.class[I] then Read(Source,Q^.Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) ...
... c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... Frac(N.y / k) = 0) then if (j=k) then begin N.b:=N.b / k; N.x:=N.x / k; N.y:=N.y / k; Break; end end; k:=k-1; until (k<=0); until (N.x<>0) and (N.y<>0 ...
... x*XResult+N.y*YResult<=N.b) then begin {Если в ОДЗ} c:=cTmp; boolAnswer:=True; end; {далее проверяем вышла ли cTmp за ОДЗ} if (N.x*XResult+N.y*YResult ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... for i:=1 to m do begin s:=0; sr:=0; if x[i,n]=1 then begin for j:=1 to n do s:=s+x[i,j]; sr:=s/n; writeln ('среднее арифметическое ',i,' строки равно ...
... 0 then k:=k+1 else begin if x[i-1]=0 then if k>n then n:=k; k:=0;end; if k>n then writeln('самая большая последовательность нулей состовляет ',k) else ...


Автоматизация расчета начислений заработной платы в строительном управлении N 151 [нестрогое соответствие]
Программирование и комп-ры, Автоматизация расчета начислений заработной платы в строительном управлении N 151 , Рефераты ... a[i,j,6]=0 then begin a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,4]/kol_d); balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,4]/kol_d;end else begin balls[i,j]:=balls[i
... 4]:=round(1.5*t[i,j,1]*t[i,j,5]);end; {Сверхурочные} if a[i,j,6]<>0 then begin balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7]); a[i,j,5]:=round(t[ ...