Процедуры и функции Опции

[Добрик]

Найти кол-во цифр в строке
С помощью процедуры и функции.


Есть решение с помощью процедуры (и то есть косяк , см. прог-у), а как с помощью функции?

Код

program test;

uses crt;


var
s:string; c:char;
procedure myproc (s:string);


begin

{Как записать?} if  c in '1'..'9' (char=(1 ..9))

var
s1:string;
i,n:integer;


begin
writeln ('Введи строку:');
readln (s);

for m:=1 to lengtstr (s) do

begin
c:=s[i];

if (c in cfr) then
i:=i+1
m:=m+1;
end;
writeln ('Количество цифр:',i);
end.

[volvo]

Я же привел тебе рабочую процедуру, почему обязательно надо что-то испортить, а потом говорить "не работает"??? Функция возвращает результат, как свое значение, это ясно... Где твоя процедура возвращает результат?

То, что ты печатаешь все внутри процедуры - просто ни в какие ворота не лезет. Нельзя смешивать оформление с логикой !!! Функция только считает, и процедура должна ТОЛЬКО посчитать и вернуть значение:

program proc;

procedure CyfraNumber(s: string; Var m: Integer);
var
  i: integer;
begin
  m := 0;
  for i := 1 to length(s) do
    if s[i] in ['0' .. '9'] then m := m + 1;
end;

var count: integer;
begin
  writeln(' Enter string:');
  readln(s);
  cyfraNumber(s, count);
  writeln(' There are ', count, ' cyfras in string (Procedure)');
  readkey;
end.