ақпаратты жіберу және жеткізу адамзат қоғамы мен экономиканың дамуында маңызды фактор деп есептеледі. Осыған байланысты ақпаратты сақтау мен өңдеу мен қатар оларды тартау үшін арнайы құрылғылар керек. Мысалға компьютердің USB порты ақпаратты ішкі жадта сақтап оны енгізуге немесе алуға көмек береді. сонымен қатар оны жіберуге арналған стандартты құрылғы болып табылады. Сондай ақ ақпаратты желіде жіберуге болады. Ол үшін компьютерде интернет құрылғылар болу керек
ТЕЛЕКОММУНИКАЦИИ, комплекс технических средств,предназначенных для передачи информации на расстояние. Информация поступает в самыхразнообразных видах: как цифровые сигналы, звуки, печатные слова или изображения. Пересылкавыполняется посредством ТЕЛЕГРАФА, ТЕЛЕФОНА и РАДИО, по проводам или РАДИОВОЛНАМИ; иногдаэти комбинируются. Телеграф был разработан в середине XIX в., а в конце столетия появилосьрадио. ТЕЛЕВИДЕНИЕ возникло в 1930-х гг. Есть два основных вида сообщений: ЦИФРОВЫЕ СИГНАЛЫ, вкоторых сообщение превращается в ряд кодированных импульсов, а затем посылается (как в АЗБУКЕМОРЗЕ), и АНАЛОГОВЫЕ СИГНАЛЫ, когда сообщение, например, голосовая речь, в серию передаваемых электрических импульсов, в волновой форме аналогичныхМОДУЛЯЦИЯМ
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 unit MatInt;
interface
type Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix; procedure MatPrint(a:Matrix;w:integer); procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix; // создает матрицу и инициализирует её нулями begin SetLength(Result,m,n); end;
procedure MatPrint(a:Matrix;w:integer); // выводит матрицу, отводя w позиций под элемент begin var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to n do Write(a[i,j]:w); Writeln end end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer); // возвращает значение максимального элемента и его координаты begin imax:=0; jmax:=0; var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j); Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1] end;
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 uses MatInt; begin var a:=MatCreate(5,8); var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do a[i,j]:=Random(-50,50); MatPrint(a,4); var irow,jcol,max:integer; MatMax(a,max,irow,jcol); Writeln('Максимальный А[',irow,',',jcol,']=',max) end.
ақпаратты жіберу және жеткізу адамзат қоғамы мен экономиканың дамуында маңызды фактор деп есептеледі. Осыған байланысты ақпаратты сақтау мен өңдеу мен қатар оларды тартау үшін арнайы құрылғылар керек. Мысалға компьютердің USB порты ақпаратты ішкі жадта сақтап оны енгізуге немесе алуға көмек береді. сонымен қатар оны жіберуге арналған стандартты құрылғы болып табылады. Сондай ақ ақпаратты желіде жіберуге болады. Ол үшін компьютерде интернет құрылғылар болу керек