VPF::[Pascal]Сумма элеентов матрицы - Форум программистов

Suriv

Дата 15.11.2008, 20:54 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

Привет всем. Есть задача по теме процедуры и функции в паскале, которую не могу решить. Есть набросок но что то там не так. Подскажите плиз.
Задача: 0писать подпрограмму, которая в матрице, размером n*m, находит сумму элементов каждой строки.

Код


Uses crt;
Var s:integer;
Procedure matr;
var
a:array[1..100,1..100] of integer;
b:array[1..100,1..100] of integer;
i,j,n:integer;
c1,c2:integer;
begin
n:=s;
c1:=1;
c2:=1;
for i:=1 to n do
for j:=1 to m do
begin
writeln('Vvedite element matricy a','[',i,',',j,']');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
writeln('Vvedite element matricy b','[',i,',',j,']');
readln(b[i,j]);
end;
end;
end.

Это сообщение отредактировал(а) Rodman - 16.11.2008, 14:58

libertine

Дата 15.11.2008, 21:28 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 12.4.2008

Репутация: нет
Всего: нет

набросок не на то немного, ну да ладно. не компилировалось, нет паскаля под рукой, так что ищи ошибки если что.

Код


Uses crt;
type vect=array [1..100] of integer; {описали тип - одномерный массив}
        matr=array[1..100] of vect;       {описали тип  - массив одномерных массивов, получился двумерный, матрица то есть}
var i,j,n,m:byte;
      a:matr;
      t:integer;

Function summ(i,m:byte, a:matr):integer;  {описали функцию, которая будет возвращать сумму элементов в строке}
{в фукцию передали число элементов в строке - m,  номер строки, которую суммируем - i, и сам массив а}
var s:integer
      j:byte;
begin
s:=0;  {в этой переменной накапливаем сумму}
for j:=1 to m do  
         s:=s+a[i,j];  {идем по i-ой строке, прибавляя каждый ее элемент к s}
summ=s; {функция вернет значение переменной s, то есть искомую сумму}
end;

begin
writeln('Vvedite razmernost matritsi:');
write('n=');
readln(n);
write('m=');
readln(m);   {в переменные n и m считали размерность матрицы}
for i:=1 to n do
     for j:=1 to m do
          begin
             writeln('Vvedite element matricy a','[',i,',',j,']');  {заполнили матрицу}
              readln(a[i,j]);
          end;

for i:=1 to n do
     begin
     for j:=1 to m do
             write(a[i,j], '  ');  {заполнили матрицу}
     writeln('');
     end;
for i:=1 to n do  {для каждой строки вызываем процедуру}
      begin
          t =  summ(i,m,a); {получили сумму элементов строки}
          writeln('Summa elementov ', i, ' stroki =' ,t);
     end;
end;

kemiisto

Дата 15.11.2008, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Код


program example;

const
  n = 5;
  m = 3;

type
  Matrix = array[1..n, 1..m] of Integer;
  Vector = array[1..n] of Integer;

var
  a: Matrix;
  sum: Vector;
  i, j: Integer;

procedure CalcSums(var b: Matrix; var s: Vector);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    s[i] := 0;
    for j := 1 to m do
      s[i] := s[i] + b[i, j];
  end;
end;

begin
  Randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := Random(100);

  CalcSums(a, sum);

  for i := 1 to n do
  begin
    Writeln;
    for j := 1 to m do
      Write(a[i, j]:4);
    Write(' | ', sum[i]);
  end;

  Readln;
end.

Добавлено через 7 минут и 17 секунд
libertine, понятно (и даже похвально smile

) Ваше стремление помогать людям, но прежде всего читаем Стандарт стилевого оформления исходного кода DELPHI. Очень многое из сказанного там относится и к PASCAL.

Добавлено через 8 минут и 15 секунд
Suriv, а Вы, простите на кого учитесь? Так, просто праздное любопытство...

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

libertine

Дата 16.11.2008, 01:43 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 12.4.2008

Репутация: нет
Всего: нет

kemiisto, согласна - короче, красивее) стандарт прочтен и принят на вооружение)

Suriv

Дата 16.11.2008, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.11.2008

Репутация: нет
Всего: нет

Спасибо вам большое программа отлично работает. Я если честно пока в школе учусь последний год. Это я за друга пишу, он тут незарегистрирован просто поэтому я пишу, а так он на программиста вроде учится. Всем большое спасибо за решения!

kemiisto

Дата 16.11.2008, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Цитата(Suriv @ 16.11.2008, 08:08

)

Это я за друга пишу, он тут незарегистрирован просто поэтому я пишу, а так он на программиста вроде учится.

Другу религия зарегистрироваться не позволяет? smile

Судя по тому, что Ваш друг не в состоянии решить простейшие задачи, он действительно, вроде, учится на программиста. Ну, да ладно, это всё off topic...

Suriv, если вопрос решён - пометьте его как решённый. В правом верхнем углы темы, рядом с заголовком.

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »