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

Ильгиза · 15.11.2011, 16:05

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

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 · 15.11.2011, 16:30

Цитата:

Сообщение от Ильгиза

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

Пожалуйста.
Прежде всего, Вы не разобрались со структурой параметров Паскаля. Если параметр введен внутри подпрограммы (процедуры или функции), то о существовании внешнего параметра с тем же именем означенная подпрограмма тут же забывает. Поэтому, например, когда Вы внутри функции 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=) · 15.11.2011, 16:30

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

Код:

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 · 15.11.2011, 16:32

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

shrek=) · 15.11.2011, 16:37

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

Ильгиза · 15.11.2011, 16:51

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

Vladimir_S · 15.11.2011, 16:55

Цитата:

Сообщение от Ильгиза

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

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

15.11.2011, 16:05	#1 (permalink)
Ильгиза Member Регистрация: 08.10.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	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.

15.11.2011, 16:30	#3 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Я думаю это должно быть, как минимум так: Код: 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.

15.11.2011, 16:32	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Практически - один в один!

15.11.2011, 16:37	#5 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Хорошие мысли в умные головы приходят одновременно!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

15.11.2011, 16:51	#6 (permalink)
Ильгиза Member Регистрация: 08.10.2011 Сообщений: 49 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо за решения, но мне ее надо решить именно с функцией.