Массив, Перестановка в обратном порядке элементов строки... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массив, Перестановка в обратном порядке элементов строки... |
Студентка |
Сообщение
#1
|
Гость |
Люди....помогите!!!
Сижу над задачей дней пять уже, а результата всего два: 1.Либо не правильно считает. 2.Либо зацикливается. Вот задача: Составить Паскаль-программу, производящую обработку квадратной матрицы по-рядка NxN, из целых положительных чисел. Обработка: перестановка в обратном порядке элементов строки, содержащей минимальный элемент матрицы. Заранее спасибо! |
Client |
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
Покажи код, будем разбираться
Сообщение отредактировано: Client - |
Гость |
Сообщение
#3
|
Гость |
uses crt;
type mas=array[1..10,1..10] of integer; var i,j,n,min:integer; a:mas; begin clrscr; write('Vvedite razmernost matrici:'); readln(n); for i:=1 to n do begin for j:=1 to n do begin write('a[',i,',',j,']='); readln(a[i,j]); end; end; min:=a[1,1]; for i:=1 to n do begin for j:=1 to n do begin if a[i,j]<min then min:=a[i,j]; end; end; Это вот до перестановки...а дальше у меня полная попа . Я думаю дальше надо, чтобы элемент сравнивался с минимумом и если он ему равен, перепечатывал строку в обратном порядке, а если нет - то печатал старый элемент. Вот ток как это сделать я не понимаю...пробовала цикл, но у меня он у меня где-то видать клинил и печатал элементы без остановки. Приходилось перезапускать все. |
Client |
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
uses crt; Вроде так |
Гость |
Сообщение
#5
|
Гость |
Работает!!! Спасибо!
Я только один момент не могу понять. Вот в этой строке: for k:=1 to n div 2 do begin - что сдесь "div 2" делает....всмысле как это работает? |
Client |
Сообщение
#6
|
Профи Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: 20 |
Здесь меняются местами первый с последним, второй с предпоследним и т.д.
|
Гость |
Сообщение
#7
|
Гость |
О как...спасибо еще раз!
|
Текстовая версия | 23.12.2024 19:36 |