Работа по паскалю 2. Практическая часть по программированию: "Практическая часть по...

Question

Работа по паскалю
2. Практическая часть по программированию:

"Практическая часть по программированию предполагает решение 2 задач:
на тип INTEGER и на тип CHAR (другие типы использовать нельзя!!!)."

Вводится текст. Конец ввода точка. Найти количество предложений, предложения разделяются "!".

Comments

Напиши так же как в той в паскале )

Answer 1

// PascalABC.NET 3.2, сборка 1478 от 10.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст, завершив его точкой:');
  var p:=Pos('.',s);
  if (p>0) and (p  Writeln('Количество предложений равно ',s.ToWords('!').Count)
end.

Пример
Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4!
Количество предложений равно 3

Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:

begin
  Writeln('Количество предложений равно ',
    ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count)
end.

Comments

Спасибо

---

program test;
var
s:string;
ch:char;
x:integer;
begin
x:=0;
writeln('Введите текст:');
while ch<>'.' do
begin
read(ch);
s:=s+ch;
if ch='!' then x:=x+1;
end;
x:=x+1;
writeln('+-------------------------+');
writeln('Количество предложений:',x);
writeln('+-------------------------+');
end.
так можно или нет ?