Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
someone3452
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
1

Двумерный массив: арифметические действия с элементами, поиск элементов с заданными свойствами

31.10.2012, 20:05. Просмотров 782. Ответов 9
Метки нет (Все метки)

помогите пожалуйста написать программу для нахождения (массив риал 9х9 значения вводятся в массив с клавиатуры)
1)суммы элементов под главной диагональю но если элемент равен 1 то его не надо считать
2) найти количество единиц под главной диагональю
3) сумму элементов главной диагонали и другорядной
4)найти количество одинаковых чисел по столбцам и строкам но анализируя только диагонали
*у них по умолчанию одна пара одинаковых уже есть(это то место где они пересекаются А[5,5]) максимум будет 9 значений по столбцам и 9 по колонкам... анализировать надо только диагонали*
заранее спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 20:05
Ответы с готовыми решениями:

Арифметические действия с элементами массива, поиск элементов с заданными свойствами
Дан массив целых чисел, состоящий из 15 элементов. заполнить его с клавиатуры....

Массив: поиск элементов с заданными свойствами
Здравствуйте, нужна ваша помощь в пяти различных заданиях по турбо паскалю,...

Массив. Поиск элементов с заданными свойствами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: ...

Арифметические действия с элементами массива, поиск, обмен, удаление, выделение элементов
Создать и распечатать массив дробных чисел, вводимых с клавиатуры. Создать...

Одномерный массив. Поиск элементов с заданными свойствами
Даны массивы: HD1...HD10 - шифры дорог; k1... k10 - категории дорог; S1...S2...

9
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 22:39 2
помогите пожалуйста написать программу для нахождения (массив риал 9х9 значения вводятся в массив с клавиатуры)
1)суммы элементов под главной диагональю но если элемент равен 1 то его не надо считать
2) найти количество единиц под главной диагональю
3) сумму элементов главной диагонали и другорядной
4)найти количество одинаковых чисел по столбцам и строкам но анализируя только диагонали
*у них по умолчанию одна пара одинаковых уже есть(это то место где они пересекаются А[5,5]) максимум будет 9 значений по столбцам и 9 по колонкам... анализировать надо только диагонали*
заранее спасибо)

//Красным вообще не понятно что написано

Добавлено через 12 минут
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
program matrix;
uses crt;
const n=9;
var a:array[1..n,1..n] of integer;c,i,j,summa:integer;
begin
clrscr;
summa:=0;
c:=0;
writeln('ishodnaya matrica: ');
for i:=1 to n do begin
for j:=1 to n do begin
write ('a',i,',',j,'=');read(a[i,j]);
end;
end;
 
for i:=1 to n do begin
for j:=1 to n do begin
if i>j then begin
summa:=summa+a[i,j];
if a[i,j]=1 then begin
c:=c+1;
summa:=summa-1;
end;
end;
write (a[i,j]:3);
end;
writeln;
end;
writeln;
writeln ('summa glavnoi diaganali=',summa);
writeln ('koli4estvo edinic v glavnoi diaganali=',c);
readkey;
end.
1
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
31.10.2012, 22:40 3
Pascal
1
if i=j then begin
Это по вашему "под главной диагональю" ?

И во обще у вас там такой бред написан =)
1
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 22:45 4
Цитата Сообщение от Leshak Посмотреть сообщение
Pascal
1
if i=j then begin
Это по вашему "под главной диагональю" ?
блин, проглядел. Сонный сижу уже. прочитал как по главной диагонали. не правильно я написал извиняюсь

Добавлено через 3 минуты

И во обще у вас там такой бред написан =)
обоснуйте
0
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
31.10.2012, 22:52 5
1)суммы элементов под главной диагональю но если элемент равен 1 то его не надо считать

Pascal
1
2
3
4
5
if ( i > j ) then begin
  if  ( a[i,j] <> 1 )  then begin
      summa:=summa+a[i,j];
      c:=c+1;
end;
Всё просто на самом деле.

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

А отдельно уже потом считайте единицы.
Вот, даже сам малость ошибся =) Исправил.
1
someone3452
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
04.11.2012, 15:04  [ТС] 6
ещё нужно посчитать в этой же задачке сумму элементов на главной диагонали и побочной диагонали
не могу понять что не понятно?)
ну а 4 задание оно просто такое себе накрученное можно и без него в принципе) заранее спасибо)
0
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
04.11.2012, 17:08 7
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
program matrix;
uses crt;
const n=9;
var a:array[1..n,1..n] of integer;c,i,j,summa,d,p:integer;
begin
clrscr;
summa:=0;
c:=0;
p:=0;
d:=0;
writeln('ishodnaya matrica: ');
for i:=1 to n do begin
for j:=1 to n do begin
write ('a',i,',',j,'=');read(a[i,j]);
end;
end;
 
for i:=1 to n do begin
for j:=1 to n do begin
if i>j then begin
summa:=summa+a[i,j];
if a[i,j]=1 then begin
summa:=summa-1;
end;
end;
write (a[i,j]:3);
end;
writeln;
end;
 
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then begin
d:=d+a[i,j];
end;
end;
end;
 
for i:=1 to n do begin
for j:=1 to n+1 do begin
if j=n+1-i then begin
p:=p+a[i,j];
end;
end;
end;
 
for i:=1 to n do begin
for j:=1 to n+1 do begin
if i=j then begin
if a[i,j]=1 then begin
c:=c+1;
end;
end;
end;
end;
 
 
writeln;
writeln ('summa pod glavnoi diaganaly=',summa);
writeln ('koli4estvo edinic v glavnoi diaganali=',c);
writeln ('symma glavnoi diaganali=',d);
writeln ('symma pobo4noi diaganali=',p);
readkey;
end.
//На главной и побочной диагоналях единицы тоже складывает
1
someone3452
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
04.11.2012, 21:19  [ТС] 8
нужно вывести количество единиц под главной диагональю и не считать их
а сугубо главную и побочную диагональ надо посчитать полностью. выше написана программа соответствует тому что я только что написал? а то я что-то запутался
0
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
05.11.2012, 09:07 9
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
program matrix;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;c,i,j,d,p:integer;
begin
clrscr;
c:=0;
p:=0;
d:=0;
writeln('ishodnaya matrica: ');
for i:=1 to n do begin
for j:=1 to n do begin
write ('a',i,',',j,'=');read(a[i,j]);
end;
end;
 
 
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then begin
d:=d+a[i,j];
end;
end;
end;
 
for i:=1 to n do begin
for j:=1 to n+1 do begin
if j=n+1-i then begin
p:=p+a[i,j];
end;
end;
end;
 
for i:=1 to n do begin
for j:=1 to n+1 do begin
if i>j then begin
if a[i,j]=1 then begin
c:=c+1;
end;
end;
end;
end;
 
 
writeln;
writeln ('koli4estvo edinic pod glavnoi diaganaly=',c);
writeln ('symma glavnoi diaganali=',d);
writeln ('symma pobo4noi diaganali=',p);
readkey;
end.
1
someone3452
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
06.11.2012, 16:04  [ТС] 10
спасибо огромное за потраченное время)
0
06.11.2012, 16:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2012, 16:04

Одномерный массив: поиск элементов с заданными свойствами
помогите решить задание 4.Одномерные массивы. и задание 5.двумерные массивы....

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов....

Массив: поиск элементов, арифметические действия
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1....


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

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

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