Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Текствоый файл, Работа с файлами |
| Needhelp |
Сообщение
#1
|
 Живет здесь...  Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация:  0   |
 Ну вот и мне help нужна...Задание такое... Задан текстовый файл и последовательность символов. Написать программу, которая определяет существует ли в этом файле заданная последовательность. В поиске смотрел...да нифига не нашел...может кто чего?  |
   |
 
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
1) какая максимальная длина последовательности символов
2) Последовательность: 'abcd' Файл: 'это первая строка файлаa' 'bcdэто вторая строка файла' EOF или так 'abcd' Файл: 'это первая строaка файла' 'это вторая строка файла' 'bcdэто третья строка файла' результат ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Angellore |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Те случаи, когда ищется
Последовательность: '333' Файл: '4443344 3331211' з.ы close(f) забыл
uses crt;
var f:text;
s,s1:string;
subSTR:boolean;
begin
clrscr;
subSTR:=false;
assign(f,'c:/text.txt');
s:='4124';
reset(f);
while not eof(f) do begin
readln(f,s1);
if pos(s,s1)<>0 then subSTR:=true;
end;
writeln(subSTR);
readkey;
close(f);
end.
Сообщение отредактировано: Angellore - |
|
|
|
| Needhelp |
Сообщение
#4
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Как бы код Angellore к моему условию???переделать)))
|
|
|
|
| volvo |
Сообщение
#5
|
|
Гость |
Для этого надо как минимум знать твое условие, а на наводящие вопросы ты не отвечаешь..
|
|
|
|
| Needhelp |
Сообщение
#6
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
ВСЕ понял=)))) соррри
'abcd' Файл: 'это первая строка файлаa' 'bcdэто вторая строка файла' EOF или так 'abcd' Файл: 'это первая строaка файла' 'это вторая строка файла' 'bcdэто третья строка файла' результат ? TRUE Если прав-но понял вопрос про (максимальную длинну последовательности символов) то это String (N=255)... |
|
|
|
| Needhelp |
Сообщение
#7
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
И все-таки...есть предложения...мысли?
|
|
|
|
| klem4 |
Сообщение
#8
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
последнее уточнение
строка abcd файл 1a34 b678 94c5 145d true ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Needhelp |
Сообщение
#9
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 19.04.2007 20:41)  последнее уточнение строка abcd файл 1a34 b678 94c5 145d true ? ага |
|
|
|
| klem4 |
Сообщение
#10
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Вот, потестируй
var
f: Text;
temp, s, word: String;
i, j: Integer;
begin
assign(f, 'text.txt'); reset(f);
word := 'abcd';
s := '';
i := 1;
while not(eof(f)) and (s <> word) do begin
readln(f, temp);
j := 1;
while (j <= Length(temp)) and (s <> temp) do begin
if temp[j] = word[i] then begin
s := s + word[i];
inc(i);
end;
inc(j);
end;
end;
writeln(s = word);
close(f);
end.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Needhelp |
Сообщение
#11
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
строка
abcd+- файл 55abc-- 7777gyd++ Выдает False хотя +- тоже символы... |
|
|
|
| klem4 |
Сообщение
#12
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Все правильно выдает False
после d+ минусов в файле нет. Извини я не телепат, мало того тчо пришлось за тебя условие додумывать... приводи условие полностью с тестовыми примерами, и все будет нормально. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Needhelp |
Сообщение
#13
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Я забыл про последовательность... Ты прав...=)) На счет условия (примеров)..буду знать) Спасибо тебе огромное!!! Мог бы репу увел... но не могу (к сожалению)... Извини за лишнюю работу с примерами)))
|
|
|
|
|
|
Текстовая версия | 22.04.2025 12:13 |
