Составить подпрограмму, определяющую в строке % цифр.

Question

Составить подпрограмму, определяющую в строке % цифр.

Answer 1

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

const
  digits=['0'..'9'];
var
  i,k,n:integer;
  p:real;
  s:string;
begin
  Writeln('Введите строку');
  Readln(s);
  n:=Length(s); k:=0;
  for i:=1 to n do
    if s[i] in digits then Inc(k);
  p:=100*k/n;
  Writeln('Процент цифр в строке равен ',p:0:2)
end.

Тестовое решение:
Введите строку
Самым большим водопадом в мире считается Анхель (Венесуэла), его высота 979м. Открыт в 1933г. летчиком Джеймсом Анхель.
Процент цифр в строке равен 5.88

Comments

это разве подпрограмма, и если возможно без const и digits

---

Видите ли, в Паскале нет подпрограмм, есть процедуры и функции. В этом случае я имею право рассматривать подпрограмму, как самостоятельную программу, выполняющую решение определенной подзадачи, каковой является нахождение процента чисел. О том, что у Вас ограничение на использование средств языка (констант, множеств, а также возможно и еще что-то), Вы тоже в задании не написали. Поэтому все сделано в соответствии с заданием.

---

Если у Вас возникли дополнительные требования - сформулируйте новое задание и перечислите все их там.