Всё о : графические информацыонные модели

Вграфических информационных моделях для наглядного отображения объектов используются условные графические изображения (образные элементы), зачастую дополняемые числами, символами и текстами (знаковыми элементами). примерами графических моделей могут служить всевозможные схемы, карты, чертежи, графики и диаграммы. схема — это представление некоторого объекта в общих, главных чертах с условных обозначений. с схем может быть представлен и внешний вид объекта, и его  структура . схема как информационная модель не претендует на полноту предоставления информации об объекте. с особых приёмов и графических обозначений на ней более рельефно выделяется один или несколько признаков рассматриваемого объекта. примеры схем на рис. 1.5.

Var c: array['a'..'z'] of integer;       s: string;       i,max: integer;       j: char; begin read(s); for i: = 1 to length(s) do       c[s[i]]: =c[s[i]]+1; max: =c['a']; for j: = 'b' to 'z' do       if max< c[j] then max: =c[j]; writeln(max) end. var     a: array[1..10000] of integer;     i,k,max: integer; begin readln(i); for i: = 1 to i do       read(a[i]); k: =0; max: =0; for i: = 1 to i-1 do       if a[i]> a[i+1] then k: =k+1       else if k> max then                       begin                       max: =k;                       k: =0;                       end; if max=0 then writeln(0) else writeln(max+1) end.

Var a: array[1..255] of integer;       b: array[1..10000] of integer;       s: string;       i,mx,tek,ind,n: integer; begin // 1   write('строка: ');   readln(s);   mx: =0; ind: =0;   for i: =1 to 255 do a[i]: =0;   for i: =1 to length(s) do   if s[i] in ['a'..'z'] then inc(a[ord(s[i])]);   for i: =ord('a') to ord('z') do if a[i]> mx then   begin       mx: =a[i];       ind: =i;   end;     writeln('наиболее часто встречается буква: ',chr(ind),' - ',mx); // 2   write('n = ');   readln(n);   mx: =0; tek: =0;   read(b[1]);   for i: =2 to n do   begin       read(b[i]);       if b[i]< =b[i-1] then inc(tek)       else       begin           if tek> mx then mx: =tek;           tek: =0;       end;     end;   if mx> 0 then writeln(mx+1)   else writeln(0); end.