Похожие работы на «Работа с базами данных»

Работа с базами данных
Программирование и комп-ры, Работа с базами данных, Курсовая ... f); end; if e=2 then begin repeat readln(f,s); n:=pos('*',s); q:=pos('&',s); d:=copy(s,n+1,q-n-1); if d=a then begin y:=1; w:=pos('*',s); r:=pos('&',s ...
... f,s); n:=pos('&',s); if s[n+1]=a[1] then begin y:=1; { writeln(s);} w:=pos('*',s); r:=pos('&',s); t:=pos('$',s); s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1 ...


Построение функции предшествования по заданной КС-грамматике
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... If not (s[i]='<') Then Begin Error(1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{ ...
s[i]='|' Then Begin inc(i); Goto More; End; Blank; If s[i]='|' Then Begin inc(i); Goto More; End; If i<=Len Then{не дошли до конца правила} Begin i:=i ...


Основы программирования на языке Паскаль
Программирование и комп-ры, Основы программирования на языке Паскаль, Реферат ... If A=0 Then | | If B=0 Then | |If C=0 Then Writeln('X - любое число') | |Else Writeln('Корней нет! ') | | Else Begin X:=-C/B; Writeln('X=',X:8:3) End ...
... End; | |Close(F); | |Reset(F); | |Writeln; Writeln('Список учащихся:'); | |While Not(Eof(F)) Do | |Begin | |Read(F,S); | |If S[1]<>'Ш' Then | |Writeln ...


Защита данных от несанкционированного доступа
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... 3 then begin if (copy(FName, length(FName)-2, 3) = 'EXE') or (copy(FName, length(FName)-2, 3) = 'COM') then begin {Преобразование имени файла} for i: ...
... R.B.Y,3); end; if AOptions and fdOkButton <> 0 then begin Insert(New(PButton, Init( R, 'Ага', cmFileOpen, bfNormal))); Inc(R.A.Y,3); Inc(R.B.Y,3); end ...


Программа на Delphi
Программирование и комп-ры, Программа на Delphi, Доклад ... not Eof(f) do Readln(f); {передвинуть указатель в конец файла} End; Writeln(f, St); {записать строку } CloseFile(f); {закрыть файл} End; К процедуре ...
... finally CloseFile(f1); {закрываем файл-источник} CloseFile(f2); {закрываем файл-приёмник} end; {блока try - finally - end} End {If }; End {StudsCopy} ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в файле'); readln(k); sozd(f1,k); reset(f1) ...
... while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в файле'); readln(k); sozd(f1,k); kslov(f1) ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... s1:='`st' else if copy(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( ...
... while not eof(f) do begin readln(f,s); if s='/:question' then inc(nq) end; closefile(f); reset(f); readln(f,name); frmlesson.Caption:=name; textY:=2; ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... j+1; close(ff); end else begin gotoxy(30,12); if f=0 then writeln('Пассажир не найден! '); end; if f=2 then writeln('Удаление отменено! '); delay(9999 ...
... i=j1+1; close(ff); end else begin gotoxy(30,12); if f=0 then writeln('Рейс не найден! '); end; if f=2 then writeln('Удаление отменено! '); delay(9999) ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... Procedure RefreshStatus(X,Y:Byte); Var Q:Integer; St:String; Begin Form1.StatusBar1.Panels.Items[0].Text:=''; Form1.StatusBar1.Panels.Items[1].Text: ...
... Ekv[X+1,Y+1]:=True; Ekv[X-1,Y+1]:=True; end; If O=2 then begin Ekv[X-1,Y-1]:=True; Ekv[X-1,Y+1]:=True; end; If O=3 then begin Ekv[X+1,Y-1]:=True; Ekv


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a); Вывод сообщение и задержка программы ...
... Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; ...