Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых

@ilay00 · Регистрация: 18.09.2017

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

Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых.

@Ivandur · 02.12.2017, 18:56

Pascal

const ends:set of char=['.','?','!'];
var f:Text;
     s:string;
     ch:char;
begin
Assign(f,'text.txt')
reset(f);
s:='';
while not eof(f) do
   begin
   read(ch);
   if not(ch in ends) then
     s:=s+ch
   else
      begin
      if pos(',',s)=0 then
        writeln(s);
      s:='';
      end;
   end;
if pos(',',s)=0 then
    writeln(s);
close(f);
end.

Примерно так...

@bormant · 03.12.2017, 16:37

Ivandur,

Pascal

  s:=s+ch;
  if ch in ends then begin
    if Pos(',',s)=0 then WriteLn(s);
    s:='';
  end;

иначе завершающий знак из ".!?" теряете.

@ilay00 0 / 0 / 0 Регистрация: 18.09.2017 Сообщений: 17
		1
	Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых 01.12.2017, 13:01. Показов 2444. Ответов 2 Метки нет (Все метки) Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых. 0

Опции темы

Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых

Решение