Question

Написать программу на паскале которая определяет, каков процент пробелов во введенном тексте.

Answer 1

Var
  s: string;
  i, n, k: integer;

begin
  writeln('Введите текст');
  readln(s);
  n := Length(s);
  k := 0;
  for i := 1 to n do
    if s[i] = ' ' then k := k + 1;
  writeln('Количество пробелов в тексте- ', k)
end.

Тестовый пример:

Введите текст
А роза упала на лапу Азора, а тут ДВА пробела  , а тут вообще пять:     : Все!
Количество пробелов в тексте- 21

Answer 2

Конечно, вот пример программы на Pascal, которая определяет процент пробелов в введенном тексте:

program CalculateSpacePercentage;

var
  text: string;
  spaceCount, totalCount: integer;
  spacePercentage: real;

begin
  // Ввод текста
  writeln('Введите текст:');
  readln(text);

// Инициализация счетчиков
  spaceCount := 0;
  totalCount := length(text);

// Подсчет пробелов
  for var i := 1 to totalCount do
  begin
    if text[i] = ' ' then
      spaceCount := spaceCount + 1;
  end;

// Расчет процента пробелов
  if totalCount > 0 then
    spacePercentage := (spaceCount / totalCount) * 100
  else
    spacePercentage := 0;

// Вывод результатов
  writeln('Количество пробелов: ', spaceCount);
  writeln('Общее количество символов: ', totalCount);
  writeln('Процент пробелов: ', spacePercentage:0:2, '%');

readln;
end.

Программа сначала запрашивает у пользователя ввод текста, затем считает количество пробелов в тексте и вычисляет процент пробелов относительно общего числа символов. Результат выводится на экран.

Обратите внимание, что эта программа не учитывает другие символы, такие как табуляции или новые строки. Если вам нужно учесть их, вам следует модифицировать программу соответственно.