Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Micren Статус: Студент Рейтинг: 191 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 70 ∙ повысить рейтинг >>

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 65 ∙ повысить рейтинг >>

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

Выпуск № 802
от 06.02.2009, 15:35

Вопрос № 159307: Дана действительная матрица, сформировать одномерный массив, умножить элементы на максимальный, сортировать по возрастанию. ...

Вопрос № 159.307

Дана действительная матрица, сформировать одномерный массив, умножить элементы на максимальный, сортировать по возрастанию.

Отправлен: 01.02.2009, 10:58 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Micren Здравствуйте, Иванов Виктор Олегович! Приложение с комментариями. Тестировалось в TP 7. Приложение: program Pascal_159307; { Размерности матрицы } const N=8; M=5; var Matrix:array[1..N,1..M]of Real; Arr:array[1..N*M]of Real; Max,tmp:Real; i,j:integer; begin Randomize; { Формируем матрицу и выводим ее на экран } WriteLn('Matrix:'); for i := 1 to N do begin for j := 1 to M do begin Matrix[i,j]:=Random*50-25; Write(Matrix[i,j]:7:3,' '); end; WriteLn; end; { Формируем массив и сразу ищем максимальный } Max:=Matrix[1,1]; for i := 1 to N do for j := 1 to M do begin Arr[(i-1)*M+j]:=Matrix[i,j]; if Matrix[i,j]>Max then Max:=Matrix[i,j]; end; { Умножаем } for i := 1 to N*M do Arr[i]:=Arr[i]*Max; { Сортировка } for i := 1 to N*M do for j := 1 to N*M-i do if Arr[j]>Arr[j+1] then begin tmp:=Arr[j]; Arr[j]:=Arr[j+1]; Arr[j+1]:=tmp; end; { Выводим полученный масссив } WriteLn('Result array:'); for i := 1 to N*M do Write(Arr[i]:9:3,' '); ReadLn; end.

Ответ отправил: Micren (статус: Студент) Ответ отправлен: 01.02.2009, 12:02 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242664 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!! Все работает!!! Благодарю вас!

Вопрос № 159.309

Дан массив из n элементов, сортировать массив обменом четных элементов стоящих на четных позициях, вывести на экран количество перестановок.

Отправлен: 01.02.2009, 11:01 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Micren Здравствуйте, Иванов Виктор Олегович! Программа с комментариями. Поскольку в условии не сказано направление сортировки, сортировал по возрастанию. Программа: Код: program Pascal_159309; { Размер массива } const N=16; var Arr:array[1..N]of integer; i,j,j1,j2,tmp,cnt:integer; begin Randomize; { Создаем массив и выводим его на зкран } WriteLn('Array:'); for i := 1 to N do begin Arr[i]:=Random(51)-25; Write(Arr[i]:4,' '); end; WriteLn; { Сортируем } cnt:=0; { Счетчик перестановок } { Идем только по четным индексам } i:=0; while i<N do begin i:=i+2; j:=i; while j<N do begin j:=j+2; { Если оба элемента четные и неупоряд оченные } if (not Odd(Arr[i])) and (not Odd(Arr[j])) and (Arr[i]>Arr[j]) then begin tmp:=Arr[i]; Arr[i]:=Arr[j]; Arr[j]:=tmp; Inc(cnt); { Увеличим счетчик } end; end; end; { Выводим результат } WriteLn('Result Array:'); for i := 1 to N do Write(Arr[i]:4,' '); WriteLn; { Выводим количество перестановок } WriteLn('Rearrangements=',cnt); ReadLn; end. Пример результата работы: Код: Array: 10 14 9 -10 16 -10 15 12 24 -24 -24 -16 -11 15 25 23 Result Array: 10 -24 9 -16 16 -10 15 -10 24 12 -24 14 -11 15 25 23 Rearrangements=9

Ответ отправил: Micren (статус: Студент) Ответ отправлен: 01.02.2009, 13:02 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242670 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!! Все работает!!! Вы очень меня выручили =)

Вопрос № 159.325

Госопда эксперты !! Очень нужна ваша помощь Дан двухмерный массив. Составить программу, которая меняет местами ∙ две любые строки; ∙ два любых столбца. Дан двухмерный массив размерностью n*n. Составить программу, которая меняет местами все элементы, ∙ симметричные относительно главной диагонали ∙ симметричные относительно побочной диагонали. Дан двумерный массив. Удалить из него строку с номером к. Дан двумерный массив. Удалить из него столбец с номером s. Удалить все строки, содержащие максимальный элемент массива Вставить строку из единиц после строки с указанным номером. Дан двумерный массив из четного числа строк и столбцов а) строки верхней половины поменять местами со строками нижней пол овины б) столбцы левой половины поменять местами со столбцами правой. Дан двумерный массив из четного числа строк. Поменять местами его строки следующим образом: первую строку с последней, вторую – с предпоследней и так далее. В двумерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков на каждом из 10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика. Дан двумерный массив. Удалить из него все строки с n по m.

Отправлен: 01.02.2009, 13:41 Вопрос задал: Oblige (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тепляков Константин Владимирович Здравствуйте, Oblige! Большое, конечно, задание, но вот что я напрограммировал. По логике работать программа должна, но я не проверял (не на чем). И еще ... Я построил свою программу моследовательно, т.е. массив заполняется программой произвольно и все последующие действия производятся над уже измененном массивом. Изначально созданный массив не сохраняется. второе дополнение: При вводе значений с клавиатуры предполагается, что вы правильно вводите числа. Закончить не успел, но все решаемо и достаточно не сложно. Приложение: program Rjcnz_to_Oblige; const size=10; {Размер массива} type mytype=real; {Тип данных, хранимых в массиве} var mas:array[1..size,1..size]of mytype; {Двумерный массив, который я решил сделать квадратным для всех заданий} procedure change(res1,res2:mytype); {Процедура для смены двух значений местами} var tmp:mytype; begin tmp:=res1; res1:=res2; res2:=tmp; end; procedure print(lenX,lenY:integer{Размеры массива}); {Выводит на экран массив} var i,j:integer; begin for i:=1 to lenY do begin for j:=1 to lenX do write(mas[i,j]:4); writeln; end; writeln('Нажмите Enter'); readln; writeln; end; var {Задаем локальные переменные} i,j:integer; change1, change2,k,s:integer; begin {Начало основной программы} randomize; {Заполняем массив произвольными значениями} for i:=1 to size do for j:=1 to size do mas[i,j]:=random(1000); {ЗАДАНИЕ Дан двухмерный массив. Составить программу, которая меняет местами ∙ две любые строки; ∙ два любых столбца.} writeln('Введите номера перемещаемых строк и столбцов через ENTER'); readln(change1); readln(change2); writeln; {Просто для наглядности} {Предполагается, что при вводе пользователь не ошибается} writeln('Исходный массив'); print(size,size); {Выводим на экран исходный массив (он задан до процедуры, поэтому передавать его имя в процедуру не надо)} for i:=1 to size do change(mas[change1,i],mas[change2,i]); {Последовательно меняем значения в строках местами} writeln('Массив после смены заданных строк'); print(size,size); {Выводим на экран измененный массив (он под тем же именем, старый не сохранился)} for i:=1 to size do change(mas[i,change1],mas[i,change2]); {Последовательно меняем значения в столбцах местами} writeln('Массив после смены заданных столбцов'); print(size,size); {Выводим на экран измененный массив} {ЗАДАНИЕ Дан двухмерный массив размерностью n*n. Составить программу, которая меняет местами все элементы, ∙ симметричные относительно главной диагонали ∙ симметричные относительно побочной диагонали.} for i:=1 to size-1 do {Перебираем строки до предпоследней для смены элементов относительно главной диагонали} for j:=i+1 to size do {Перебираем все элементы в строке ...} change(mas[i,j],mas[j,i]); {...и меняем их местами с элементами под главной диагональю} writeln('Массив после смены элементов относительно главной диагонали'); print(size,size); {Выводим на экран измененный массив} for i:=1 to size-1 do {Перебираем строки до предпоследней для смены элементов относительно главной диагонали} for j:=i+1 to size do {Перебираем все элементы в строке ...} change(mas[size-i+1,size-j+1],mas[size-j+1,size-i+1]); {...и меняем их местами с элементами под побочной диагональю} writeln('Массив после смены элементов относительно побочной диагонали'); print(size,size); {Выводим на экран измененный массив} {PS. При решении задачи использовался измененный начальный массив} {ЗАДАНИЕ Дан двумерный массив. Удалить из него строку с номером к. Дан двумерный массив. Удалить из него столбец с номером s.} writeln('Введите номер строки'); readln(k); {Последовательно перемещаем строки вверх от удаляемой строки} if k<size then {Если вы выбрали не последнюю строку} for i:=k to size-1 do for j:=1 to size do mas[i,j]:=mas[i+1,j]; len:=size-1; {Запоминаем, что число строк уменьшилось на один. Про последнюю строку мы просто "забываем" данным действием} writeln('Массив после удаления строки'); print(size,len); writeln('Введите номер строки'); readln(s); {Последовательно перемещаем столбцы вверх от удаляемой строки} if s<size then {Если вы выбрали не последнюю строку} for i:=s to size-1 do for j:=1 to len do mas[j,i+1]:=mas[j,i+1]; {Теперь, действие len:=size-1; означает, что наш массив уменьшился на 1 во всех размерах} writeln('Массив после удаления столбца'); print(len,len); {ЗАДАНИЕ Вставить строку из единиц после строки с указанным номером.} writeln('Введите номер строки, после которой будут вставлена строка с единичными значениями'); readln(s); {Перемещаем все строки наже заданной "вниз". Начинать необходимо снизу} for i:=len downto s+1 do for j:=1 to len do mas[i+1,j]:=mas[i,j]; {Заполняем строку следующую за введенной единицами} for i:=1 to len do mas[s+1,i]:=1; writeln('Массив после вставки строки'); print(len,size); {ЗАДАНИЕ Дан двумерный массив из четного числа строк и столбцов а) строки верхней половины поменять местами со строками нижней половины б) столбцы левой половины поменять местами со столбцами правой. в) Поменять местами его строки следующим образом: первую строку с последней, вторую – с предпоследней и так далее.} {поскольку изначально создавался двумерный массив с четным колличеством строк и столбцов, то мы снова им воспользуемся, но заполним его другими значениями} {Заполняем массив произвольными значениями} for i:=1 to size do for j:=1 to size do mas[i,j]:=random(1000); writeln('Новый массив'); print(size,size); {ЗАДАНИЕ а) строки верхней половины поменять местами со строками нижней половины} for i:=1 to (size div 2) do {рассматриваем строки верхней половины ...} for j:=1 to size do change(mas[i,j],mas[i+(size div 2) , j]); {... и меняем строки} writeln('Массив после смены строк относительно середины'); print(size,size); {ЗАДАНИЕ б) столбцы левой половины поменять местами со столбцами правой.} for i:=1 to size do {рассматриваем столбцы левой половины ...} for j:=1 to (size div 2) do change(mas[i,j],mas[i , j+(size div 2)]); {... и меняем столбцы} writeln('Массив после смены столбцов относительно середины'); print(size,size); {ЗАДАНИЕ в) Поменять местами его строки следующим образом: первую строку с последней, вторую – с предпоследней и так далее.} for i:=1 to (size div 2) do {рассматриваем строки верхней половины ...} for j:=1 to size do change(mas[i,j],mas[size-i+1 , j]); {... и меняем строки} writeln('Массив после смены строк относительно середины'); print(size,size); end. {Конец основной программы} Продолжение следует --------- Человек - это существо, которое постоянно придумывает себе трудности [переработка доклада Ортега-и-Гассет "О технике"]

Ответ отправил: Тепляков Константин Владимирович (статус: 1-й класс) Ответ отправлен: 03.02.2009, 14:02 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242795 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru