строки Опции

[bora]

Привет всем помогите кто решить задачу

дано предложение,в котором слова отделяются друг от друга запятой и пробелом или несколькими пробелами.В конце слова стоит точка.Необходимо:
1)подсчитать количество различных слов в предложении;
2)удалить из предложения все слова,имеющие две буквы'o'.

Сообщение отредактировано: bora - 12.03.2006 19:26

[klem4]

FAQ : Строки
Разбиение строки на слова, все способы

+ поиск по форуму, будут конкретные вопросы, задавай, подобные задачи уже решались, ищи.

[bora]

я весь форум перерыл но ничего похожего не нашел!

[APAL]

я весь форум перерыл но ничего похожего не нашел!

Тебе дали прямые ссылки во втором посте! Нажми хотябы на них...

[bora]

Написал задачу а она не правильно пашет.Помогите отредактировать плизз завтра сдавать

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 - 13.03.2006 20:15

[klem4]

Не проверял задачу, но сразу бросается в глаза, у тебя в задании сказано

слова отделяются друг от друга запятой и пробелом или несколькими пробелами

А теперь подумай что будет если ты будешь разделять свои слова несколькими пробелами ? Значение кол-ва слов будет не верным, а чем тебе не понравилась процедура GetWords из нашего FAQ ?

И вот тебе правильная ссылка На очень полезный раздел. Будь добр сходи туда.

Сообщение отредактировано: klem4 - 13.03.2006 20:20

[bora]

плиз помомогите отредактировать прогу бо уже нет сил не хочет правильно работать

[volvo]

А разберешься?

Ну, держи

[bora]

Cпасибо за прогу! Было немног сложно но я разобрался