0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
1

Найти произведение суммы положительных чисел в главной диагонали на количество четных чисел побочной диагонали матрицы F(6,6).

30.11.2012, 18:25. Показов 1767. Ответов 11
Метки нет (Все метки)

Нужно программу составить в паскале (лабы):

2)Найти произведение суммы положительных чисел в главной диагонали на количество четных чисел побочной диагонали матрицы F(6,6).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2012, 18:25
Ответы с готовыми решениями:

Найти произведение двух чисел: суммы элементов главной диагонали и суммы элементов побочной диагонали
В квадратной матрице 4*4 1)найти произведение двух чисел: суммы элементов главной диагонали и...

Найти произведение главной диагонали и суммы побочной диагонали матрицы
Дана матрица действительных чисел M(n,m). Найти произведение главной диагонали и суммы побочной...

В области, лежащей выше побочной диагонали найти произведение и количество положительных четных элементов
как с помощь random будет выглядеть код, подскажите пожалуйста Дан массив A(10,10). В области,...

Найти произведение и количество четных положительных элементов, расположенных выше главной диагонали
Дан массив А .Найти произведение и количество четных положительных элементов,расположенных выше...

11
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
01.12.2012, 09:26 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
const
  n=6;
var
  a: array[1..n,1..n] of integer;
  i,j,s1,s2: integer;
begin
  randomize;
  s1:=0; s2:=0;
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
      if (i=j) then s1:=s1+a[i,j];
      if (i+j=n+1)and(a[i,j] mod 2=0) then inc(s2);
    end;
    writeln;
  end;
  writeln;
  writeln('Произведение = ',s1*s2);
  readln;
end.
1
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
01.12.2012, 12:14  [ТС] 3
спасибо) напишите ещё блок схему ... к этой программе
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
01.12.2012, 12:37 4
блок схема
Миниатюры
Найти произведение суммы положительных чисел в главной диагонали на количество четных  чисел  побочной  диагонали  матрицы F(6,6).  
1
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
08.12.2012, 23:18  [ТС] 5
Нужно заменить функцию randomize на ввод матрицы , препод обматюкал меня , ибо мы такого не учили )
что нужно изменить в программе чтоб без рандомайза написать, и измените блок схему....




0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
09.12.2012, 10:07 6
знакомый код )
1. Если возникли вопросы по теме - не стоит создавать новую, пишите в ту же старую тему.
2. Код проще скопировать в сообщение, тогда с ним проще работать, едва ли кто будет набирать код по картинке.
3. Что значит "без randomize"? Нужно вводить элементы вручную? Или вы пишете не на Turbo, а на PascalABC (там randomize не нужен).
1
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
09.12.2012, 10:27  [ТС] 7
Просто мы не учили функцию randomize, её препод просит заменить на то что мы учили, я так понимаю рандомайз это ввод матрицы автоматом ,из кокогото интервала , а мне надо чтоб я вручную вводил числа) бред какойто но лабу завтра сдать надо или армия) да вы мне её писали))

Добавлено через 2 минуты
я на 1 курсе мы рандомайза не учили просто)) сделай старым дедовским способом) я не програмист обьяснить не могу толком(
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
09.12.2012, 12:06 8
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
const
  n=3;
var
  a: array[1..n,1..n] of integer;
  i,j,s1,s2: integer;
begin
  s1:=0; s2:=0;
  for i:=1 to n do
  begin
    writeln('Введите ',n,' элементов ',i,'-й строки: ');
      for j:=1 to n do read(a[i,j]);
    writeln;
  end;
  
  writeln('Исходная матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(a[i,j]:4);
      if (i=j) then s1:=s1+a[i,j];
      if (i+j=n+1)and(a[i,j] mod 2=0) then inc(s2);
    end;
    writeln;
  end;
 
  writeln;
  writeln('Произведение = ',s1*s2);
  readln;
end.
1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
09.12.2012, 12:08 9
Цитата Сообщение от Amazon Посмотреть сообщение
лабу завтра сдать надо или армия
защитники Родине тоже нужны..
Миниатюры
Найти произведение суммы положительных чисел в главной диагонали на количество четных  чисел  побочной  диагонали  матрицы F(6,6).  
1
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
09.12.2012, 12:38  [ТС] 10
да конечно нужны)) но мне хотябы через лет 5)))))) спасибо)))) капец загоняли надо 5 лаб сделать) а я дубина в этом деле ) называеться поступил на Сварочное производство, некода не думал что там будет чтото подобное)

Добавлено через 5 минут
вопрос :

22 строчка "if (i+j=n+1)and(a[i,j] mod 2=0) then inc(s2);"

что такое inc(s2)?
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
09.12.2012, 13:30 11
Цитата Сообщение от Amazon Посмотреть сообщение
что такое inc(s2)?
то же что
Pascal
1
s2:=s2+1;
то есть счетчик, увеличивающий переменную s2 на единицу
1
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 33
09.12.2012, 15:12  [ТС] 12
я понял спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2012, 15:12
Помогаю со студенческими работами здесь

Посчитать количество нечетных чисел под главной диагональю и произведение элементов на побочной диагонали.
Дан квадратный массив, заполненный случайными числами из промежутка . Посчитать количество нечетных...

Найти произведение суммы элементов главной и суммы элементов побочной диагонали матрицы
Помогите решить задачу, пожалуйста. Я в ассемблере вообще ничего не понимаю, в голову не лезет хоть...

Подсчитать количество четных чисел, лежащих ниже главной диагонали матрицы
Ввести с клавиатуры одно или два целых числа N и M. Создать динамический двумерный массив размера...

Подсчитать количество положительных чисел, лежащих выше главной диагонали матрицы
Подсчитать количество положительных чисел, лежащих выше главной диагонали.

Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали
Private Sub Command1_Click() Dim A() As Single, N As Integer Dim I%, J%, K%, As Single Dim T As...

Найти сумму элементов главной диагонали и произведение элементов побочной диагонали матрицы
Дана квадратная матрица (10x10) целых чисел. Найти сумму элементов в главной диагонали и...


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

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

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