Ascar0n
1

Даны действительные числа A1, ..., An, действительная квадратная матрица порядка n (n>=6). Получить действительную матрицу размера n´(n+1), вставив

10.03.2012, 14:28. Показов 5262. Ответов 6
Метки нет (Все метки)

Даны действительные числа A1, ..., An, действительная квадратная матрица порядка n (n>=6). Получить действительную матрицу размера n´(n+1), вставив в исходную матрицу между пятым и шестым столбцами новый столбец с элементами A1, ..., An.

напишите пж программу
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2012, 14:28
Ответы с готовыми решениями:

Дана действительная матрица размера a1...a64. Получить действительную матрицу порядка 8:
Дана действительная матрица размера a1...a64. Получить действительную матрицу порядка 8: Всю...

Даны действительные числа x1, ., x8. Получить действительную квадратную матрицу порядка 8
Даны действительные числа x1, ..., x8. Получить действительную квадратную матрицу порядка 8:

Даны действительные числа x1, ..., x8. Получить действительную квадратную матрицу порядка 8
x1 ,x2 ...x8 x1^2,x2^2..x8^2 ....................... x1^8,x2^8..x8^8. помогите новичку:...

Даны действительные числа a1,...,a64.Получить действительную квадратную матрицу порядка 8
2)Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка...

6
любитель покушать
686 / 640 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
10.03.2012, 15:46 2
Ascar0n,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
var
a: array[1..10,1..11] of integer;
b: array[1..10] of integer;
i,k,n,j: integer;
 
begin
write('Введите размерность матрицы, не больше 10 и не меньше 6 : ');
repeat
read(n);
until (n>=6) and (n<11);
 
writeln('Введите элементы одномерного массива:');
for k:=1 to n do begin
read(b[k]);
end;
 
writeln('Для вывода результата нажмите ENTER...');
readln;
clrscr;
 
write('Исходная матрица:');
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
 
for j:=n+1 downto 6 do begin
for i:=1 to n do begin
a[i,j+1]:=a[i,j];
end;
end;
 
for i:=1 to n do begin
a[i,6]:=b[i];
end;
 
writeln;
writeln('Полученная матрица:');
for i:=1 to n do begin
for j:=1 to n+1 do begin
write(a[i,j]:4);
end;
writeln;
end;
end.
0
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
10.03.2012, 16:51 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var i,j,k,k1,n,m: integer;
    a: array [1..7,1..7] of real;
begin
 clrscr;
 n:=6;
 m:=6;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3:2,' ');
    end;
   writeln;
  end;
  k1:=5;
    for i:= 1 to n do
     for j:= n downto k1+1 do
      a[i, j+1]:= a[i,j];
  writeln('Введите числа от 1 до ',n);
  for i:= 1 to n do
    readln(a[i,k1+1]);
  Inc(m);
   writeln;
  for i:=1 to n do
   begin
   for j:=1 to m do
     write(a[i,j]:3:2,' ');
   writeln;
   end;
 readln;
end.
0
любитель покушать
686 / 640 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
10.03.2012, 17:08 4
Цитата Сообщение от Севак Посмотреть сообщение
Pascal
1
a: array[1..10,1..11] of integer;
заменить на
Pascal
1
a: array[1..10,1..12] of integer;
0
BumerangSP
10.03.2012, 17:59
  #5

Не по теме:

Я воде бы первый код выложил О_о Т.е. точно видел, как кроме моего ни одного сообщения не было. Мистика какая-то :):) Может с обновлением что-то не так.

1
Ev[G]eN
10.03.2012, 18:02
  #6

Не по теме:

BumerangSP, это я переместил сообщение Севака в данную тему, что бы удалять такую же от ув. ТС..так что все с обновлением в порядке :) :senor:

1
BumerangSP
10.03.2012, 20:31     Даны действительные числа A1, ..., An, действительная квадратная матрица порядка n (n>=6). Получить действительную матрицу размера n´(n+1), вставив
  #7

Не по теме:

Ах, вон оно как:)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2012, 20:31

Даны действительные числа a1.a64. Получить действительную квадратную матрицу порядка 8
Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка 8,...

Даны действительные числа a1,a2,…,Anxn. Получить действительную квадратную матрицу B порядка Н
Даны действительные числа a1,a2,…,an×n. Получить действительную квадратную матрицу B порядка n,...

Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя её блоки размера n x n!
Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя её блоки...

Даны действительные числа, получить действительную матрицу порядка 8, элементы которой расположены по схеме
Даны действительные числа а1, а2, ..., а64. Получить действительную матрицу 8 порядка, элементы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru