| ← Декабрь 2004 → | ||||||
|
3
|
||||||
|
11
|
12
|
|||||
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 355
от 08.12.2004, 17:10
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 568 Отправлено ответов: 2157 Активность: 379.7 %
|
ВНИМАНИЕ!!!
В связи с вводом в понедельник 13 декабря 2004 года новой системы приём вопросов приостановлен до указанного выше срока!Пожалуйста, сохраните текст Вашего вопроса и задайте его в день запуска новой системы.
Приношу свои извинения и надеюсь на Ваше понимание!
С уважением,
Калашников Олег.
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Boriss Статус: Профессиональный Общий рейтинг: 155.68 URL: Программирование на Паскале [Подробней >>] |
sir henry Статус: Профессиональный Общий рейтинг: 164 [Подробней >>] |
Alien Статус: Опытный Общий рейтинг: 132.07 [Подробней >>] |
| Student Статус: Опытный Общий рейтинг: 123.23 [Подробней >>] |
ALex_zaw Статус: Начальный Общий рейтинг: 154.54 [Подробней >>] |
Honig Статус: Начальный Общий рейтинг: 128.57 [Подробней >>] |
| Strory Статус: Опытный Общий рейтинг: 158.26 URL: МУАТ Телефон: +7 (845-3) 54-16-74 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 563. Здраствуйте. Задача: написать функцию, кот. вычисляет кол-во вхождений слова 'привет' в текстовую ст... (ответов: 7)
Вопросов: 1, ответов: 7
| Вопрос № 563 |
Здраствуйте.
Задача: написать функцию, кот. вычисляет кол-во вхождений слова 'привет' в текстовую строку.(или в текстовый файл).
Вопрос: как понимать эту задачу?что значит "вычислить кол-во вхождений"????
Вопрос отправлен: 04.12.2004, 19:00
Отправитель: Семен
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Доброе время суток, Семен!
Антизадача:
if pos('привет', Source) <> 0 then INC(Count);
Антивопрос:
Подсчитать, сколько раз встречается данный набор символов
Ответ отправлен: 06.12.2004, 12:11
Отправитель: Boriss
Отвечает sir henry
Приветствую Вас, Семен!
Это значит, сколько раз слово "привет" встречается в строке или в файле.
Ответ отправлен: 06.12.2004, 04:23
Отправитель: sir henry
Отвечает Alien
Здравствуйте, Семен!
procedure TForm1.Button1Click(Sender: TObject);
Const
SearchWord: String = 'Ïðèâåò';
Var
Index: Integer;
InText: String;
Counter: Integer;
begin
Counter:=0;
InText:='Ïðèâåòsefg werty erty ÏðèâåòÏðèâåòerty wety sdfg scfÏðèâåò';
While Pos(SearchWord, InText)<>0 Do
Begin
Inc(Counter);
InText[Pos(SearchWord, InText)]:='@';
End;
ShowMessage(InText);
ShowMessage('Êîëè÷åñòâî âõîæäåíèé: '+IntToStr(Counter));
end;
procedure TForm1.Button1Click(Sender: TObject);
Const
SearchWord: String = 'Ïðèâåò';
Var
Index: Integer;
InText: String;
Counter: Integer;
begin
Counter :=0;
InText:='Ïðèâåòsefg werty erty ÏðèâåòÏðèâåòerty wety sdfg scfÏðèâåò';
For Index:=1 To (Length(InText)-Length(SearchWord))+1 Do
Begin
If Copy(InText, Index, Length(SearchWord))=SearchWord Then Inc(Counter);
End;
ShowMessage(InText);
ShowMessage('Êîëè÷åñòâî âõîæäåíèé: '+IntToStr(Counter));
end;
Ответ отправлен: 04.12.2004, 19:56
Отправитель: Alien
Отвечает Student
Здравствуйте, Семен!
Вычислить количество вхождений слова в строку, т.е. подсчитать, сколько раз это слово встречается в этой строке.
С ув. Student.
Ответ отправлен: 04.12.2004, 23:17
Отправитель: Student
Отвечает ALex_zaw
Доброе время суток, Семен!
Я думаю это можно понимать как "сколько раз слово ПРИВЕТ встречается в данной строке символов или в файле".
Ответ отправлен: 05.12.2004, 12:18
Отправитель: ALex_zaw
Отвечает Honig
Здравствуйте, Семен!
Это очень простая задача,
просто Вам необходимоопределить ск.
раз в строке встречается данное слово.
Читаешь стоку и выбираешь слова,
по принципу: считал слово и удалил его из
строки и последующие пробелы и т.д.
Ответ отправлен: 04.12.2004, 23:35
Отправитель: Honig
Отвечает Strory
Здравствуйте, Семен!
Я так понимаю, что нужно подсчитать, сколько искомое слово встречается в тексте. Делаем примерно так:
count := 0; {количество "вхождений"}
while Pos(slovo, stroka) <> 0 do begin
inc(count); {увеличиваем счётчик}
Delete(stroka, Pos(slovo, stroka), Length(slovo)); {удаляем найденный экземпляр слова}
end;
С уважением,
Strory.
Ответ отправлен: 05.12.2004, 00:42
Отправитель: Strory
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (25) C / C++ (24) Perl (7) Builder / Delphi (20) Pascal (21) Basic / VBA (15) Java / JavaScript (7) PHP (20) Криптография (10) WinAPI (22) Радиоэлектроника (16) |
Пользователю Windows 95/98/Me (38) Windows NT/2000/XP (61) "Железо" (39) Поиск информации (24) |
Администратору Windows NT/2000/XP (40) Linux / Unix (18) |
Юристу Гражданское право (11) Семейное право (6) Трудовое право (10) КоАП (6) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Web-студия "Kalashnikoff.ru"
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А.
При перепечатке материалов ссылка на данный сайт обязательна!
| http://subscribe.ru/
http://subscribe.ru/feedback/ |
Подписан адрес: Код этой рассылки: comp.soft.prog.pasplus |
Отписаться |
| В избранное | ||
