VPF::[Pascal] Матрицы - Форум программистов

MGorelkin

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

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

Загрузка ...

Новичок

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

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

4) Сформировать матрицу, состоящую из 5 строк и 5 столбцов, в соответствии с заданной функцией. Ф-ия f(i,j) для получения элементов матрицы Aij=f(i,j)
f(i,j)=(i-1)*(j+3)
1)Найти max и min элемент матрицы, средн. зн-ие матрицы
2) Найти min элемент каждой строки и их сумму.
3) Найти сумму элементов всех строк и выбрать из них max.

koder

Дата 26.3.2007, 21:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


var
  a: [1..5,1..5] of Integer;
  i,j : Integer;
  max,min: Integer;
  sr: Double;
begin
  sr := 0.0;
   for i := 1 to 5 do
     for j := 1 to 5 do
        begin
             A[i,j] := (i-1)*(j+3);
            Sr := Sr+ A[i,j]
         end;
  max := A[1,1];
  min := A[1,1];
  for i := 1 to 5 do
    for j := 1 ot 5 do
           if A[i,j] > max then
             Max := A[i,j]; 
            if a[i,j] < min then
              min := a[i,j];

   Sr := Sr /(5*5);
   Writeln('Max: ', max);
   WriteLn('MIn: ', min);
   Writeln('Sr: ',sr:0:2);
end;

Это сообщение отредактировал(а) koder - 26.3.2007, 22:56

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

THE TRUTH IS OUT THERE

MGorelkin

Дата 26.3.2007, 22:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, а с остальными задачами, они тоже в разделе матриц не поможешь, а то мне их н неделю 23 штук вручили, я тока 6 решил..6 осталось..уже 4 даже осталось...благодаря вам)) спасибо!!!!!!!

koder

Дата 26.3.2007, 23:00 (ссылка)

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

Загрузка ...

Бывалый

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

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

Подправь код выше...
2.

Код



...
var
   B,C: array[1..5] of Integer;
    Sum : Integer;
begin
  ....
min := A[1,1];
Sum := 0;
for i: = 1 to 5 do
 begin
  for j := 1 to 5 do
    begin
      if A[i,j] < min then
        min := A[i,j];
      Sum := Sum + A[i,j]
    end;
   B[i] := min;
   C[i] := Sum;
   Sum := 0;
end;
Writeln('Min str');
for i := 1 to 5 do
  WriteLn(i,'. ',B[i]);
Writeln('Sum str');
for i := 1 to 5 do
  WriteLn(i,'. ',C[i]);
...
end

Добавлено через 3 минуты и 15 секунд
3.

Код


...
var 
   ...
   Sum : Integer;
    B[i] : array[1..5] of integer;
begin
  Sum := 0;
   for i:= 1 to 5 do
   begin
     for  j := 1 to 5 do
      begin
          Sum := Sum+A[i,j];
      end;   
     B[i] :=Sum;
     Sum := 0;
    end;
max := B[1];
for i:= 1 to 5 do
   if B[i] > max then
     max := B[i];

Writeln('Max element: ',max);
end;

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

THE TRUTH IS OUT THERE

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