IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> сложение по строке, помогите исправить
Шурик
сообщение 27.12.2006 10:56
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Мне надо вывести на экран сумму элементов по столбцу

 const m=30;
var
x,n:integer;
b,a:array[1..m,1..m] of integer;
i,j,s,sum:integer;
begin
clrscr;
s:=0;
write('N=');
readln(n);

if n<30 then
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=random(10);
end;

for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
writeln;
for j:=1 to n do
for i:=1 to n do
S:=S+b[i,j];

end;
for i:=1 to n do
write(s:8);
writeln;

readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
TS*
сообщение 27.12.2006 12:11
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 71
Пол: Мужской
Реальное имя: Max

Репутация: -  0  +


Ты суммируеш все элементы матрицы, нужно отдельно столбцов:

uses crt;
const m=30;
var
x,n:integer;
b,a:array[1..m,1..m] of integer;
i,j,sum:integer;
S:array[1..m] of integer;
begin
clrscr;
for i:=1 to n do s[i]:=0;
write('N=');
readln(n);

if n<30 then
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=random(10);
end;

for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
writeln;

for j:=1 to n do begin
for i:=1 to n do
S[j]:=S[j]+b[i,j];
end;


for j:=1 to n do
write(s[j]:8);
writeln;

readln;
end.



Сообщение отредактировано: TS* - 27.12.2006 12:13
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 27.12.2006 15:05
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Что-то многовато лишнего begin-ы какието smile.gif

const
m = 3;

var
i, j, s: Integer;
X: Array [1..m, 1..m] of Integer;

begin
randomize;

for i := 1 to m do begin
writeln;
for j := 1 to m do begin
X[i, j] := Random(10);
write(X[i, j]:2);
end;
end;

writeln;

for j := 1 to m do begin
s := 0;
for i := 1 to m do inc(s, X[i, j]);
writeln('j = ', j, ' s = ', s);
end;

end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 12.08.2025 15:22
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"