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

Glorya

Дата 4.5.2008, 15:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста:
выполнить обработку числового двумерного массива, имеющего 4 строки и 5 столбцов.
Элементы массива должны вводиться с клавиатуры и для их ввода следует разработать процедуру.
Обработку и вывод результата необходимо выполнять с помощью подпрограмм.
Вычислить произведение элементов для каждого столбца. Поменять местами столбцы с максимальным и минимальным значением произведения.

THandle

Дата 4.5.2008, 17:13 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Интересно, а уточнить тут вот нельзя было?
http://forum.vingrad.ru/forum/topic-209576...0%B8%D0%B5.html

Ладно. Раз такое уточнение - исправляю тамошний код:

Код


program Project1;

var
  a : array [1..4, 1..5] of integer;
  um : array [1..5] of integer;
  mine, maxe : integer;

procedure EnterArray;
var
  i, j : integer;
begin
  for i := 1 to 5 do
      for j := 1 to 4 do
        begin
          write('Enter a[', i, ',', j, ']: ');
          readln(a[j, i]);
        end;
end;

procedure ProizArray;
var
  i, j : integer;
begin
 for i := 1 to 5 do
    begin
      um[i] := a[1, i];
      for j := 2 to 4 do
        um[i] := um[i] * a[j, i];
    end;
end;

function MaxElement : integer;
var
  i : integer;
  maxe : integer;
begin
  maxe := 1;
  for i := 2 to 5 do
    if um[i] > um[maxe] then
      maxe := i;
  MaxElement := maxe;
end;

function MinElement : integer;
var
  i : integer;
  mine : integer;
begin
  mine := 1;
  for i := 2 to 5 do
    if um[i] < um[mine] then
      mine := i;
  MinElement := mine;
end;

procedure Swap(min, max : integer);
var
  i : integer;
  tmp : integer;
begin
  if max <> min then
    for i := 1 to 4 do
      begin
        tmp := a[i, min];
        a[i, min] := a[i, max];
        a[i, max] := tmp;
      end;
end;


procedure WriteResult;
var
  i, j : integer;
begin
  writeln('Result: ');
  for i := 1 to 4 do
   begin
      for j := 1 to 5 do
        write(a[i, j], '  ');
      writeln;
   end;
end;

begin
  EnterArray;
  WriteResult;
  ProizArray;
  maxe := MaxElement;
  mine := MinElement;
  Swap(mine, maxe);
  WriteResult;
  readln;
end.

Так?

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