Если построить простейшую модель окружающей человека действительности, то Мир – бесконечное множество объектов реальности. Человек-Наблюдатель – достаточно сложная, также бесконечная информационно объединенная в единое целое структура, в силу своих возможностей адекватно отображающая внешний Мир. Главное в этой модели то, что мощность множества объектов внешнего мира больше, в математическом смысле, мощности множества объектов, которые могут быть отображены в сознании Человека. Элементарное следствие этой модели – все люди равны перед проклятьем бесконечности, и академик и простолюдин. Все важны для эволюции. Поэтому развитие робототехники не является угрозой для существования человека. В бесконечном разнообразии всем найдется место. В лоб бороться с проклятьем бесконечности можно только увеличив количество интеллектуалов, занятых поиском общей для всех истины. При этом, чем больше людей, тем лучше. Поэтому, не исключено, что через 50 или 100 лет население возрастет в тысячи или даже миллионы раз. Мы находимся в начале экспансии человечества в бесконечный космос. И без автоматических устройств построить ниши для жилья в космосе невозможно. Большинство из окружающих нас не заметили, что в 1997 году мы незаметно перешагнули барьер, отделяющий общество товарно-денежных отношений от информационного общества. В мае 1997 г, когда компьютер победил в шахматной игре человека, чемпиона мира Г.Каспарова стало ясно что будущее не принадлежит роботам, как и не принадлежит человеку. Будущее за своеобразным кентавром, человеко-машинным комплексом – симбиозом искусственного интеллекта, который решает штатные стандартные задачи, и человеком, который ставит эти задачи и отвечает за все. Уже сейчас прогресс во множестве областей предметной деятельности человека определяется этим «кентавром».
Лови тут и шифратор и дешифратор Var X : Array [1..20, 1..20] Of integer; M, N : Integer; //M - столбцы, N - строки i, j : Integer; //i, j - параметры циклов p: integer; Procedure vvod (var X: Array [1..20, 1..20] Of byte); begin For i := 1 To N Do For j := 1 To M Do Begin Write ('X[', i, ',', j, '] = '); ReadLn(X[i,j]); End; end; Procedure print (X: Array [1..20, 1..20] Of byte); begin for i :=1 to N do begin for j :=1 to M do write ( X [ i , j ]:4); writeln ; end; end; Begin WriteLn ('Ввод элементов.'); Write ('Число строк: '); ReadLn (N); Write ('Число столбцов: '); ReadLn (M); WriteLn ('Введите поочередно элементы матрицы:'); vvod(X); print(x); ReadLn; End.
Var X : Array [1..20, 1..20] Of integer; M, N : Integer; //M - столбцы, N - строки i, j : Integer; //i, j - параметры циклов p: integer; Procedure vvod (var X: Array [1..20, 1..20] Of byte); begin For i := 1 To N Do For j := 1 To M Do Begin Write ('X[', i, ',', j, '] = '); ReadLn(X[i,j]); End; end; Procedure print (X: Array [1..20, 1..20] Of byte); begin for i :=1 to N do begin for j :=1 to M do write ( X [ i , j ]:4); writeln ; end; end; Begin WriteLn ('Ввод элементов.'); Write ('Число строк: '); ReadLn (N); Write ('Число столбцов: '); ReadLn (M); WriteLn ('Введите поочередно элементы матрицы:'); vvod(X); print(x); ReadLn; End.