Похожие работы на «технологическая практика ПрограммаShower-конвертор табличных файлов»

технологическая практика ПрограммаShower-конвертор табличных файлов
Программирование и комп-ры, технологическая практика ПрограммаShower-конвертор табличных файлов, Курсовая ... ini'); EFile := ''; if FileExists(S) then with TIniFile.Create(S) do begin S := ReadString('Base','Database','ERR'); if S <> 'ERR' then EFile := S; S ...
... pictures.inc'; if not FileExists(EFile) then begin MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0); Exit; end; E := TAppExcel. ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and (mthe[j, ...
... a:=0; while (i<=e) do begin c:=ord(st[i])-ord('0'); if ((mode mod 2)=0) and (c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... 16); p:=320+(p and 15); goto RePaINt; end; end; $48: begin if (p>15)or(l1<>0)then dec(p,16); if p<0 then begin dec(l1,16); p:=p and 15; goto RePaINt; ...
... p>0)or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... i,j],image1.picture.bitmap); end; end; //- - //Возвращение рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and ...
... image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap); V2i:=i; v2j:=j; end else begin image2.Canvas.StretchDraw(b[v2i,v2j],image3.picture.bitmap) ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... d,2,1)='2' then s1:='`nd' else if copy(d,2,1)='3' then s1:='`rd' end else s1:='`th'; s:=copy(d,1,2)+s1+' of '+month[strtoint(copy(d,4,2))]+' ' +copy(d ...
... exit; x:=random(frmlesson.Width); y:=random(frmlesson.Height); if (x in [pic1.Left..pic1.Left+pic1.Width]) or (y in [pic1.Top..pic1.Top+pic1.Height] ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... удаление записи:запись в новый файл} reset(f); assign (f2,'k2'); rewrite(f2); l:=0;q:=0;n:=filesize(f); repeat l:=l+1; if l<>nn then begin q:=q+1; ...
... menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15) ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... X=(k*X+b-8) )and ( Y<=(k*X+b+8)) then begin Flag:=true; Select(i,j); Exit; end; end; inc(i); until(Flag)or(i>Dimension); inc(j); i:=1; until(Flag)or(j ...
... RemovePoint(Te); Exit; end; if not flag then begin if FSnapToGrid then IONewPoint(StepRound(x,GrigStep),StepRound(y,GrigStep)) else IONewPoint(x,y) ...


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... 0; while i <> ListPos do begin qList := qList^.Next; Inc(i); end; if qList <> nil then begin if qList^.Next <> nil then Inc(ListPos); i := 0; j := 0; ...
... qListTwo^.Next; Inc(i); end; if qListTwo <> nil then begin if qListTwo^.Next <> nil then Inc(ListTwoPos); i := 0; j := 0; while i < ListTwoPos do ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... FClockPriority:=Value; case FClockPriority of cpIdle: begin FDesiredProcessPriority:=IDLE_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_ ...
... for testing small block of // code when it must be put in the processor cache begin FDeltaValue:=0; if FCounterSupported and assigned(FPrecizeProc) ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do ...
... with AddFieldDef do begin Name := 'PARAM1'; DataType := ftFloat; Required:=False; end; with AddFieldDef do begin Name := 'PARAM2'; DataType := ftFloat ...