Определить количество предложений, в которых все слова начинаются на букву А

@Harley22 · Регистрация: 07.12.2019

Помогите решить пожалуйста завтра сдавать
Задание связанное с типом char.
Вводится текст конец ввода F4. Определить количество предложений в которых все слова начинаются на букву А. Слова отделяются пробелом, предложения - точкой.

@Cyborg Drone · 17.12.2019, 11:09

Pascal

uses
  crt;
 
var
  t, c, p: char;
  n: integer;
  ok: boolean;
 
begin
  writeln('Введите текст, между словами пробелы, в конце предложений точки, окончание ввода <F4>:');
  c := '.';
  ok := false;
  repeat
    t := c;
    c := readkey;
    write(c);
    case t of
      '.':  begin
              p := c;
              if ok
                then inc(n)
                else ok := true;
            end;
      ' ':  ok := ok and (c = p)
    end
  until (t = #0) and (c = #62);
  writeln;
  write('n = ', n);
  readln
end.

Учтите: точно по заданию, то есть, между словами предложения ровно один пробел, в конце предложения ровно одна точка, перед точкой и после точки пробелов нет. Программа прекращает работу при нажатии клавиши <F4>, при этом, если текст не заканчивается точкой, отрезок текста от последней точки до <F4>, согласно задания, предложением не является. Если текст не содержит точек, то он не содержит и предложений.

@Harley22 0 / 0 / 0 Регистрация: 07.12.2019 Сообщений: 5
		1
	Определить количество предложений, в которых все слова начинаются на букву А 08.12.2019, 13:46. Просмотров 418. Ответов 1 Метки char, pas, pascal, pascal abc (Все метки) Помогите решить пожалуйста завтра сдавать Задание связанное с типом char. Вводится текст конец ввода F4. Определить количество предложений в которых все слова начинаются на букву А. Слова отделяются пробелом, предложения - точкой. 0

Опции темы