IPB

Здравствуйте, гость ( Авторизация | Регистрация )


2 страниц V  < 1 2  
Closed TopicStart new topicGo to the end of the page
> Задача с матрицей на Turbo Pascal, Не могу никак решить...
Ахинея
сообщение 31.05.2010 - 23:14
Сообщение #11


Старейшина
**********

Текущее настроение:

Вст. ник | Цитата

Группа: Легенда
Сообщений: 12414
Регистрация: 8.06.2009
Пользователь №: 27737
Из: сострадания к ближнему

Награды: 205
Подарки: 171

Пол: ?


Репутация:   2878  

Цитата(Baxyz® @ 31.05.2010 - 23:31) *
Извините, что Вас нагружаю, просто я слаб в области турбо-паскаля :(


Бывает)

короче вот ваша прога, у меня нет компилятора паскаля, поэтому за орфографию не ручаюсь:

Код
var m:array [1..10,1..10] of real;
      v: array [1..10] of real;
      i,j,k,l,imax:byte;
      t:real;

begin
{здесь ввод матрицы}

  for i:=2 to 9 do begin
     for j:=1 to i do v[j]:=m[j,i-j+1];
     for k:=1 to i-1 do begin
         imax:=k;
         for l:=k to i do
             if v[l]>v[imax] then imax:=i;
         t:=v[k]; v[k]:=v[imax]; v[imax]:=t;
      end;
      for j:=1 to i do m[j.i-j+1]:=v[j];
  end;
{вывод наэкран}


Этот код упорядочит все что выше побочной диагонали. Нижняя часть делается так же, только индекс у матрицы m поменяется по симметрии.


--------------------
Demons are a girl's best friends


--------------------
Подарки: (Всего подарков: 171 )
Подарок
Подарил(а): Снегурочка
Подарок
Подарил(а): льдинка
Подарок
Подарил(а): ShakuDancer




Go to the top of the pageGo to the end of the page
 
+Quote Post

2 страниц V  < 1 2
Closed TopicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




> Статистика
Board Stats

Подарок форуму

10 евро

100 евро

10000 евро

1000000eur

  


Текстовая версия Сейчас: 28.03.2024 - 13:03