Є шість комп’ютерів об’єднаних в локальну мережу. Один із комп’ютерів – сервер БД. Побудуйте схему зв’язків між комп’ютерами при використанні файл-серверної технології роботи БД. Укажіть на схемі, де опрацьовуються дані з БД
— осуществление диалога с пользователем;— ввод-вывод и управление данными;— планирование и организация процесса обработки программ;— распределение ресурсов (оперативной памяти и кэша, процессора, внешних устройств);— запуск программ на выполнение;— всевозможные вс операции обслуживания;— передача информации между различными внутренними устройствами;— программная поддержка работы периферийных устройств (дисплея, клавиатуры, дисковых накопителей, принтера и др.).— организация среды взаимодействия и обмена информацией между работающими программами.
Var st,stMax1,stMax:string; L,i,maxA,colA:integer; begin readln(st);{считываем строку} L:=length(st);{получаем длину строки} colA:=0;{количество букв а в слове} maxA:=0;{максимальное количество букв а в слове} stMax1:='';{то, куда мы будем записывать слово}
for i:=1 to L do begin {проходим по строке L раз} if ((st[i]<>' ') and (st[i]<>'.') and (st[i]<>'!') and (st[i]<>'?')) then {если символ не пробел, не точка, не воскл. знак и не вопрос. знак то записываем в строку одну букву} stMax1:=stMax1+st[i];{буква+буква+буква}
if (st[i]='а') then colA:=colA+1;{если считываемая буква-а то увеличиваем счётчик букв а в слове}
if (st[i]=' ') or (st[i]='.') or (st[i]='!') or (st[i]='?') then begin{если дошли до конца слова то...}
if (maxA<colA) then begin maxA:=colA; stMax:=stMax1 end;{если количество 'а' в слове больше макс. кол-ва 'а' в одном из слов, то максимальное кол-во приравниваем к кол-ву, строку приравниваем к этому слову(stMax:=stMax1)}
L,i,maxA,colA:integer;
begin
readln(st);{считываем строку}
L:=length(st);{получаем длину строки}
colA:=0;{количество букв а в слове}
maxA:=0;{максимальное количество букв а в слове}
stMax1:='';{то, куда мы будем записывать слово}
for i:=1 to L do begin {проходим по строке L раз}
if ((st[i]<>' ') and (st[i]<>'.') and (st[i]<>'!') and (st[i]<>'?')) then {если символ не пробел, не точка, не воскл. знак и не вопрос. знак то записываем в строку одну букву}
stMax1:=stMax1+st[i];{буква+буква+буква}
if (st[i]='а') then colA:=colA+1;{если считываемая буква-а то увеличиваем счётчик букв а в слове}
if (st[i]=' ') or (st[i]='.') or (st[i]='!') or (st[i]='?') then
begin{если дошли до конца слова то...}
if (maxA<colA) then begin maxA:=colA; stMax:=stMax1 end;{если количество 'а' в слове больше макс. кол-ва 'а' в одном из слов, то максимальное кол-во приравниваем к кол-ву, строку приравниваем к этому слову(stMax:=stMax1)}
stMax1:=''; {обнуляем слово}
colA:=0; {обнуляем счётчик 'а'}
end;
end;
writeln(stMax);
write(maxA); end.