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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.944 RSS
←   Январь 2012   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.944 подписчиков
0 за неделю
←   Все выпуски   →

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Академик
Рейтинг: 8884
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Советник
Рейтинг: 6881
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 5635
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1224
Дата выхода:09.01.2012, 10:00
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:134 / 142
Вопросов / ответов:1 / 2

Консультация # 185071: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Нужно написать программу в Turbo Pascal, желательно с комментариями. Упорядочить матрицу A[6,6] по элементам первого столбца. При выполнении указанной сортировки необходимо выполнить пере- становку строк матрицы таким образом, чтобы элементы первого столбца были упорядочены мето...

Консультация # 185071:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Нужно написать программу в Turbo Pascal, желательно с комментариями.

Упорядочить матрицу A[6,6] по элементам первого столбца.
При выполнении указанной сортировки необходимо выполнить пере-
становку строк матрицы таким образом, чтобы элементы первого
столбца были упорядочены методом выбора минимума.

Дата отправки: 06.01.2012, 09:33
Вопрос задал: xDefx (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, xDefx!

Cмотрите приложение.
Матрица создается с помощью генератора случайных чисел.
Будут вопросы обращайтесь в мини-форум.
Удачи!

Приложение:

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 06.01.2012, 12:37

5
нет комментария
-----
Дата оценки: 06.01.2012, 12:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Борисенко Павел Сергеевич (1-й класс):

Здравствуйте, xDefx!

Предоставляю Вам листинг программы с комментариями (комментарии даются в фигурных скобках):


var
a:array [1..6,1..6] of integer;
i,j,k,x,m,min:integer;
begin
k:=1;
for i:=1 to 6 do {ввод элементов матрицы}
for j:=1 to 6 do
begin
writeln('Enter [',i,'][',j,'] element of matrix:');
readln(a[i][j]);
end;

for m:=1 to 6 do
begin
min:=a[m][1]; {для начала сравнения определяем первый элемент текущей m-ой строки, как минимальный, в k записываем номер строки}
k:=m;
for i:=1+m to 6 do
if a[i][1]<min then {цикл определения минимального среди первых элементов,начиная от m-ой и заканчивая 6-ой строкой,запоминаем в k её номер}
begin
min:=a[i][1];
k:=i;
end;
for j:=1 to 6 do {меняем местами строку с найденным минимальным первым эле ментом с текущей строкой (т.е. с m-ой)}
begin
x:=a[m][j];
a[m][j]:=a[k][j];
a[k][j]:=x;
end;
end;
for i:=1 to 6 do {вывод получившейся матрицы}
for j:=1 to 6 do
begin
write(a[i][j],' ');
if j=6 then writeln;
end;
readln;
end.

С уважением, Борисенко Павел Сергеевич

Консультировал: Борисенко Павел Сергеевич (1-й класс)
Дата отправки: 06.01.2012, 13:36
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.33 от 10.09.2011
В избранное