Задача с матрицей на Turbo Pascal, Не могу никак решить... |
Здравствуйте, гость ( Авторизация | Регистрация )
Задача с матрицей на Turbo Pascal, Не могу никак решить... |
31.05.2010 - 23:14
Сообщение
#11
|
|
Старейшина Текущее настроение: Вст. ник | Цитата Группа: Легенда Сообщений: 12414 Регистрация: 8.06.2009 Пользователь №: 27737 Из: сострадания к ближнему Награды: 205 Подарки: 171 Пол: ? Репутация: 2878 |
Извините, что Вас нагружаю, просто я слаб в области турбо-паскаля :( Бывает) короче вот ваша прога, у меня нет компилятора паскаля, поэтому за орфографию не ручаюсь: Код 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 ) |
|
|
|
|
|
Текстовая версия | Сейчас: 28.03.2024 - 13:03 |