Распредилите программы по группам 1 общего назгачения 2 специального назначения программы перевотчики , компьютерный словарь энциклопедия

Procedure GetWord(s:string; var p:integer; var w:string; delim:string:=' ');
{
 Получает в w слово из строки s, которое начинается не ранее позиции p.
 Возвращает новое значение p, указывающее на первый разделитель delim,
 который следует за найденным словом или 0, если такой разделитель не найден.
 По умолчанию слова разделяются не менее чем одним пробелом
}
var
  i,n:integer;
  fBreak:boolean; { флажок для прерывания циклов }
begin
  n:=Length(s); fBreak:=False;
  {ищем первый символ, отличный от разделителя - начало слова }
  while ((p<=n) and (not fBreak)) do
    if (p=n) or (s[p]<>delim) then fBreak:=True
    else Inc(p);
  { ищем очередной разделитель - конец слова }
  if p<n then begin
    i:=p; Inc(p); fBreak:=False;
    while (p<=n) and (not fBreak) do begin
      if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p)
    end;
  { теперь слово находится между позициями i и p }
  w:=Copy(s,i,p-i)
  end;
  if p>=n then p:=0
end;

function CountG(w:string):integer;
{ возвращает количество гласных в слове w}
var
  i,k:integer;
begin
  k:=0;
  for i:=1 to length(w) do
    if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
  CountG:=k
end;

var
  s,w,wmax:string;
  p,k,gmax:integer;
begin
  Writeln('Введите текст, разделяя слова пробелами');
  Readln(s);
  s:=LowerCase(s);
  p:=1; gmax:=0;
  while p>0 do begin
    GetWord(s,p,w);
    k:=CountG(w);;
    if gmax<k then begin gmax:=k; wmax:=w end
  end;
  if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax)
  else Writeln('Во введенной строке гласных букв не найдено')
end.

согласно общепринятой классификации ис - информационные системы - подразделяются:

по масштабам применения - настольные и офисные

по признаку структурированности - структурированные (формализуемые), не структурируемые (не формализуемые), частично структурируемые. частично-структурированные делятся на: ис репортинга и ис разработки альтернативных решений (модельные, экспертные). экспертные в свою очередь делятся на:

централизованные, децентрализованные и коллективного использования;

с интеграцией по уровням , по уровням планирования и т.д.

по функциональному признаку – производственные, маркетинговые (анализа рынка, рекламные, снабженческие и т. финансовые (бухгалтерские, статистические, и т. кадровые;

по квалификации персонала и уровням – стратегические (топ-менеджеров), функциональные (менеджеров среднего звена) и оперативные (специалистов);

по характеру обработки информации: системы обработки данных, системы , система поддержки принятия решений;

по оперативности обработки данных – пакетной обработки и оперативные;

по степени автоматизации - ручные, автоматические, автоматизированные;

по характеру использования информации - на информационно-поисковые, информационно-справочные, информационно-решающие, , советующие и т.п.;

по степени централизации обработки информации — на централизованные, децентрализованные, информационные системы коллективного использования;

по характеру использования вычислительных ресурсов – на локальные и распределенные;

по сфере деятельности - на государственные, территориальные (региональные), отраслевые, объединений, предприятий или учреждений, технологических процессов;

по классу реализуемых технологических операций - на системы с текстовыми редакторами, системы с табличными редакторами, субд, субз, системы с графикой, мультимедиа, гипертекстом;

по месту в процессе предприятия – на арм специалиста, ис руководителя, ис внешнего контролера, интегрированные системы, объединяющие в себе часть или все из этих функций;

по концепции построения – файловые, автоматизированные банки данных, банки знаний, хд;

по режиму работы - на пакетные, диалоговые и смешанные.