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

Определить произведение элементов в тех строках, которые не содержат отрицательных элементов

21.11.2012, 11:36. Просмотров 1404. Ответов 4
Метки нет (Все метки)

Дана целочисленная прямоугольная матрица. Определить произведение элементов в тех строках, которые не содержат отрицательных элементов.

Добавлено через 6 минут
помогите)))
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2012, 11:36
Ответы с готовыми решениями:

Определить произведение элементов в тех строках, которые не содержат отрицательных элементов
Дана целочисленная квадратная матрица. Определить: 1. произведение элементов в тех строках,...

Определить произведение элементов в тех строках, которые не содержат отрицательных элементов
Дана целочисленная квадратная матрица. Определить: 1) произведение элементов в тех строках,...

Дана целочисленная квадратная матрица.Определить произведение элементов в тех строках которые не содержат отрицательных элементов
знаю только как заполнить матрицу

Найти произведение элементов в тех строках, которые не содержат отрицательных элементов
Дана целочисленная матрица. Определить: 1. произведение элементов в тех строках, которые не...

4
3015 / 1903 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
21.11.2012, 11:39 2
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
Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m: Integer;
  p: Longint;
  f: Boolean;
BEGIN
Randomize;
Repeat
 Writeln('Введите размеры прямоугольной матрицы: ');
 Readln(n,m);
until n<>m;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(51)-10;
    Write(x[i,j]:4);
  end;
  Writeln
end;
For i:=1 to n do
begin
  p:=1;
  f:=True;
  For j:=1 to m do
  If x[i,j]<0 Then f:=False;
  If f Then
  begin
    For j:=1 to m do
    p:=p*x[i,j];
    Writeln(i,' строка ',p);
  end;
end;
Readln
END.
2
2 / 2 / 0
Регистрация: 07.11.2012
Сообщений: 26
21.11.2012, 12:38  [ТС] 3
Процедуры добавить нужно,ибо как это сделать,чтоб программа была отдельна по частям?

Добавлено через 4 минуты
Хелп-))

Добавлено через 11 минут
ребятаааа)))))

Добавлено через 9 минут
ну хелп
1
Модератор
60132 / 45288 / 31253
Регистрация: 18.05.2008
Сообщений: 108,766
21.11.2012, 12:49 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
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
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
procedure matrix(var a:mtr;var n,m:byte);
var i,j:byte;
begin
repeat
 writeln('Введите размеры прямоугольной матрицы: ');
 readln(n,m);
until (n<>m)and(n in [1..nmax])and(m in [1..nmax]);
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    repeat
    a[i,j]:=-2+random(11);
    until a[i,j]<>0;
    write(a[i,j]:4);
   end;
  writeln
 end;
end;
function nootr(a:mtr;m,k:byte):boolean;
var i:byte;
    f:boolean;
begin
i:=1;
f:=true;
while (i<=m) and f do
if a[k,i]<0 then f:=false
else i:=i+1;
nootr:=f;
end;
function prz(a:mtr;m,k:byte):real;
var i:byte;
    p:real;
begin
p:=1;
for i:=1 to m do
p:=p*a[k,i];
prz:=p;
end;
 
var a:mtr;
    n,m,k,i:byte;
begin
clrscr;
randomize;
matrix(a,n,m);
writeln('Произведение в строках, где нет отрицательных элементов:');
k:=0;
for i:=1 to n do
if nootr(a,m,i) then
 begin
  k:=1;
  writeln('Произведение в строке ',i,'=',prz(a,m,i):0:0);
 end;
if k=0 then write('Нет строк без отрицательных элементов');
readln
end.
0
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
Завершенные тесты: 1
21.11.2012, 17:40 5
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
uses crt;
 
const
  mmax = 10;
  nmax = 10;
 
type
  Matrix = array [1..mmax, 1..nmax] of integer;
 
 
procedure Enter(var A : Matrix; m, n : integer);
var
  i, j : integer;
begin
for i := 1 to m do
  for j := 1 to n do
    begin
    Write('A[', i, ',', j, '] = ');
    Readln(A[i, j]);
    end;
end;
 
procedure OutPut(A : Matrix; m, n : integer);
var
  i, j : integer;
begin
Writeln('Исходная матрица: ');
for i := 1 to m do
  begin
  for j := 1 to n do
    Write(A[i, j], ' ');
  Writeln;
  end;
end;
 
procedure Negative (A : Matrix; m, n : integer);
var
  i, j, k : integer;
  Product : double;
  flag : boolean;
begin
for i := 1 to m do
  begin
  flag := true;
  for j := 1 to n do
   if (A[i, j] < 0) and flag then flag := false;
  if flag then
    begin
    Product := 1;
    for k := 1 to n do
      Product := Product*A[i, k];
    Writeln('Произведение ', i, ' строки = ', Product:0:0);  
    end;
  end; 
end;
  
var
  A : Matrix;
  m, n : integer;
  
begin
repeat
Write('Количество строк (не более ', mmax, ') : ');
Readln(m);
until m in [1..mmax];
repeat
Write('Количество столбцов (не более ', nmax, ') : ');
Readln(n);
until n in [1..nmax];
Enter(A, m, n);
OutPut(A, m, n);
Negative(A, m, n);  
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2012, 17:40

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

Найти произведение элементов в тех строках матрицы, которые не содержат отрицательных элементов
Дана целочисленная квадратная матрица. Определить: 1. Произведение элементов в тех строках,...

Определить сумму элементов в тех строках, которые не содержат отрицательных элементов
Помогите сделать лабу в универ Задача №1 Каждый пункт нижеприведенного задания оформить в виде...

Определить сумму элементов в тех строках, которые не содержат отрицательных элементов
Дана целочисленная прямоугольная матрица. Определить: 1. сумму элементов в тех строках, которые не...

Определить сумму элементов в тех строках матрицы, которые не содержат отрицательных элементов
Дана целочисленная квадратная матрица. Определить: 1) сумму элементов в тех строках, которые не...


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

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

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