Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 312
от 18.02.2007, 00:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 235, Экспертов: 52
В номере:Вопросов: 1, Ответов: 1


Вопрос № 75426: Добрый ден. Как можно программу, которая вводит по строкам с клавиатуры трёхмерной массив и сортиривует его по восрастрованию пример: 5 1 7 3 6 2 4 3 2 3 4 10 ответ 3 4 10 3 6 2 4 3 2 5 1 7 ...

Вопрос № 75.426
Добрый ден. Как можно программу, которая вводит по строкам с клавиатуры трёхмерной массив и сортиривует его по восрастрованию
пример:
5 1 7
3 6 2
4 3 2
3 4 10

ответ
3 4 10
3 6 2
4 3 2
5 1 7
Отправлен: 12.02.2007, 20:08
Вопрос задал: Muhammedov Abdurohman (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Verena
Здравствуйте, Muhammedov Abdurohman!

Во-первых, где тут трёхмерный массив? Количество измерений не равно количеству столбцов. Насколько я понимаю, это просто матрица двумерная с 3-мя столбцами.
Во-вторых, по какому принципу идёт сортировка? Строки сортируются по первому элементу , что ли?

Ввод с клавиатуры по строкам:
for i:=1 to n do {n - количество строк}
for j:=1 to 3 do
read a[i, j];

Сортировка описанным мною выше принципом:
for i:=1 to n-1 do {цикл по строкам}
for j:=i+1 to n do
if a[i, 1] >= a[j, 1] then
for k:=1 to 3 do begin {цикл по столбцам}
tmp:= a[i, k];
a[i, k]:= a[j, k];
a[j, k]:= tmp;
end;

Если я неправильно Вас поняла, пишите в личку. Удачи)
---------
Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: 4-ый класс)
Ответ отправлен: 12.02.2007, 21:35
Оценка за ответ: 4


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.44 beta от 26.01.2007
Яндекс Rambler's Top100

В избранное