Pascal, нужно найти ошибки

[Ильгиза]

Pascal, нужно найти ошибки

Здравствуйте! помогите пожалуйста найти ошибки.
необходимо подсчитать количество символов '*', ';' ,':' в строке.

program upr1;
function vv(b:char;var k:integer):integer;
var st:string;
a:integer;
begin
k:=0;
a:=pos(b,st);
while a<>0 do begin
k:=k+1;
delete(st,a,1);
a:=pos(b,st);
end;
vv:=k;
end;
var st:string;
b:char;
k,a,n:integer;
begin
writeln('введите строку');
readln(st);
k:=vv('*',k);
k:=vv(':',k);
k:=vv(';',k);
write(k);
end.

 

[Vladimir_S]

Здравствуйте! помогите пожалуйста найти ошибки. необходимо подсчитать количество символов '*', ';' ,':' в строке.

Пожалуйста.
Прежде всего, Вы не разобрались со структурой параметров Паскаля. Если параметр введен внутри подпрограммы (процедуры или функции), то о существовании внешнего параметра с тем же именем означенная подпрограмма тут же забывает. Поэтому, например, когда Вы внутри функции vv определяете параметр var st:string;, то для функции это просто новая пустая строка, и о том, что в теле программы вы определили строковую переменную с тем же именем, функция знать ничего не знает! Поэтому если Вы хотите, чтобы подпрограмма работала с глобальными параметрами - пожалуйста, вот только переопределять их ни в коем случае не следует. В этом - главное отличие подпрограмм Паскаля и, скажем, Фортрана - в последнем как раз следует описывать глобальные параметры в подпрограммах.
Теперь о самом решении задачи. К чему такие сложности - всё гораздо проще:

VAR
 S:String;
 n1,n2,n3,i:Byte;
BEGIN
 n1:=0;
 n2:=0;
 n3:=0;
 Writeln('Enter the string:');
 ReadLn(S);
 For i:=1 to Length(S) do
  begin
   If S[i]='*' then Inc(n1);
   If S[i]=';' then Inc(n2);
   If S[i]=':' then Inc(n3);
  end;
 Writeln('"*" - ',n1);
 Writeln('";" - ',n2);
 Writeln('":" - ',n3);
 Readln
END.

 

[shrek=)]

Я думаю это должно быть, как минимум так:

var
a,b,c,i:byte;
s:string;
begin
a:=0;
b:=a;
c:=a;
writeln ('Enter srting');
readln (s);
for i:=1 to length(s) do begin
if s[i]='*' then inc(a);
if s[i]=';' then inc(b);
if s[i]=':' then inc(c);
end;
writeln ('* =',a);
writeln ('; =',b);
writeln (': =',c);
readln
end.

 

[Vladimir_S]

Практически - один в один!

 

[shrek=)]

Хорошие мысли в умные головы приходят одновременно!

 

[Ильгиза]

Спасибо за решения, но мне ее надо решить именно с функцией.

 

[Vladimir_S]

Спасибо за решения, но мне ее надо решить именно с функцией.

И что эта функция должна делать? Опишите словами.