Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 3
1

Дана матрица. Построить n-мерный вектор по правилу

13.03.2014, 14:05. Просмотров 1795. Ответов 4
Метки нет (Все метки)

Дана матрица А(nxn). Построить n-мерный вектор по правилу: если в столбце матрицы с номером i есть отрицательные элементы, то bi = 0, в противном случае bi = 1.
Помогите
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2014, 14:05
Ответы с готовыми решениями:

Дана матрица. Построить последовательность по правилу
дана действительная квадратная матрица порядка n.Построить последовательность а1,...,аn по правилу:...

Дана квадратная матрица. Построить последовательность а1,...,аn по правилу
дана действительная квадратная матрица порядка n.Построить последовательность а1,...,аn по правилу:...

Дана квадратная матрица. Построить вектор
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где...

Дана квадратная матрица . Построить вектор
3. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – количество четных...

4
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5401 / 3235 / 2375
Регистрация: 22.11.2013
Сообщений: 9,129
13.03.2014, 14:55 2
Pascal
1
2
3
4
5
for i:=1 to n do begin
  b[i]:=1;
  for j:=1 to n do
    if a[j]<0 then b[i]:=0;
end;
0
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 3
13.03.2014, 15:20  [ТС] 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
program ff;
const h=30;
var a:array[1..h,1..h] of integer;
b:array[1..h] of integer;
i,j,n:integer;
begin
randomize;
write('Размер матрицы = ');
readln(n);
for i:=1 to n do b[i]:=1;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[ i,j]:=random(10)-2;
if a[ i,j]<0 then b[ i]:=0;
write(a[ i,j],' ');
end;
end;
writeln;
for i:=1 to n do 
write(b[i],' ');
end.
вот что у меня получилось,но почему-то он выводит не так как надо.
поправьте что не так
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5401 / 3235 / 2375
Регистрация: 22.11.2013
Сообщений: 9,129
13.03.2014, 15:32 4
Так?
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
program ff;
const h=30;
var
  a: array [1..h,1..h] of integer;
  b: array [1..h] of integer;
  i, j, n: integer;
begin
  randomize;
  write('Размер матрицы = ');
  readln(n);
  for j:=1 to n do begin
    b[j]:=1;
    for i:=1 to n do begin
      a[i,j]:=random(10)-2;
      if a[i,j]<0 then b[j]:=0;
    end;
  end;
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
  for i:=1 to n do write(b[i]:4);
  writeln;
end.
1
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 3
13.03.2014, 15:44  [ТС] 5
Большое спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2014, 15:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана матрица С(4,3).Построить в ней вектор А(4)

Дана квадратная матрица. Построить вектор
Дана квадратная матрица A (nхn). Построить вектор b, где bi, i=1,…,n – сумма положительных...

Дана квадратная матрица. Построить вектор
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где...

Дана квадратная матрица. Построить вектор
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.