Жақсы жағыда, жаман жағыда бар. Мысалға мектеп те, универде интернетке кіріп шаруаларыңды бітіріп алуға болады. Сымсыз байланыс. Ал жаман жағы
Ғалымдар мұндай шешімге мектеп оқушыларына жүргізілген зерттеуден кейін келді. Олар оқушылар ұйқыға жатқанда жастықтарының астына Wi-Fi желісі қосылған смартфондар салып жүрген. Ертеңінде балалардың денсаулық жағдайын тексеріп, оқушылардан бас ауруды, шаршағандықты байқаған.
Сонымен қатар, үйінде Wi-Fi желісін пайдаланушылар өзінің бөлме өсімдіктеріне назар аударулары тиіс. Өйткені жүргізілген тәжірибе негізінде Wi-Fi желісі өсімдіктерді құртатыны дәлелденді. Қосулы Wi-Fi-модемімен бір бөлмеде тұрған 6 өсімдік түрі 12 күнде-ақ құрғап, сарғая бастаған.
Var a:array of array of integer; c:array of array of integer; ma:array of array of integer; i,j,n:integer; begin; randomize; readln(n); setlength(a,n+1); //задаём размерность динамических массивов setlength(c,n+1); setlength(ma,n+1); for i:=1 to n do begin; setlength(a[i],n+1); setlength(c[i],n+1); setlength(ma[i],n+1); end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10); write(a[i,j]:4); end; end; writeln;
writeln('Matrix C:'); //аналогично for i:=1 to n do begin; writeln; for j:=1 to n do begin; c[i,j]:=random(10); write(c[i,j]:4); end; end;
for i:=1 to n do //сохраняем матрицу C для транспонации for j:=1 to n do ma[i,j]:=c[i,j]; writeln;
writeln('Transpose matrix C:'); //транспонируем C for i:=1 to n do begin; writeln; for j:=1 to n do begin; c[i,j]:=ma[j,i]; write(c[i,j]:4); end; end;
writeln; writeln('Final matrix:'); // получаем финальную матрицу for i:=1 to n do begin; writeln; for j:=1 to n do begin; ma[i,j]:=2*c[i,j]*a[i,j]; {по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A} write(ma[i,j]:4); end; end; end.
Жақсы жағыда, жаман жағыда бар. Мысалға мектеп те, универде интернетке кіріп шаруаларыңды бітіріп алуға болады. Сымсыз байланыс. Ал жаман жағы
Ғалымдар мұндай шешімге мектеп оқушыларына жүргізілген зерттеуден кейін келді. Олар оқушылар ұйқыға жатқанда жастықтарының астына Wi-Fi желісі қосылған смартфондар салып жүрген. Ертеңінде балалардың денсаулық жағдайын тексеріп, оқушылардан бас ауруды, шаршағандықты байқаған.
Сонымен қатар, үйінде Wi-Fi желісін пайдаланушылар өзінің бөлме өсімдіктеріне назар аударулары тиіс. Өйткені жүргізілген тәжірибе негізінде Wi-Fi желісі өсімдіктерді құртатыны дәлелденді. Қосулы Wi-Fi-модемімен бір бөлмеде тұрған 6 өсімдік түрі 12 күнде-ақ құрғап, сарғая бастаған.
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('Matrix C:'); //аналогично
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=random(10);
write(c[i,j]:4);
end;
end;
for i:=1 to n do //сохраняем матрицу C для транспонации
for j:=1 to n do
ma[i,j]:=c[i,j];
writeln;
writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=ma[j,i];
write(c[i,j]:4);
end;
end;
writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
write(ma[i,j]:4);
end;
end;
end.