Правила форума
Прочтите прежде чем задавать вопрос!
Использую 2 версии паскаля, но код работает неверно в обоих. алгоритм if s[i]=x then find:=p+1; всегда равен 1, а если буквы в строке нет, то значение выставляется 85 в одной версии и 93 в другой 0_о. Где мой косяк?
Код
program new;
uses crt;
var s:string;
i:integer;
function find(x:string):byte;
var p:byte;
begin
for i:=1 to length(s) do
if s[i]=x then find:=p+1;
end;
begin
clrscr;
writeln('VVedite stroky');
readln(s);
writeln('Bykv r ',find('r'));
writeln('Bykv k ',find('k'));
writeln('Bykv t ',find('t'));
readln;
end.
uses crt;
var s:string;
i:integer;
function find(x:string):byte;
var p:byte;
begin
for i:=1 to length(s) do
if s[i]=x then find:=p+1;
end;
begin
clrscr;
writeln('VVedite stroky');
readln(s);
writeln('Bykv r ',find('r'));
writeln('Bykv k ',find('k'));
writeln('Bykv t ',find('t'));
readln;
end.
Сообщение отредактировано: Alucard -
