![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
MrDeath |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
Я взял прогу с топика в шапке
Разбиение на слова. Все способы. Сделал её такой: program m1;
const
delimiter = ['@', '#', '$', '%','&'];
type
wrd_info = record
start, len: byte;
end;
function get_words(s: string;
var words: array of wrd_info): integer;
var
count: integer;
i, curr_len: byte;
begin
count := -1; i := 1;
while i <= length(s) do begin
while (s[i] in delimiter) and (i <= length(s)) do inc(i);
curr_len := 0;
while not (s[i] in delimiter) and (i <= length(s)) do begin
inc(i); inc(curr_len);
end;
if curr_len > 0 then begin
inc(count);
with words[count] do begin
start := i - curr_len;
len := curr_len
end;
end;
end;
get_words := count + 1;
end;
const
max_word = 255;
var
words: array[1 .. max_word] of wrd_info;
i, n,bn :integer;
s,ss:string;
begin
readln (s);
n := get_words(s, words);
writeln('words:');
bn:=n;
while i<bn do begin
ss:=ss+ copy(s, words[i].start, words[i].len);
inc(i); inc(i);
writeln(ss);
end;
writeln(ss);
end.
Условие моей задачи: дана строка. Слова разделяются спец символами задаными во множесте ['@', '#', '$', '%','&']. Надо удалить из строки чётные слова. Проблемы: В переделаной проге удаляются нечётные слова. И почему то правильно работает если разделитель '#' при других разделителях уже сбивается. Сообщение отредактировано: volvo - 15.03.2006 14:35 |
![]() ![]() |
MrDeath |
![]()
Сообщение
#2
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
Разобрался, переделал, сдал.
Спасибо за хелп. |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 10:19 |