Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
4 / 4 / 8
Регистрация: 16.10.2012
Сообщений: 93
1

Функция подсчета суммы цифр каждого элемента в двумерном массиве

27.02.2013, 21:08. Просмотров 1839. Ответов 3
Метки нет (Все метки)

Вообще мне надо программа, которая с функцией подсчета суммы цифр каждого элемента в двумерном массиве, сортирует по убыванию рядок, то есть: двумерный массив n=3,n=3;
55 31 48
81 64 52
32 -4 15
-->
3+1=4 5+5=10 4+8=12
52 81 64
-4 32 15

я попытался написать программу, это к.р заканчиваем паскаль и переходим на с++, но результатов нет и кажется бред написал. поиск делал методом пузырька.
подпрограмма ищет сумму цифр числа, изменил ее, отдельно работала, но все равно не получается со всей программой...
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
program zz;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
b,i,j:byte;
m,p:integer;
function funccifr(sum:integer):integer;
var x:integer;
 begin
 read(x);
 sum:=0;
while x>0 do
  begin
sum:=sum+(x mod 10);
 x:=x div 10;
 end;
writeln('Result: ',sum);
end;
 begin
  for i:=1 to n do
  for j:=1 to n do
   begin
    write('a','[',i,' ',j,'] ');
    read(a[i,j]);
   end;
  for j:=1 to m do
for b:=1 to n-1 do
for i:=1 to n-b do
  p:=funccifr(a[i,j]);
 if a[i,j]<a[i+1,j] then
    begin
     m:=a[i,j];
     a[i,j]:=a[i+1,j];
     a[i+1,j]:=m;
    end;
   for i:=1 to n do
    for j:=1 to n do
     write(a[i,j]);
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2013, 21:08
Ответы с готовыми решениями:

Написать программу для подсчёта суммы положительных чисел в двумерном массиве размерности MxN
Продумать интерфейс, его дизайн, функциональность. И настроить меню с информацией об авторе,...

В двумерном массиве вставить после каждого 2 нечетного элемента 1
В двумерном-массиве вставить после каждого 2 нечетного элемента 1. реализация через массив, не...

Функция для нахождение минимального значения каждого столбца в двумерном массиве
Как создать функцию, код, который в строчках 41 - 55 Спасибо заранее!!! #include &lt;stdio.h&gt;...

Рекурсивная функция поиска минимального элемента в двумерном массиве
помогите пожалуйста написать рекурсивную функцию которая находит минимальный элемент в матрице...

__________________
3
7 / 7 / 16
Регистрация: 17.11.2012
Сообщений: 20
28.02.2013, 00:09 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
37
38
39
40
41
42
43
44
45
46
program zz;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
b,i,j:byte;
m,p:integer;
 
function funccifr(x:integer):integer;
var sum:integer;
 begin
 sum:=0;
while x>0 do
  begin
sum:=sum+(x mod 10);
 x:=x div 10;
 end;
funccifr:=sum;
end;
begin // основная программа
// ввод данных массива
  for i:=1 to n do
  for j:=1 to n do
   begin
    write('a','[',i,' ',j,'] ');
    read(a[i,j]);
   end;
for j:=1 to n do begin
m:=1;
while m>0 do // сортировка пузырьком по строке
begin
m:=0;
for i:=2 to n do
 begin
 if funccifr(a[j,i])<funccifr(a[j,i-1]) then
  begin
  inc(m);
  p:=a[j,i]; a[j,i]:=a[j,i-1]; a[j,i-1]:=p;
  end;
 end;
 end;
end;
// вывод результата
   for i:=1 to n do begin     writeln;
    for j:=1 to n do     write(a[i,j],' ');
    end;
 end.
[удалено]
1
4 / 4 / 8
Регистрация: 16.10.2012
Сообщений: 93
28.02.2013, 00:52  [ТС] 3
очень благодарен)
0
4 / 4 / 8
Регистрация: 16.10.2012
Сообщений: 93
04.03.2013, 17:21  [ТС] 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
62
63
64
65
66
program zz;
uses crt;
const n=5;
 
var a:array[1..n,1..n] of integer;
f:file of integer;
b,i,j:byte;
m,p:integer;
 
function funccifr(x:integer):integer;
var sum:integer;
 begin
 sum:=0;
while x>0 do
  begin
sum:=sum+(x mod 10);
 x:=x div 10;
 end;
funccifr:=sum;
end;
 
begin
window(100,30,150,50);
clrscr;
assign(f,'f1.dat');
rewrite(f);
for i:=1 to n do
  for j:=1 to n do
   begin
    write('a','[',i,' ',j,'] ');
    read(a[i,j]);
    write(f,a[i,j]);
   end;             close(f);
   reset(f);
   while not eof(f) do begin
   read(f,a[i,j]);
for j:=1 to n do begin
m:=1;
while m>0 do // сортировка пузырьком по строке
begin
m:=0;
for i:=2 to n do
 begin
 if funccifr(a[j,i])<funccifr(a[j,i-1]) then
  begin
  inc(m);
  p:=a[j,i];
  a[j,i]:=a[j,i-1];
  a[j,i-1]:=p;
  end;
 end;
 end;
end;
 
window(150,40,250,70);
clrscr;
for i:=1 to n do begin
writeln;
for j:=1 to n do begin
write(f,a[i,j]);
write(a[i,j],' ');
end;
end;
 end;
 close(f);
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2013, 17:21

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

Функция для удаления элемента в двумерном динамическом массиве. В чем ошибка?
функция для удаления элемента в двум дин массиве (пока только часть в которой указывается какой...

В двумерном массиве вычислить произведение суммы элементов каждого столбца на сумму элементов N строки
В двумерном массиве вычислить произведение суммы элементов каждого столбца на сумму элементов N...

Задание массива 3-хзначных чисел, запись в файл и и подсчет суммы цифр каждого элемента
Примерно задание трактуется так: 1. Задать массив (не случайный, вручную) 3-хзначных чисел. 2....

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


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

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

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