Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| строки |
| bora |
 
Сообщение
#1
|
 Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: женя Репутация:  0   |
Привет всем помогите кто решить задачу
дано предложение,в котором слова отделяются друг от друга запятой и пробелом или несколькими пробелами.В конце слова стоит точка.Необходимо: 1)подсчитать количество различных слов в предложении; 2)удалить из предложения все слова,имеющие две буквы'o'. Сообщение отредактировано: bora - |
   |
 
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
FAQ : Строки
Разбиение строки на слова, все способы + поиск по форуму, будут конкретные вопросы, задавай, подобные задачи уже решались, ищи. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| bora |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: женя Репутация: 0 |
я весь форум перерыл но ничего похожего не нашел!
 |
|
|
|
| APAL |
Сообщение
#4
|
 Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата(bora @ 12.03.2006 20:40)  я весь форум перерыл но ничего похожего не нашел! Тебе дали прямые ссылки во втором посте! Нажми хотябы на них... -------------------- |
|
|
|
| bora |
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: женя Репутация: 0 |
Написал задачу а она не правильно пашет.Помогите отредактировать плизз завтра сдавать
program SJenya;
uses crt;
var
st:string;
o,Io,prob,i,k:byte;
begin
clrscr;
write('WWEDITE STROKU: ');
readln(st);
k:=1; o:=0;
for i:=1 to length(st) do begin
if st[i]=' ' then k:=k+1;
writeln('KOL-WO SLOW W STROKE: ', K);
prob:=pos(' ',st);
for i:=1 to prob do
if st[i]='o' then begin Io:=i;
o:=o+1; end;
if o=2 then
delete(st,1,prob);
end;
writeln(st);
readkey;
end.
Пользуйся тегами Сообщение отредактировано: klem4 - |
|
|
|
| klem4 |
Сообщение
#6
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Не проверял задачу, но сразу бросается в глаза, у тебя в задании сказано
Цитата слова отделяются друг от друга запятой и пробелом или несколькими пробелами А теперь подумай что будет если ты будешь разделять свои слова несколькими пробелами ? Значение кол-ва слов будет не верным, а чем тебе не понравилась процедура GetWords из нашего FAQ ? И вот тебе правильная ссылка На очень полезный раздел. Будь добр сходи туда. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| bora |
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: женя Репутация: 0 |
плиз помомогите отредактировать прогу бо уже нет сил не хочет правильно работать
 |
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
А разберешься?
 Ну, держи  Прикрепленные файлы 
__bora.pas ( 1.52 килобайт )
Кол-во скачиваний: 248 |
|
|
|
| bora |
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: женя Репутация: 0 |
Cпасибо за прогу!
 Было немног сложно но я разобрался |
|
|
|
|
|
Текстовая версия | 22.04.2025 8:39 |
