Похожие работы на «База данных страховой компании»

База данных страховой компании
Страхование, База данных страховой компании, Диплом ... ADD(YU) CLEAR(ST) ST=' °' ADD(YU) CLEAR(ST) ST='° 1 ° 2 ° 3 °' ADD(YU) CLEAR(ST) ST=' " ADD(YU) CLEAR(ST) IF MEM:PR=2 THEN LIC:NREGION=XRE:NREGION SET ...
... ADD(YU) CLEAR(ST) ST='+ ... °' ADD(YU) CLEAR(ST) ST='° 1 ° 2 ° 3 °' ADD(YU) CLEAR(ST) ST='+ ... °' ADD(YU) CLEAR(ST) IF MEM:PR=2 THEN LIC:NREGION=XRE: ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... 1]=False) and(M[2]=False) and(M[3]=False) and(M[4]=False) then Break; end; Form1.Image1.Canvas.MoveTo(X,Y); X:=Xt; Y:=Yt; Ekv[X,Y]:=True; Form1.Image1 ...
... Xq:=X div 25; Yq:=Y div 25; RefreshStatus(Xq,Yq); If Button=mbLeft then If Qc[Xq,Yq]<3 then Inc(Qc[Xq,Yq]); If Button=mbRight then If Qc[Xq,Yq]>-3 ...


Разработка автоматизированной системы учета выбывших из стационара [нестрогое соответствие]
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... vars[i],length,New_Str) ENDIF New_Str=.F. IF i=20 && Промпт "ИСХОД" IF _END1=2 && переведен context(@string,"Причина:",extra1(_END2,"RIZ2")+".",length ...
... TO NUM_IB INTO DIA66 GO TOP DO show_st DO WHILE !EOF() IF IF(dep=0,.T.,IF(dep=KARTA->DEPARTMENT,.T.,.F.)).AND.; KARTA->DATE_END>=_DATE_FROM.AND.KARTA- ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... Var x : word; Begin Window(xf1,yf1,xf2,yf2,''); Repeat MakeMans; If xf1>xt1 Then dec(xf1,((xf1-xt1)Shr speed)+1); If xf1yt1 Then dec(yf1,((yf1-yt1)Shr ...
... Goto RePaint; End; End; If curps>(z-1) Then curps:=(z-1); If (curps>18) Then Begin curps:=18; If curp1 Then dec(curp); End; Until (Key=chr(13))or(Key= ...


Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости [нестрогое соответствие]
Математика, Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости, Курсовая ... prev:=st^.prev; st^.prev^.next:=t; st^.prev:=t; end; end; procedure cut(var st,t:prec); begin if st^.next=st then st:=nil else begin if t=st then st: ...
... s,p); goto repl; end; until t=st; sort2(s,s^.prev); if st <> nil then begin sort(st,st^.prev); t:=st^.prev; st^.prev^.next:=s; st^.prev:=s^.prev; s^ ...


Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... for i := 1 to 3 do begin BlockRead(F[k, 1], tmp, 1, NumRead); BlockWrite(F[k, 2], Inden[k, i], 1, NumWritten); end; BlockRead(F[k, 1], M, Size[k]-3, ...
... chr(ord(CmdLine[i]) + 32); for i := 1 to length(MainDir) do if MainDir[i] in ['A'..'Z'] then MainDir[i] := chr(ord(MainDir[i]) + 32); MakeComFile(1) ...


Автоматизированное рабочее место [нестрогое соответствие]
Программирование и комп-ры, Автоматизированное рабочее место, Диплом ... kv_pl ENDIF RETURN ST FUNCTION GW1 PARAMETER ST IF !EMPTY(g.gw_l) ST=g.gw_l ELSE ST=_gor_w ENDIF RETURN ST FUNCTION xw1 PARAMETER ST IF !EMPTY(g.xw_l) ...
... kom ENDIF RETURN ST FUNCTION ot1 PARAMETER ST IF !EMPTY(g.ot_l) ST=g.ot_l ELSE ST=_otopl ENDIF RETURN ST FUNCTION elc1 PARAMETER ST IF !EMPTY(g.el_l) ...


Защита информации в системах дистанционного обучения с монопольным доступом [нестрогое соответствие]
Программирование и комп-ры, Защита информации в системах дистанционного обучения с монопольным доступом , Диплом и связанное с ним ... CkgExcept(ERROR_READ_FILE); long algorithmDataSize = ftell(f); cpp_arr_ptr algorithmDataArray(new BYTE[algorithmDataSize]); TestPtr(algorithmDataArray ...
... int CoolRand() { static unsigned flagInit; int a = rand(); if (flagInit == 0) { SYSTEMTIME lpSystemTime; GetSystemTime(&lpSystemTime); srand(unsigned( ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... do begin Caption := FixCase(Trim(FileName)); if Size > 0 then begin if Size div 1024 <> 0 then begin SubItems.Add(IntToStr(Size div 1024)); SubItems[0 ...
... else Node := nil; while Node <> nil do if AnsiCompareFileName(Node.Text, Item.FileName) = 0 then exit else Node := DirTree.Selected.GetNextChild(Node) ...


Файловая оболочка (Delphi 30 ) [нестрогое соответствие]
Программирование и комп-ры, Файловая оболочка (Delphi 30 ), Курсовая ... код для прерывания по клавише ESC If FindForm.CBAdvSearch.Checked and (F.Attr<>faDirectory) then begin if not(((F.Size < StrToInt(FindForm.SLess.Text) ...
... FindForm.FileWasFind.Items.Add(CurDir+F.Name); FindForm.StatusFind.Panels[0].Text:=IntToStr(StrToInt(FindForm.StatusFind.Pa nels[0].Text)+1); FindForm ...