RusFAQ.ru: Программирование на языке Pascal (comp.soft.prog.pasplus) : Рассылка : Subscribe.Ru

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

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

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

Статистика

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal
Выпуск № 693
от 10.10.2008, 06:05

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

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

Статистика

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / PascalВыпуск № 693от 10.10.2008, 06:05

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal
Выпуск № 693
от 10.10.2008, 06:05

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

Доставка подписки заблокирована с 2024-08-16 из-за ошибок доставки.
Для возобновления доставки подписки, нажмите сюда.

Компьютеры и интернет

Обучение

RusFAQ.ru

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 RSS

← Октябрь 2008 →
	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 28.10.2008 03:18:02 20:37:59	29	30	31

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

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

Автор

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

2.942 подписчиков
0 за неделю

← Все выпуски →

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

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

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

Нам важно Ваше мнение об этой рассылке. Оценить этот выпуск рассылки >>

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

Вопрос № 146.032

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

Отправлен: 04.10.2008, 23:31
Вопрос задал: Базыр Будаев (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Базыр Будаев!
Решение задачи с пояснениями в приложении.
Приложение:
uses crt; var s:string; n,i,k:integer; begin clrscr; n:=80; {размер строки} randomize; writeln('Исходная строка:'); s:=''; for i:=1 to n do begin s[i]:=chr(random(50)+48); {заполним строку случайным образом цифрами и некоторыми символами} s:=s+s[i]; end; writeln(s); writeln; k:=0; for i:=1 to n do if s[i] in ['0'..'9'] then {если символ принадлежит множеству цифр} begin k:=k+1; {считаем} insert(s[i],s,k); {вставляем такой же символ на очередное место в начале строки} delete(s,i+1,1); {удаляем найденный символ} end; writeln('Преобразованная строка:'); write(s); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 05.10.2008, 10:19
Оценка за ответ: 5

Отвечает: Шичко Игорь
Здравствуйте, Базыр Будаев!
Предлагаю Вам следующий алгоритм решения.
Код в приложении.
Приложение:
var str, numbers_etalon, numbers, letters: string; i: integer; begin numbers:= ''; letters:= ''; numbers_etalon:= '0123456789'; Readln(str); {Ввод строки} for i:= 1 to Length(str) do {пробегаем по символам исходной строки} begin if Pos(str[i], numbers_etalon) > 0 then numbers:= numbers + str[i] {если цифра} else letters:= letters + str[i]; {если не цифра} end; writeln(numbers); {вывод цифр} writeln(letters); {вывод не цифр} end;

Ответ отправил: Шичко Игорь (статус: 7-ой класс)
Ответ отправлен: 06.10.2008, 13:49
Оценка за ответ: 5

Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!

Оценить этот выпуск рассылки >>

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

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

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

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

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

В избранное

← Октябрь 2008 →

28 28.10.2008 03:18:02 20:37:59