Работа с базами данныхРефераты >> Программирование и компьютеры >> Работа с базами данных
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);
t:=pos('$',s);
s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1)+' '+s[r+1]+
' '+copy(s,t+1,length(s)-t-1);
writeln(s);
end;
until eof(f);
end;
if e=3 then
begin
if not ((a='м') or (a='ж')) then
begin
writeln('Не выделывайся. Я, конечно знаю парочку гермафродитов,');
writeln('но их нет этом списке. Сто пудов!!!!');
y:=1;
(Проверка на случай не очень умного пользователя.)
end
else
repeat
readln(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)+' '+s[r+1]+' '+copy(s,t+1,length(s)-t-1);
writeln(s);
end;
until eof(f);
if not ((e=1) or (e=2) or (e=3)) then
begin
writeln('Слушай, делать нечего, вали из моей программы');
y:=2;
(Проверка на случай не очень умного пользователя)
end;
if not (y=1) or (y=2) then
writeln('Таких здесь нет, и, по-моему никогда не было');
end;
readln
end.
