var a: array[1..m, 1..n] of integer; i, j, t: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end; Writeln('Полученный массив'); for i := 1 to m do begin for j := 1 to n do Write(a[i,j]:4); Writeln end end.
var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer;
begin Write('Введите число строк матрицы: '); Readln(m); Randomize; Writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to m do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; { *** 1 *** } Writeln('*** Элементы главной диагонали ***'); for i := 1 to m do Write(a[i, i]:4); Writeln; Writeln('*** Элементы побочной диагонали ***'); for i := m downto 1 do Write(a[i, m - i + 1]:4); Writeln; { *** 2 *** } s := 0; for i := 1 to m - 1 do for j := i + 1 to m do s := s + a[i, j]; Writeln('Сумма элементов, лежащих выше главной диагонали: ', s); end.
Самое главное, что должно измениться — это принцип взаимодействия человека и машины. Сегодня это происходит в основном посредством клавиатуры, мыши и сенсорного экрана. То есть технологий, разработанных и внедрённых ещё несколько десятилетий назад. Они прекрасно справлялись с возложенными на них задачами и будут использоваться и впредь. Однако учёные и инженеры уверены, что будущее принадлежит иным технологиям, которые сегодня ещё только находятся в зачаточном состоянии.
Прежде всего, компьютеры будущего смогут воспринимать и анализировать изображение в реальном времени, то есть видеть окружающий мир как человек. Это позволит, например, создавать системы безопасности, которые на основе анализа окружающей их обстановки смогут предсказывать теракты или стихийные бедствия. И в отличие от человека-наблюдателя, они никогда не будут уставать или терять бдительность. К тому же качественное «зрение» позволит компьютерам лучше взаимодействовать с пользователями, более полно воспринимая их жесты и мимику.
Системы будущего научатся также и хорошо слышать. Имеется в виду не качество приёма звука, а к его анализу – воспринимать речь компьютеры умеют и сегодня. Но теперь им предстоит улучшить этот навык, научиться улавливать тончайшие интонации, расшифровывать звуки, издаваемые животными. Такая система сможет объяснить родителям, отчего плачет их грудной ребёнок. И дело тут не ограничивается только общением — на основе анализа издаваемых звуков компьютер сможет предупредить о скором возникновении поломки у того или иного оборудования.
Ожидается также появление возможности передачи тактильных ощущений. А это может стать основой для настоящей революции в деле онлайн-продаж. Ведь товар можно будет не только внимательно рассмотреть со всех сторон, но и предварительно «пощупать».
Мобильные устройства просто невозможно оснастить экранами с очень большими диагоналями, а использование проекционного оборудования удобно далеко не всегда. Но можно будет задействовать, например, так называемые виртуальные ретинальные мониторы (VRD), когда изображение проецируется прямо на сетчатку глаза. В таком случае пользователю будет казаться, что изображение «подвешено» перед ним в воздухе. При этом если изображение проецируется на один глаз, то можно будет видеть его одновременно с реальными объектами. Проецирование же на оба глаза позволит создавать очень реалистичные и объёмные изображения. Важно и то, что использование VRD позволит заметно снизить нагрузку на батарею устройства. И завершиться развитие интерфейсов может непосредственной связью между электроникой и человеческим мозгом. И для этого не обязательно нужно будет вживлять чип под кожу.
Что же касается внешнего вида компьютеров будущего, то тут остаётся лишь строить предположения, чем активно занимаются футурологи. Одни мечтают о вживлённых под кожу чипах, другие ожидают скорого появления компьютеров-браслетов, возможности которых будут выше самых лучших современных десктопов. Но, как говорил Станислав Лем, «будущее всегда выглядит иначе, чем мы себе его представляем». Так, ещё в середине века мало кто мог представить себе массовое распространение тех же планшетов. Ясно лишь одно — системы будущего будут становиться всё меньше, при значительном увеличении производительности и расширении возможностей.
Что же касается скорости внедрения всех этих достижений, то происходить это будет постепенно. И дело тут в страшной силе человеческой привычки. Возможности всего нового в полной мере всегда оценить только следующие поколения, предыдущим приходится только при
m = 5;
n = 8;
var
a: array[1..m, 1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
Writeln('Полученный массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:4);
Writeln
end
end.
Тестовое решение:
Исходный массив
45 20 -15 33 -37 26 -30 -3
-27 43 -24 4 -14 18 -50 5
-28 -47 11 27 -8 42 -19 -39
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
Полученный массив
-28 -47 11 27 -8 42 -19 -39
-27 43 -24 4 -14 18 -50 5
45 20 -15 33 -37 26 -30 -3
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30