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

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


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

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

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

Асмик Гаряка
Статус: Советник
Рейтинг: 10932
∙ повысить рейтинг »
Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 7026
∙ повысить рейтинг »
Роман Селиверстов
Статус: Советник
Рейтинг: 5286
∙ повысить рейтинг »

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

Номер выпуска:1247
Дата выхода:02.05.2013, 00:00
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:56 / 62
Вопросов / ответов:3 / 7

Консультация # 92899: Здраствуйте, как при сортировке не потерять индексы элементов, если мы переводим двумерный массив в одномерный, сортируем, а потом обратно переводим в двумерный? Исх массив 5 1 7 1 8 4 2 3 4 Конечный 1 1 2 3 4 4 5 7 8 ..


Консультация # 133037: Здраствуйте,эксперты))вы мне очень помогаете))спасибо вам большое)) Помогите решить следующее: Дано положительное число Т. Вводимые числа последовательно вычитаются из Т, а затем из текущих разностей. Процесс вычитания прекратить, как только текущая разность достигнет неположительного значения. Определить количество выполненных вычитаний.Консультация # 85232: Добрый день! Помогите написать программу на Паскале: 1. Распечатать фамилии детей данного детского сада, которые родились в определенном месяце, указать их возраст и группу. 2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские буквы (а,е,и,о,у,ы,э,ю,я), входящие в этот текст. Заранее спасибо.<...

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

Здраствуйте, как при сортировке не потерять индексы элементов, если мы переводим двумерный массив в одномерный, сортируем, а потом обратно переводим в двумерный?
Исх массив
5 1 7
1 8 4
2 3 4

Конечный
1 1 2
3 4 4
5 7 8

Дата отправки: 25.06.2007, 23:03
Вопрос задал: Mitusov Dmitrij Vlad
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Nazar__D:

Здравствуйте, Mitusov Dmitrij Vlad!
В принципе,с моей точки зрения, это не нужно, поскольку Вы имеете размер исходного массива, и он такой же, как и итогового. А если у Вас такое задание, что надо запомнить исходное положение элементов, то самый простой (но наверное не самый эффективний) метод - это использование дополнительного массива 2*К, где К - количество элементов массива. Первая колонка - первая координата, вторая колонка - вторая координата. Но не понимаю зачем это Вам - ведь можно просто вводить один массив, а сортировать и выводить в другом... Наверное, я не до конца понимаю соль вопроса... :)
Если я Вам чем-то помог, то очень хорошо, если нет - извините, пишите ёще,буду рад помочь!

Консультировал: Nazar__D
Дата отправки: 25.06.2007, 23:14
Рейтинг ответа:

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


Консультирует Manager6:

Здравствуйте, Mitusov Dmitrij Vlad!
чтобы не потерять индексы элеменотов, советую обяъвить дополнительный массив 3х3 типа byte. Затем туда вносить индексы элеметов(придется делать в цикле).

Консультировал: Manager6
Дата отправки: 25.06.2007, 23:22
Рейтинг ответа:

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


Консультирует Louken (Практикант):

Здравствуйте, Mitusov Dmitrij Vlad!

Приятно, что моя программа Вам пригодилась.
В массив a1 я добавил еще одно измерение, в котором сохраняются значение и индексы i и j исходного, потом происходит сортировка и вывод в файл.
Пришлось добавить в сортировке еще одно условие, без него происходит неправильный вывод в файл индексов i и j.
Удачи.

Приложение:

Консультировал: Louken (Практикант)
Дата отправки: 29.06.2007, 23:22
Рейтинг ответа:

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

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

Здраствуйте,эксперты))вы мне очень помогаете))спасибо вам большое))
Помогите решить следующее:
Дано положительное число Т. Вводимые числа последовательно вычитаются из Т, а затем из текущих разностей. Процесс вычитания прекратить, как только текущая разность достигнет неположительного значения. Определить количество выполненных вычитаний.
Заранее благодарю!)

Дата отправки: 19.04.2008, 21:46
Вопрос задал: Igor lukashov
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Абельхарисов Руслан/Marked One (Профессионал):

Здравствуйте, Igor lukashov!
Задача в приложении
Удачи!!!

Приложение:

Консультировал: Абельхарисов Руслан/Marked One (Профессионал)
Дата отправки: 19.04.2008, 22:08
Рейтинг ответа:

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


Консультирует SHERRY:

Здравствуйте, Igor lukashov!
Предлагаю на рассмотрение более краткий и немного видоизменённый вид решения. Код в приложении.

Приложение:

Консультировал: SHERRY
Дата отправки: 20.04.2008, 08:00
Рейтинг ответа:

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

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

Добрый день!
Помогите написать программу на Паскале:
1. Распечатать фамилии детей данного детского сада, которые родились в определенном месяце, указать их возраст и группу.
2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские буквы (а,е,и,о,у,ы,э,ю,я), входящие в этот текст.
Заранее спасибо.
yurginez@bk.ru

Дата отправки: 03.05.2007, 11:32
Вопрос задал: Ершов Сергей Николаевич
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Е.В.Гений:

Здравствуйте, Ершов Сергей Николаевич!
const c: array[1..9] of char = (\'а\',\'е\',\'и\',\'о\',\'у\',\'ы\',\'э\',\'ю\',\'я\'),
var m: set of char; - создаете переменную множество куда будете кидать все буквы
s: string - здесь храниться текст

for i:=1 to length(s) do m:=m+[s[i]]; - загнали буквы
for i:=1 to 9 do if c[i] in m then write(c[i]); - если есть буква то выводим
...

Консультировал: Е.В.Гений
Дата отправки: 03.05.2007, 15:11
Рейтинг ответа:

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


Консультирует Киселёва Алёна aka Verena (Академик):

Здравствуйте, Ершов Сергей Николаевич!

По первой задаче: неясно, как хранятся записи, откуда вводятся... Могу только предполагать, что код может выглядеть как-то так:

type deti = record {описываем тип запись}
fam: string; {фамилия}
age: integer; {возраст}
group: integer; {группа}
month: integer; {месяц}
end;
var a: array [1..7] of deti; {массив записей}
i, n, m: integer; {счётчик, количество записей в массиве, нужный месяц}
begin
{какой-то ввод - с клавиатуры или из файла}
read (m); {считываем месяц}
for i:=1 to n do
if a[i].month=m then {если месяц совпадает - выводим остальные данные}
writeln (a[i].fam, \' \', a[i].age, \' \', a[i].group);
end.

Хотя, как правило, подобные записи либо считывают прямо из типизированного файла по одной, либо хранятся в виде списка.
По второй задаче: не вижу необходимости создавать массив типа char и потом формировать множество. Можно обойтись и одним массивом. Потом, не ясно, какую роль играет точка, откуда берётся "текст" и какого он размера.

const m: array [1..9] of char = [\'а\',\'е\',\'и\',\'о\',\'у\',\'ы\',\'э\',\'ю\',\'я\'];
var s: string; {тут надо учитывать, что хранить в переменной типа string мы можем только текст (строку) до 255 символов}
i: integer;
begin
readln (s); {какой-то ввод, предположим, с клавиатуры}
for i:=1 to 9 do
for j:=1 to length (s) do
if s[j]=m[i] then write (s[j]); {если текущий элемент - нужная по алфавиту буква - выводим}
end.

Консультировал: Киселёва Алёна aka Verena (Академик)
Дата отправки: 03.05.2007, 23:46
Рейтинг ответа:

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


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

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

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



В избранное