1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады
Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі
2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту
3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді
4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.
PROGRAM MatrixMax var a : array [1..3, 1..4] of integer b : array [1..3] of integer Max, i, j : integer BEGIN crt; for i:=1 to 3 do begin for j:=1 to 4 do begin read (a[i, j]); // вводим элементы в массив a[1..3, 1..4] end; writeln; // делаем пустой перевод строки end; for i:=1 to 3 do begin b[i] := a[i, 1]; for j:=1 to 4 do begin if a[i, j] > b[i] then b[i] := a[i, j]; // находим максимальный элемент в каждой строке и записываем в b[1..3] end; end; Max := b[1]; for i:=1 to 3 do if b[i] > Max then Max := b[i]; // Находим максимальный элемент из максимальных элементов writeln (Max); // Выводим его на экран END.
Объяснение:
1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады
Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі
2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту
3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді
4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.