Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2011, 13:06   #1
Юся
Новичок
Джуниор
 
Регистрация: 20.01.2011
Сообщений: 1
По умолчанию Работа с матрицей. Pascal

Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры).
Упорядочить ее столбцы по убыванию суммы их элементов.
Вывести вектор сумм элементов строк, первоначальную и полученную матрицу на экран.
Вывести элементы матрицы, которые встречаются в матрице более трех раз (считается, что хотя бы один такой элемент имеется).

Код:
program L22;
uses crt;
var s,c,i,j:integer;
    A:array [1..4,1..6] of integer;
    B:array [1..6] of integer;
begin
Clrscr;
S:=0;
  for i:=1 to 4 do                       {vvod vivod}
  for j:=1 to 6 do
  readln (a[i,j]);
   for i:=1 to 4 do begin
   for j:=1 to 6 do
   write(a[i,j]:3);
   writeln;
   end;
   writeln;

  writeln;
  for j:=1 to 6 do begin  {summa elementov}
  for i:=1 to 4 do
  b[j]:=b[j]+a[i,j];
  {write('b[j]:=',b[j]);}
  writeln;
  end;
  writeln;

  {writeln('uporyad stolbci po ubivaniyu summi ih elementov');
    for i:=1 to 4 do
    for j:=1 to 6 do
     if  b[j]<b[j+1] then begin
      b[j+1]:=a[i,j];
      a[i,j]:=b[j];
      end;
    for i:=1 to 4 do begin
    for j:=1 to 6 do begin
   write(a[i,j]:3);

    end;
    writeln;
    end;  }
  writeln('vektor summ');
   for j:=1 to 6 do
   write(b[j]:3);
   writeln;

  readln;
  end.

Последний раз редактировалось ACE Valery; 21.01.2011 в 00:13.
Юся вне форума Ответить с цитированием
Старый 21.01.2011, 00:14   #2
ACE Valery
Сама себе режиссер
Старожил
 
Аватар для ACE Valery
 
Регистрация: 27.04.2007
Сообщений: 3,378
По умолчанию

И что конкретно не получается?
А еще раз назовете так тему, она полетит в тартарары
Если я вас напрягаю или раздражаю, вы всегда можете забиться в угол и поплакать
ACE Valery вне форума Ответить с цитированием
Старый 21.01.2011, 15:41   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
(*Упорядочить столбцы по убыванию сумм элементов*)
     (*Вывести суммы элементов каждой строки*)
uses crt;
const n=4;m=6;
var mat:array[1..n+1,1..m+1] of integer;
    i,j:integer;
    f:boolean;
    buf:integer;
    k:integer;
begin
clrscr;
  for i := 1 to n do
    for j := 1 to m do begin
      write('[',i,',',j,']=');
      readln(mat[i,j]);
      mat[i,m+1]:=mat[i,m+1]+mat[i,j];
      mat[n+1,j]:=mat[n+1,j]+mat[i,j];
    end;
clrscr;
  writeln('===================================');
  writeln('          Old Matrix              |');
  writeln('===================================');
  for i := 1 to n do begin
    for j := 1 to m do
      write (mat[i,j]:4);
      writeln;
  end;
  writeln('===================================');
  writeln('          Sum Row                 |');
  writeln('===================================');
  for i := 1 to n do begin
    write( mat[i,m+1]:4);
  end;
  writeln;
  repeat
    f:=false;
    k:=m;
    for i:=1 to k-1 do
      if mat[n+1,i]<mat[n+1,i+1] then begin
        for j := 1 to n+1 do begin
          buf:=mat[j,i];
          mat[j,i]:=mat[j,i+1];
          mat[j,i+1]:=buf;
        end;
        f:=true;
      end;
    k:=k-1;
  until not f;
  writeln('===================================');
  writeln('        Sorted Matrix             |');
  writeln('===================================');
  for i := 1 to n do begin
    for j := 1 to m do
      write (mat[i,j]:4);
      writeln;
    end;
  readln;
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal задача с матрицей chemistrick Помощь студентам 4 12.12.2009 17:08
Помогите с матрицей PASCAL ANARHIST Помощь студентам 6 03.07.2008 18:12
Работа с матрицей Absent Помощь студентам 1 24.05.2008 13:33
Работа с матрицей Absent Помощь студентам 3 17.05.2008 22:20