IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Сортировка Матрицы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


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

а я что то не то натворил....помогите разобраться.....


Прикрепленные файлы
Прикрепленный файл  2_chast_.PAS ( 1.34 килобайт ) Кол-во скачиваний: 124
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(LoveInLife @ 25.03.2007 14:09) *
а я что то не то натворил....помогите разобраться.....
В чем проблема программа компилируется smile.gif
но не забывай о предупреждениях
del.pas(18,6)---Warning: Type size mismatch, possible loss of data / range check error
del.pas(18,6)---Warning: Type size mismatch, possible loss of data / range check error
del.pas(22,12)--Warning: Type size mismatch, possible loss of data / range check error
del.pas(12,5)---Note: Local variable "k" not used
del.pas(12,24)--Note: Local variable "stbm" not used

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


Цитата(compiler @ 25.03.2007 15:15) *

В чем проблема программа компилируется smile.gif
но не забывай о предупреждениях
del.pas(18,6)---Warning: Type size mismatch, possible loss of data / range check error
del.pas(18,6)---Warning: Type size mismatch, possible loss of data / range check error
del.pas(22,12)--Warning: Type size mismatch, possible loss of data / range check error
del.pas(12,5)---Note: Local variable "k" not used
del.pas(12,24)--Note: Local variable "stbm" not used


Там сортировка не такая как надо идет......я прошу....что бы исправили;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


посмотри тут Обработка многомерных массивов
там похожая задача с коментариями...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Типы оформи вот так:
Const R=10;
Type Tind=1..R;
Tmas=Array [Tind] Of Integer;
Tmatr=Array [Tind] Of TMas; { <--- !!! }
Var k,i,str,stb,j,strm,stbm:Tind;
A:Tmatr;
min:Integer;
T: TMas; { <--- !!! }


а теперь - о главном: ты с условием разберись, а то здесь пишешь одно, а в файле - другое... Если тебе нужен МИНИМУМ по условию - то вот так:
     min:=A[1,1];strm:=1;
For i:=1 To str
Do Begin For j:=1 To stb
Do Begin If min > A[i,j]
Then Begin min:=A[i,j];
strm:=i;
End;
End;
End;
T := A[strm]; A[strm] := a[str]; a[str] := T; { <--- Проще, правда? }

(проверено, все работает...)

Добавлено через 1 мин.
А о сортировке в задании вообще нет ни слова! Обмен двух строк - еще далеко не сортировка...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.10.2020 21:12
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name