Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача по файлам

Автор: CyberDemon 2.01.2007 19:03

Помогите написать прогу:
Дан символьный файл(тип CHAR). Определить, входит ли в файл сочетание "abcdefgh".

Автор: Michail 2.01.2007 19:17

Прсто считывай из файла посимвольно с помощью read и проверяй каждый символ. Если произошло совпадение с первым(искомая строка), то начинай сравнивать со вторым(в ней же), а далее если совпадения кончились, то сравнивай снова с первым.

Автор: Sam0784 2.01.2007 23:30

держи 


program forum;
var
i:integer;
f:file of char;
s:char;
ss:string;
begin
ss:='abcdefgh';
assign(f,'c:\temp\1.chr');
reset(f);
i:=1;
while not eof(f) do
 begin
  read(f,s);
  if s=ss[i] then inc(i)
   else i:=1;
  if i=9 then break;
end;
if i=9 then write('vhodit')
 else write('nevhodit');
readln;
end.


Автор: Bokul 2.01.2007 23:36

if i=9 then break;

лучше поменять на 
if i=length(ss) then break;

и кто будет файл закрывать? wink.gif

Автор: volvo 3.01.2007 0:01

Цитата
лучше поменять на 


if i > length(ss) then break;
все-таки...