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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Шурик   сложение по строке   27.12.2006 10:56
TS*   Ты суммируеш все элементы матрицы, нужно отдельно ...   27.12.2006 12:11
klem4   Что-то многовато лишнего begin-ы какието :) const...   27.12.2006 15:05

« Предыдущая тема · Задачи · Следующая тема »
 

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

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

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