Вопрос по информатике:
Допишите программу:
-поменяйте местами первый и последний столбики;
Вот программа:
Program JHK;
const n=5;
var ns,a:real;j,p,i,pr,nm:integer;d:array[1..n,1..n]of real; m:array[1..n] of real;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
d[i,j]:=sin(i+j);
write(d[i,j]:6:2);
end;
writeln;
end;
- 03.05.2016 08:19
- Информатика
- remove_red_eye 4242
- thumb_up 17
Ответы и объяснения 1
Если задача заключается в том, что нужно поменять местами два столбца матрицы, то в приведенном фрагменте много лишних переменных.
Программа:
Program JHK;
const n=5;
var d:array[1..n,1..n]of real;
i,j:integer; a:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
d[i,j]:=sin(i+j);
write(d[i,j]:6:2);
end;
writeln;
end;
for i:=1 to n do
begin a:=d[i,1]; d[i,1]:=d[i,n]; d[i,n]:=a; end;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(d[i,j]:6:2);
writeln;
end;
end.
Результат:
Исходный массив:
0.91 0.14 -0.76 -0.96 -0.28
0.14 -0.76 -0.96 -0.28 0.66
-0.76 -0.96 -0.28 0.66 0.99
-0.96 -0.28 0.66 0.99 0.41
-0.28 0.66 0.99 0.41 -0.54
Измененный массив:
-0.28 0.14 -0.76 -0.96 0.91
0.66 -0.76 -0.96 -0.28 0.14
0.99 -0.96 -0.28 0.66 -0.76
0.41 -0.28 0.66 0.99 -0.96
-0.54 0.66 0.99 0.41 -0.28
- 05.05.2016 00:44
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.