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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2008, 19:38   #1
KulOle
Пользователь
 
Аватар для KulOle
 
Регистрация: 30.09.2008
Сообщений: 10
Восклицание ! УРАВНЕНИЕ С МАТРИЦАМИ !

Короче, из начальной матрицы (10,10) надо сделать матрицу (10,?), где (?) максимальное количество положительных элементов в строке матрицы начальной (10,10).Затем все положительные элементы матрицы (10,10) вписать в матрицу (10,?) подряд.Если же положительных элементов не хватит на всю матрицу (10,?),то на пустое место вписать нули????????????? ЛЮДИ, ПОМОГИТЕ!!!!!!!
KulOle вне форума Ответить с цитированием
Старый 18.10.2008, 21:32   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Код:
uses crt;
const n=10;
var a,b:array[1..n,1..n]of integer;
    i,j,k,l,max:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
        begin
          a[i,j]:=random(20)-9;
          write(a[i,j]:5);
        end;
     writeln;
  end;
max:=0;
for i:=1 to n do //считаем положительные в строках и находим максимальное количество
   begin
     k:=0;
     for j:=1 to n do
     if a[i,j]>0 then inc(k);
     if k>max then max:=k;
   end;
writeln('max=',max);
for i:=1 to n do
for j:=1 to max do
b[i,j]:=0;      //обнуляем матрицу В
k:=1;l:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then //если больше ноля
  begin
    inc(l); //увеличиваем счетчик по столбцов
    b[k,l]:=a[i,j]; //записываем
    if l=max then //если конец строки матрицы В
      begin
       inc(k);//переходим на следующую
       l:=0; //обнуляем счетчик столбцов
     end;
  end;
Writeln('Rezultat:');
for i:=1 to n do
   begin
     for j:=1 to max do
     write(b[i,j]:5);
     writeln;
   end;
readln
end.
puporev вне форума Ответить с цитированием
Старый 19.10.2008, 12:53   #3
KulOle
Пользователь
 
Аватар для KulOle
 
Регистрация: 30.09.2008
Сообщений: 10
По умолчанию

пасиБО!!!!!!
KulOle вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Уравнение с массивом KulOle Паскаль, Turbo Pascal, PascalABC.NET 2 14.10.2008 19:18
Уравнение плоскости eoln Помощь студентам 5 27.09.2008 09:22
Помогите написать уравнение... Altera Свободное общение 8 11.04.2008 19:57
паскаль. уравнение. Jodu Помощь студентам 3 23.12.2007 11:29