ответ:
подписывайся на меня
какую роль играет для меня информатика, информатика дает нам много информации что изучает что то новое каждый день много програм и приложений, роботов коды для роботов мы люди это эпоха гаджетов что праграмиравоны за счет информации, люди дает мнения а другие используя коменты новое информатика для нас как открытое знание. много в мире професий связанные с информатика если знать от а до я то тогда можно взламывать , создавать, пиидумавать, рисовать и т. д информатика это крутяк.
только в сети с полносвязной топологией для соединения каждой пары компьютеров имеется отдельная линия связи. во всех остальных случаях возникает вопрос о том, как организовать совместное использование линий связи несколькими компьютерами.
в вычислительных сетях используют как индивидуальные линии связи между компьютерами, так и разделяемые, когда одна линия связи попеременно используется несколькими компьютерами.
существуют различные технологии организации сети:
ethernet – (эзернет) – это наиболее популярная сетевая технология, используемая для создания локальных сетей. основной принцип, положенный в основу – случайный метод доступа к разделяемой среде передачи данных. в качестве такой среды может использоваться коаксиальный кабель, витая пара, оптоволокно или радиоволны. топология электрических связей –общая шина.
суть метода случайного доступа в следующем – информацию компьютер вначале убеждается, что сеть свободна, потом передает информацию. ее принимают все другие компьютеры. если информация предназначена им (они анализируют адрес назначения), то они ее копируют.
главное достоинство сети ethernet – – достаточно иметь сетевые адаптеры на компьютерах и кусок коаксиального кабеля.
token ring – кольцевая сеть, каждый узел кольца ожидает прибытие пакета информации адресованного ему.
однако в последние годы наметилась тенденция отказа от разделяемых сред передачи данных. это связано с низкой производительностью таких сетей. компьютеры подключаются индивидуальными линиями связи к специальному устройству - коммутатору. следует подчеркнуть, что связи между компьютерами остаются разделяемыми.
в сетях отказ от разделяемых линий связи объясняется техническими причинами: компьютеры могут затратить больше времени на переговоры о том, кому сейчас можно использовать линии связи, чем непосредственно на передачу данных по линии связи.
// Внимание! Если программа не работает, обновите версию!
begin
var f:real->real:=
x->cos(0.75*Power(x,0.25)-0.5*Power(x,0.5)+0.25*Power(x,0.75));
var a:=MatrGen(10,10,(i,j)->f(5+(10*i+j)*0.75));
Writeln('*** Исходный массив ***'); a.Println(7,3); Writeln(70*'-');
var fo:=OpenWrite('output.txt');
Writeln(fo,'*** Исходный массив ***');
for var i:=0 to 9 do begin
for var j:=0 to 9 do Write(fo,a[i,j]:7:3);
Writeln(fo)
end;
Writeln(fo,70*'-');
Write('Сформированный массив: ');
Write(fo,'Сформированный массив: ');
var b:=a.ElementsWithIndexes.Where(x->(x[0]=x[1]) or (x[0]=9-x[1]))
.Select(x->x[2]).ToArray;
b.ForEach(x->Write(x:7:3)); Writeln;
b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
Write('Отсортированный массив:');
Write(fo,'Отсортированный массив:');
// пузырьковая сортировка
for var i:=0 to 18 do
for var j:=0 to 18-i do
if b[j]>b[j+1] then Swap(b[j],b[j+1]);
b.ForEach(x->Write(x:7:3)); Writeln;
b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
fo.Close
end.
Результат
*** Исходный массив ***
0.668 0.629 0.589 0.550 0.509 0.469 0.428 0.387 0.346 0.305
0.263 0.222 0.180 0.139 0.098 0.057 0.016 -0.024 -0.064 -0.104
-0.143 -0.182 -0.220 -0.258 -0.295 -0.331 -0.367 -0.402 -0.437 -0.470
-0.503 -0.535 -0.566 -0.596 -0.625 -0.653 -0.680 -0.706 -0.732 -0.756
-0.779 -0.801 -0.822 -0.841 -0.860 -0.878 -0.894 -0.909 -0.923 -0.936
-0.948 -0.958 -0.968 -0.976 -0.983 -0.988 -0.993 -0.996 -0.999 -1.000
-1.000 -0.999 -0.996 -0.993 -0.988 -0.983 -0.976 -0.968 -0.959 -0.949
-0.939 -0.927 -0.914 -0.900 -0.885 -0.869 -0.853 -0.835 -0.817 -0.798
-0.778 -0.757 -0.735 -0.713 -0.690 -0.667 -0.642 -0.617 -0.592 -0.566
-0.539 -0.512 -0.485 -0.457 -0.429 -0.400 -0.371 -0.341 -0.312 -0.282
Сформированный массив: 0.668 0.305 0.222 -0.064 -0.220 -0.402 -0.596 -0.680 -0.860 -0.878 -0.983 -0.988 -0.993 -0.976 -0.914 -0.835 -0.757 -0.592 -0.539 -0.282
Отсортированный массив: -0.993 -0.988 -0.983 -0.976 -0.914 -0.878 -0.860 -0.835 -0.757 -0.680 -0.596 -0.592 -0.539 -0.402 -0.282 -0.220 -0.064 0.222 0.305 0.668
Вариант без пузырьковой сортировки
begin
var f:real->real:=
x->cos(0.75*Power(x,0.25)-0.5*Power(x,0.5)+0.25*Power(x,0.75));
var a:=MatrGen(10,10,(i,j)->f(5+(10*i+j)*0.75));
Writeln('*** Исходный массив ***'); a.Println(7,3); Writeln(70*'-');
var fo:=OpenWrite('output.txt');
Writeln(fo,'*** Исходный массив ***');
for var i:=0 to 9 do begin
for var j:=0 to 9 do Write(fo,a[i,j]:7:3);
Writeln(fo)
end;
Writeln(fo,70*'-');
Write('Сформированный массив: ');
Write(fo,'Сформированный массив: ');
var b:=a.ElementsWithIndexes.Where(x->(x[0]=x[1]) or (x[0]=9-x[1]))
.Select(x->x[2]).ToArray;
b.ForEach(x->Write(x:7:3)); Writeln;
b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
Write('Отсортированный массив:');
Write(fo,'Отсортированный массив:');
b.Sort; // вместо пузырьковой сортировки
b.ForEach(x->Write(x:7:3)); Writeln;
b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
fo.Close
end.