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

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

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

Выпуск № 608
от 20.03.2008, 20:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 258, Экспертов: 49
В номере:Вопросов: 4, Ответов: 8

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


Вопрос № 127375: Помогите решить задачу!!!!! Найти произведение b элементов последовательности нечетных чисел, где начальное число а. Застрял.........
Вопрос № 127421: Здравствуйте!Помогите пожалуйста написать программу, которая создаёт запись студент,с полями : ф.И.О,возраст. Всё записать в файл 1.txt и перезаписать в файл 2.txt . Заранее благодарен!...
Вопрос № 127432: Дан текст на русском языке.Напечатать в алфавитном порядке все согласные буквы, которые не входят в каждое слово.(Решить данную задачу используя данне типа множество.)...
Вопрос № 127433: Помогите решить задачу. Дано слово. Поменять в нем местами символы с номерами N и M. Я знаю что эта задача легка для вас, но все же помогите. Я пока учусь! ...

Вопрос № 127.375
Помогите решить задачу!!!!!
Найти произведение b элементов последовательности нечетных чисел, где начальное число а.
Застрял......
Отправлен: 15.03.2008, 01:23
Вопрос задал: Шорин Роман Игоревич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Шорин Роман Игоревич!
Решение в приложении, довольно простое и в комментариях не нуждается. Единственно, произведение растет очень быстро и не следует присваивать а и b большие значения, иначе выйдем за пределы типа Longint.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: 6-ой класс)
Ответ отправлен: 15.03.2008, 07:36
Оценка за ответ: 5


Вопрос № 127.421
Здравствуйте!Помогите пожалуйста написать программу, которая создаёт запись студент,с полями : ф.И.О,возраст. Всё записать в файл 1.txt и перезаписать в файл 2.txt .

Заранее благодарен!
Отправлен: 15.03.2008, 12:16
Вопрос задал: Saiks (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станіслав Васильович
Здравствуйте, Saiks!

Программа в приложении

Код перенесен в приложение.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал)
∙ Дата редактирования: 16.03.2008, 11:21

Приложение:

---------
Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 4-ый класс)
Ответ отправлен: 15.03.2008, 12:28
Оценка за ответ: 5

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Saiks!
Записал и переписал, результат в приложении.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: 6-ой класс)
Ответ отправлен: 15.03.2008, 13:26
Оценка за ответ: 5


Вопрос № 127.432
Дан текст на русском языке.Напечатать в алфавитном порядке все согласные буквы, которые не входят в каждое слово.(Решить данную задачу используя данне типа множество.)

Приложение:

Отправлен: 15.03.2008, 13:22
Вопрос задал: Попов Александр Олегович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Boriss
Здравствуйте, Попов Александр Олегович!
В приложении код, решающий Вашу задачу (на всякий случай и прикрепляю). Прошу помочь в тестировании - я не гонял сильно программу, может, где-то и ошибся (хотя так не думаю).
Если чёй-то не то - напишите в минифоруме - исправим :))
Там же готов ответить на вопросы

Используется:
массив множеств, к который добавляем преобразованные в заглавные буквы
для множеств определена операция "пересечение" - Порядковое значение c содержится в a*b только тогда, когда он содержится в обоих множествах a и b
С помощью это операции находим те буквы, что ВХОДЯТ в каждое слово (накапливаем в множестве chars[1])
А далее просто: перебираем все символы и, если они не входят в chars[1], - выводим

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
---------
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 15.03.2008, 15:32


Вопрос № 127.433
Помогите решить задачу.
Дано слово. Поменять в нем местами символы с номерами N и M.
Я знаю что эта задача легка для вас, но все же помогите. Я пока учусь!
Отправлен: 15.03.2008, 13:27
Вопрос задал: Шорин Роман Игоревич (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 12)

Отвечает: Marked One
Здравствуйте, Шорин Роман Игоревич!
Код в приложении, коментарии там же. Будут вопросы-пишите.
Удачи!!!

Приложение:

Ответ отправил: Marked One (статус: 8-ой класс)
Ответ отправлен: 15.03.2008, 13:55
Оценка за ответ: 5

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Шорин Роман Игоревич!
Решение в приложении, комментариев думаю не требует.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: 6-ой класс)
Ответ отправлен: 15.03.2008, 14:06
Оценка за ответ: 5

Отвечает: Евчик Сергей Александрович
Здравствуйте, Шорин Роман Игоревич! Код в приложении! Удачи

Приложение:

Ответ отправил: Евчик Сергей Александрович (статус: 3-ий класс)
Ответ отправлен: 15.03.2008, 14:18
Оценка за ответ: 5
Комментарий оценки:
Спасибо!

Отвечает: Шемет Станіслав Васильович
Здравствуйте, Шорин Роман Игоревич!
Var
s:string;
Buf:char;
n,m:byte;
Begin
Write('Enter Slovo : ');
Readln(s);
Write('Enter N and M : ');
REadln(n,m);
if (N>0) and (M>0)and (n<=length(s))and (m <=length(s)) then(*Проверка значений N M не выходят ли они за диапазон допустимых значений для даной длины слова *)
Begin
buf:=s[n];
s[n]:=s[m];
s[m]:=buf;
WRite('New slovo is : ',s);
end;
Readln;
end.
---------
Любовь это прекрасно!!!
Ответ отправил: Шемет Станіслав Васильович (статус: 4-ый класс)
Ответ отправлен: 15.03.2008, 20:59


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

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

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

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

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

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


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


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

В избранное