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

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


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

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

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

Выпуск № 526
от 24.12.2007, 20:05

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

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


Вопрос № 114765: Уважаемые эксперты!Помогите пожалуйста написать блок-схему и алгоритм работы программы: Написать программу, которая для каждого символа заданного текста указывает, сколько раз он встречается в тексте так, чтобы сообщение об одном символе печаталось н...
Вопрос № 114830: Пожалуста помогите решить задание по Паскалю.А то у меня ничего чо-то не получается, выдает какой то бред при выполнении.А с координатами вообще ничего придумать не могу.помогите Задание: Найти произведение наименьших элементов каждой строки матр...
Вопрос № 114866: Hello эксперты! У меня к Вам два вопросика! Помогите пожалуйста! Я уже обращался с вопросами, ну почему то никто не хочет помогать! Нужно выразить операцию MOD через другие операции и стандартные функции! И еще: помогите написать код программы п...
Вопрос № 114877: Помогите плиз сделать прогу-В двумерном N*K массиве целых чисел поменять строку с максимальной суммой элементов со строкой с минимальной суммой элементов. ..

Вопрос № 114.765
Уважаемые эксперты!Помогите пожалуйста написать блок-схему и алгоритм работы программы: Написать программу, которая для каждого символа заданного текста указывает, сколько раз он встречается в тексте так, чтобы сообщение об одном символе печаталось не более одного раза.

Приложение:

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

Отвечает: Gh0stik
Здравствуйте, Jeyd007!

Алгоритм работы очень простой:
1) Определяем массив-счетчик в котором будем хранить сколько раз встречается в исходном тексте то или иной символ.
2) Определяем множество - в нем будемхранить все символы которые входят в исходный текст.
3) Начало программы.
4) Вводим исходный текст.
5) Пока переменная "i" меньше либо равна длинне исходной строки делаем, если условие не выполняется то следуем в пункт 7):
6) Увеличиваем массива-счетчика элемент номер которого равен коду текущего символа строки на единицу.
7) Увеличиваем переменную "i" на единицу и переходим в пункт 5).
8) Пока переменная "i" меньше либо равна 255 пробегаем в цикле проходим каждыей элемент массива-счетчика и выполняем пунтк 9).
9) Если элемент с кодом "i" входит во множество, то выводим его на экран, а также количество повторений этого элемента в исходном тексте.
10) Конец программы.

Непосредственно сам код:
const s: string = 'Ya pozdno vernulsya domoy';
var chars: array[0..255] of word;
   buk:set of char;
   i: Integer;
begin
  for i:=0 to 255 do chars[i] := 0; {обнуляем элементы массива-счетчика}
  buk:=[]; {делаем множество пустым}
  for i:=1 to length(s) do {обрабатываем в цикле каждый элемент строки}
  begin
    inc(chars[ord(s[i])]); {увеличиваем значение элемента массива на единицу, номер которого соответсвует коду текущего символа строки}
    include(buk,s[i]); {заносим символ в множество}
  end;
  for i:=0 to 255 do {проходим весь массив-счетчик}
  if chr(i) in buk then write(chr(i),'-',chars[i],' ':3); {если элемент с кодом i содержится во множестве, то выводим его на экран и количество его повторений в исходной строке}
  writeLn;
  readln;
end.


Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
WWW: http://gh0stik.rusfaq.ru/
ICQ: 289363162
----
Ответ отправлен: 19.12.2007, 01:42
Оценка за ответ: 5
Комментарий оценки:
Огромнейшее спасибо! Без вас бы я не справился!


Вопрос № 114.830
Пожалуста помогите решить задание по Паскалю.А то у меня ничего чо-то не получается, выдает какой то бред при выполнении.А с координатами вообще ничего придумать не могу.помогите
Задание: Найти произведение наименьших элементов каждой строки матрицы и их координаты.

Приложение:

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

Отвечает: Boriss
Здравствуйте, Федоренко Алексей Владимирович!
Не стал разбирать Вашу программу - написал свою.
По-моему, в ней все очевидно, но, если что-то не понятно - спрашивайте в минифоруме

Приложение:

---------
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 19.12.2007, 16:07
Оценка за ответ: 5
Комментарий оценки:
Да все понятно Огромное вам спавибо Вы очень меня выручили


Вопрос № 114.866
Hello эксперты! У меня к Вам два вопросика! Помогите пожалуйста! Я уже обращался с вопросами, ну почему то никто не хочет помогать!
Нужно выразить операцию MOD через другие операции и стандартные функции! И еще: помогите написать код программы поднесения чисел к n-ой степени! Сначало нужно ввести число, а потом указатель степени! ПОМОГИТЕ ПОЖАЛУЙСТА!
Отправлен: 19.12.2007, 17:12
Вопрос задал: Васько (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич
Здравствуйте, Васько!

Эту строку:
Y:=X mod Z;
можно заменить на:
Y:= X -Z * trunc ( X / Z );

Возведение в любую степень:
An:= EXP ( LN ( A ) * n );

Удачи!!
---------
И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 19.12.2007, 17:30
Оценка за ответ: 5
Комментарий оценки:
Спасибо Вам большое!

Отвечает: Boriss
Здравствуйте, Васько!
Да потому, что просто все. Вот в приложении вариант первого
А второе можно так:
d:=12;
for i:=2 to pow do d:=d*12;

возведение 12 в степень n. Надо только бояться переполнения. По этой причине d нужно объявлять размером побольше

Приложение:

---------
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 19.12.2007, 17:36
Оценка за ответ: 5
Комментарий оценки:
Та понимаю я что все просто! Но ответ на 1-й вопрос - не совсем правильный, я должен вводить в программку 1-число, потом 2-ое, и с каждым разом - они разные!


Вопрос № 114.877
Помогите плиз сделать прогу-В двумерном N*K массиве целых чисел поменять строку с максимальной суммой элементов со строкой с минимальной суммой элементов.
Отправлен: 19.12.2007, 18:22
Вопрос задал: Andrey729 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Djec
Здравствуйте, Andrey729!
В приложении решение задачи:

Приложение:

---------
"Если ты что-то делаешь, делай это хорошо. если же ты не можешь или не хочешь делать хорошо, лчуше совсем не делай" © Л.Н.Толстой"

Ответ отправил: Djec (статус: 6-ой класс)
Ответ отправлен: 19.12.2007, 22:52

Отвечает: Артём1983
Здравствуйте, Andrey729!
Смотрите код программы в приложении.

Приложение:

---------
Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 7-ой класс)
Ответ отправлен: 20.12.2007, 13:02


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

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

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

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

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

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


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


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

В избранное