Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ СТРОКИ

Автор: Светлана 24.11.2006 2:33

blink.gif Здравствуйте!!!
Не могли бы Вы помочь мне подкорректировать задачку...
Она звучит так: Дана символьная строка, содержащая англ. текст. Найти количество слов, начинающихся с буквы b.
Вот решение.

Program b;
var S:string;
i,p,n:integer;
begin
S:='boy bought a blue car';
writeln(S);
p:=0;
for i:=1 to n do begin
if S[i]='' then inc(i);
if S[i]='b' then inc(p);
end;
writeln('kol-vo slov s bykvoi b ravno',p);
readln;
end.

Но у меня в конце пишется, что кол-во слов с буквой b равно 0...

Подскажите, пож-та, в чем ошибка?

Автор: klem4 24.11.2006 2:53

Во первых, у тебя цикл по i до n, а чему равно n ? Неизвестно, во вторых, ты внутри цикла FOR изменяешь переменную цикла - это черевато большими ошибками, а некоторыми компиляторами и вовсе не пропускается, в третьих задача решается так:

(если между словами только _один_пробел)


count := 0;
i := 1;

while (i <= Length(s)) do begin
if s[i] = ' ' then inc(i);
if s[i] = 'b' then inc(count);
while (i <= Length(s)) and (s[i] <> ' ') do inc(i);
end;

Автор: Светлана 24.11.2006 2:58

Мммм, ясненько!!! Спасибо большое, что помогли и нашли мою ошибку!!!!! good.gif

Автор: volvo 24.11.2006 3:46

Цитата(klem4 @ 23.11.2006 21:53)
(если между словами только _один_пробел)
yes2.gif А если может быть несколько - то так:
var
s: string;
i, p, count: integer;

begin
s := ' boy bought a blue car';

i := 0;
repeat

p := pos(' b', copy(' ' + s, i + 1, length(' ' + s)));
if p > 0 then begin
inc(count); inc(i, p)
end

until p = 0;
writeln('count = ', count);
end.
smile.gif

Автор: Светлана 29.11.2006 21:18

Здравствуйте еще раз!
Я вот переделала немного данную задачку. Она звучит так: Дана символьная строка, содержащая англ. текст. Найти количество слов, начинающихся с буквы b.
Но у меня высвечиваются ошибки... Помогите пож-та подкорректировать.
Заранее спасибо!


Program b;
var S:string;
i,a,p:integer;
begin
S:='boy bought a blue car';
Writeln(S);
a:=length(S);
p:=0;
begin
if S[0]='b' then p:=p+1;
for i:=1 to i<a-1; i:=i+1;
if S[i]='' and S[i+1]='b' then p:=p=1;
end;
writeln('kol-vo slov,na4inaushihsya s bukvy b ravno',p);
end.



М
Полжалуйста, используй теги


Автор: мисс_граффити 29.11.2006 23:37

тебе дали работающий вариант... чем он не понравился?
у тебя же что-то непонятное...

Program b;
var S:string;
i,a,p:integer;
begin
S:='boy bought a blue car';
Writeln(S);
a:=length(S);
p:=0;
begin{к чему этот бегин относится?}
if S[0]='b' then p:=p+1; {в S[0] хранится длина строки. равной 'b' она никак не может быть}
for i:=1 to i<a-1; i:=i+1;{от 1 до i<a-1 - это как? от 1 до истины? копать от забора и до обеда?}
if S[i]='' and S[i+1]='b' then {вряд ли символ - а S[i]-символ - будет равен пустой строке... наверное, речь о пробеле}
p:=p=1;{p:=p=1? пытаешься присвоить значение истина/ложь?}
end;
writeln('kol-vo slov,na4inaushihsya s bukvy b ravno',p);
end.

Автор: Светлана 30.11.2006 2:14

[quote name='мисс_граффити' date='29.11.2006 19:37' post='81202']
тебе дали работающий вариант... чем он не понравился?

хм... спасибо!!!! Я поняла! smile.gif