Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Broccolli_4444
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 28
#1

Найти произведение элементов в тех строках, которые не содержат отрицательных элементов - Turbo Pascal

06.12.2013, 22:49. Просмотров 345. Ответов 4
Метки нет (Все метки)

Дана целочисленная матрица. Определить:
1. произведение элементов в тех строках, которые не содержат отрицательных элементов(оформить в виде функции).
2. Максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы(оформить в виде процедуры).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2013, 22:49
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти произведение элементов в тех строках, которые не содержат отрицательных элементов (Turbo Pascal):

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

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

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

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

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

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

4
Cyborg Drone
Модератор
4727 / 2894 / 1130
Регистрация: 17.08.2012
Сообщений: 9,219
07.12.2013, 04:44 #2
Выкладывайте Ваш код, поможем.
1
Broccolli_4444
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 28
09.12.2013, 16:19  [ТС] #3
Мне бы программу с нуля и я без понятия что за коды.
0
Cyborg Drone
Модератор
4727 / 2894 / 1130
Регистрация: 17.08.2012
Сообщений: 9,219
09.12.2013, 18:16 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Код - это и есть программа.

Добавлено через 1 час 55 минут
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
program matt;
 
const m = 7;
 
type mm = array [1..m] of integer;
 
var i, j, s, max, t: integer;
    a: array [1..m] of mm;
    b, c: boolean;
 
function p(x: mm): integer;
var t, i: integer;
begin
  t := 1;
  for i := 1 to m do t := t * x[i];
  p := t
end;
 
procedure maxsum;
var i, j, k, t: integer;
begin
  max := a[m, 1];
  t := m;
  for k := -m to m do if k <> 0 then
    begin
      s := 0;
      for i := 1 to m do if (i + k > 0) and (i + k <= m) then s := s + a[i, i + k];
      if s > max then
        begin
          max := s;
          t := k
        end;
    end;
  writeln('Max sum of ', t, ' diagonal = ', max)
end;
 
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          a[i, j] := random(12) - 2;
          write(a[i, j]:5)
        end;
      writeln
    end;
  writeln('Products of full positive strings:');
  c := true;
  for i := 1 to m do
    begin
      b := true;
      for j := 1 to m do if a[i, j] < 0 then
        begin
          b := false;
          break
        end;
      if b then
        begin
          c := false;
          writeln(i, ': ', p(a[i]))
        end;
    end;
  if c then writeln('No positive strings.');
  maxsum;
  readln
end.
1
Broccolli_4444
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 28
09.12.2013, 20:57  [ТС] #5
Огромное спасибо.
0
09.12.2013, 20:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 20:57
Привет! Вот еще темы с ответами:

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

Подсчитать сумму элементов в тех строках, которые не содержат отрицательных элементов - Turbo Pascal
Подсчитать сумму элементов в тех строках, которые не содержат отрицательных элементов.

Посчитать сумму элементов в тех строках матрицы, которые не содержат отрицательных элементов - Turbo Pascal
Условие задачи: 1) Посчитать сумму элементов в тех строках, которые не содержат отрицательных элементов. (есть и дальнейшие пункты, но...

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


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

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

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