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.
Сетевая паутина Оплела весь белый свет. Не пройти детишкам мимо. Что же это? интернет
like 5 0 dislike Он знает всё и даже больше, И к нам на поспешит. Любой вопрос, пусть очень сложный, Мгновенно с лёгкостью решит. Плетёт свою он паутину, Хотя, по сути, не паук. Он видит всё. Вы догадались? А, ну-ка, что это за друг? интернет
like 2 0 dislike Это будто паутина, В ней найдёшь ты всё о всех: О животных, о машинах, Будет дождь сегодня, снег? Всё про мир и о планете Прочитаешь в... интернете
like 4 0 dislike Её называют всемирная сеть, Чего в этой сети только нет! Она всё расскажет и даже покажет. Она называется как?... интернет
like 2 0 dislike Он всех нас объединяет, Обо всём на свете знает, Он кино тебе покажет, Обо всём тебе расскажет. интернет
like 4 0 dislike В нём есть игры и соцсети, Фильмы, почта, курс валют. Есть все новости планеты, В нём танцуют и поют. интернет
like 8 0 dislike Средство связи редким было, А сейчас — у всех оно. Вот уже беспроводное, Раньше — оптоволокно. интернет
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.
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет
like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет
like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете
like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет
like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет
like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет
like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет