VPF::Обработка двумерных массивов - Форум программистов

TRoLL

Дата 11.6.2006, 17:43 (ссылка)

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

Загрузка ...

Новичок

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

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

В матрице С(6Х7) определить сумму элементов лежащих в диапазоне от Х до У. Заменить первую строку матрицы на значение найденной суммы.

Код


Pascal

Pete

Дата 11.6.2006, 18:40 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 5.1.2006
Где: Москва

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

Научишь потом строку матрицы числом заменять? smile

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

Совет учиться на ошибках других бесполезен; научиться чему-либо можно только на собственных ошибках. (Бернард Шоу)
Не откладывай на завтра то, что можешь сделать сегодня. (Пословица)
А теперь выпишем точное значение числа пи... (Препод)
Жахни, Пендальф! © Гоблин

TRoLL

Дата 11.6.2006, 19:18 (ссылка)

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

Загрузка ...

Новичок

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

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

в смысле?

Pete

Дата 11.6.2006, 19:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 5.1.2006
Где: Москва

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

Обычно, строка числовой матрицы --- это несколько подряд идущих чисел. Как можно весь этот ряд чисел заменить одним числом?

Это сообщение отредактировал(а) Pete - 11.6.2006, 19:55

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

TRoLL

Дата 11.6.2006, 21:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Надо заменить каждое число на одно и то же.

TRoLL

Дата 11.6.2006, 21:52 (ссылка)

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

Загрузка ...

Новичок

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

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

т.е. каждое число на найденное значение суммы

Oleg_Ci

Дата 12.6.2006, 12:22 (ссылка)

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

Загрузка ...

Friend

Профиль
Группа: Участник
Сообщений: 485
Регистрация: 28.5.2006
Где: Новосиб.обл.

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

Цитата

Надо заменить каждое число на одно и то же.
____________________________________________________________
каждое число на найденное значение суммы

А что с чем складывать?
Может сложить все числа в первом(нулевом) столбике и записать в С(0,0) потом для второго тоже самое в С(0,1) и т.д. ???

Pete

Дата 12.6.2006, 12:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 5.1.2006
Где: Москва

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

Могу, если надо, написать ни Си, потом перепишешь на Паскале.

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

TRoLL

Дата 12.6.2006, 12:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Pete а ты сможешь написать на паскале? smile

TRoLL

Дата 12.6.2006, 17:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Если не сможешь то напиши на си. smile

Это сообщение отредактировал(а) TRoLL - 12.6.2006, 17:10

rasik

Дата 12.6.2006, 18:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Предлагаю такое решение:
Суть в том что массив одномерный а работаем с ним ч-з процедуры и функции которые создают эфект "двухмерности".

Код


 const n=6;
       m=7;

 type T2DArray=array[1..n*m] of integer; {новый тип "двухмерный" массив}

 var C:T2DArray;
     x,y:integer; {начало и конец диапазона}
     Summ:integer; 

 procedure Read2DArray(var C:T2DArray); {чтение массива}
   var i,j:integer;
  begin
   for i:=1 to n do
    for j:=1 to m do
     begin
      write('C[',i,',',j,']='); {элементу C[i,j] соответствует C[(i-1)*n+j] эл. в "нашей псевдо матрице"}
      readln(C[(i-1)*n+j]); 
     end;
  end;

 procedure Print(C:T2DArray); {вывод на экран}
   var i,j:integer;
  begin
   for i:=1 to n do
    begin
     for j:=1 to m do
      write(C[(i-1)*n+j]:3);
     writeln;
    end;
  end;

 procedure FillRow(var C:T2DArray;Row,K:integer); {меняет эл. строки Row массива С на эл. К}
   var j:integer;
  begin
   for j:=1 to n do
    C[(Row-1)*n+j]:=K;
  end;

 function GetSumXY(C:T2DArray;x,y:integer):integer; 
   var i,s:integer;
  begin
   s:=0;
   for i:=x to y do
    s:=s+C[i];
   GetSumXY:=s;
  end;

begin
 Read2DArray(C); {читаем массив}
  {вводим диапазон}
 write('x=');
  readln(x);
 write('y=');
  readln(y);
 получаем сумму
 Summ:=GetSumXY(C,x,y);
 
 writeln('Array C:'); {выводим на экран необработанный массив}
 Print(C);

 writeln('Modyfied array C:');
 FillRow(C,1,summ); {меняем первую строку матрицы на значение найденной суммы}
 Print(C); {выводим обработанный массив}
end.

Pete

Дата 12.6.2006, 20:03 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 5.1.2006
Где: Москва

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

Код

#include <stdio.h>

int
main (void)
{
  int       i, j, x, y;
  int       s = 0;
  const int n = 6;
  const int m = 7;
  
  int c[n][m];
  
  printf ("Enter x -> ");
  scanf ("%d", &x);
  printf ("Enter y -> ");
  scanf ("%d", &y);
  
  for (i = 0; i < n; i++)
    for (j = 0; j < m; j++) {
      printf ("Enter c[%d][%d] -> ", i, j);
      scanf ("%d", &c[i][j]);
      if (c[i][j] >= x && c[i][j] <= y)
        s += c[i][j];
    }
  
  for (j = 0; j < y; j++)
    c[0][j] = s;
  
  return 0;
}

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

TRoLL

Дата 12.6.2006, 23:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо пацаны огромное.

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