Скакой целью ввели таблицу кодирования unicode?

в настоящее время большая часть пользователей при компьютера обрабатывает текстовую информацию, которая состоит из символов: букв, цифр, знаков препинания и др.

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

к = 2i = 28 = 256,

т. е. для представления текстовой информации можно использовать алфавит мощностью 256 символов.

суть кодирования заключается в том, что каждому символу ставят в соответствие двоичный код от 00000000 до 11111111 или соответствующий ему десятичный код от 0 до 255.

необходимо помнить, что в настоящее время для кодировки букв используют пять различных кодовых таблиц (кои - 8, ср1251, ср866, мас, iso), причем тексты, закодированные при одной таблицы не будут правильно отображаться в другой кодировке. наглядно это можно представить в виде фрагмента объединенной таблицы кодировки символов.

одному и тому же двоичному коду ставится в соответствие различные символы.

Решение

gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?

Добавлено через 35 минут

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

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program mas1;

const

nmax=100;

var

a: array[1..nmax,1..nmax] of integer;

n,i,j,sum,sum1: integer;

begin

randomize;

write('Ââåäèòå ðàçìåð ìàòðèöû n: ');

readln(n);

writeln('Ìàòðèöà:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(150)-50;

write(a[i,j]:5);

end;

writeln;

end;

sum:=0;

sum1:=0;

j:=1;

for i:=1 to n do

sum:=sum+a[i,i];

for i:=n downto 1 do

begin

sum1:=sum1+a[i,j];

j:=j+1;

end;

writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);

writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);

writeln;

end.

0