В символьном файле подсчитать число сочетаний AB и определить, есть ли сочетание ABCDEFGH

@Artemb18 · Регистрация: 18.12.2013

Author24 — интернет-сервис помощи студентам

Помогите написать программу:
Дан символьный файл F:
а) подсчитать число вхождений в файл сочетаний AB;
б) определить входит в файл сочетание ABCDEFGH.

@bormant · 20.06.2014, 16:36

Pascal

var
  f: text;
  s: string;
  n, p: integer;
  q: boolean;
begin
  Assign(f,'f.txt'); Reset(f);
  while not eof(f) do begin
    ReadLn(f,s);
    if Pos('ABCDEFGH',s)<>0 then q:=True;
    while Pos('AB',s)<>0 do begin
      inc(n); Delete(s,1,Pos('AB',s)+1);
    end;
  end;
  Close(f);
  WriteLn('AB: ', n, ', ABCDEFGH: ',q);
end.

@Artemb18 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 31
		1
	В символьном файле подсчитать число сочетаний AB и определить, есть ли сочетание ABCDEFGH 20.06.2014, 15:40. Показов 1581. Ответов 1 Метки нет (Все метки) Помогите написать программу: Дан символьный файл F: а) подсчитать число вхождений в файл сочетаний AB; б) определить входит в файл сочетание ABCDEFGH. 0

	20.06.2014, 16:36

В символьном файле подсчитать число сочетаний AB и определить, есть ли сочетание ABCDEFGH

Решение