Задача обработки строк

[artxdf]

Задача обработки строк

Дана строка символов.Группы символов,разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя,будем называть словами.Подсчитать количество букв ,,a'' в последнем слове данной строки.

 

[Евгений]

var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='';
While s=' ' do Inc(i);
if i>Length(s) then break;
While s<>' ' do
begin
s1:=s1+s;
Inc(i);
end;
A[n]:=s1;
Inc;
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1='a' then Inc;
Writeln('Bukv -a- = ',n);
Readln;
end.

 

[Vladimir_S]

Женя, а к чему такие сложности? Всё куда как проще:

Var
 S:String;
 i,N:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 N:=0;
 i:=Length(S);
 Repeat
  if S[i]='a' then Inc(N);
  Dec(i);
 Until S[i]=' ';
 Writeln('N = ',N);
 Readln
End.

 

[artxdf]

Ошибка времени выполнения: Индекс находился вне границ массива.
С чем это может быть связано?

 

[Vladimir_S]

Ошибка времени выполнения: Индекс находился вне границ массива.
С чем это может быть связано?

О какой из двух программ речь? Какую строку вводили? В ней точно есть хотя бы один пробел?

 

[Евгений]

Надо изменить строку:
While s<>' ' do
на
While (s<>' ') and (i<=Length(s)) do

если совсем ничего не ввести, то выдаст ошибку

 

[artxdf]

В том коде,что скинул Евгений сюда While (s<>'aad faad '
В том,что Владимир Until S='aad faad '
Или я что-то решительно не понимаю?

 

[Евгений]

В моём замените строку

 

[artxdf]

[pascal]
var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='1';
While s='raaah haet ' do Inc(i);
if i>Length(s) then break;
While (s<>'raaah haet ') and (i<=Length(s)) do
begin
s1:=s1+s;
Inc(i);
end;
A[n]:=s1;
Inc;
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1='a' then Inc;
Writeln('Bukv -a- = ',n);
Readln;
end.
[/pascal]
все та же ошибка,или я где-то номер строки не указал?

 

[Евгений]

var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='';
While s=' ' do Inc(i);
if i>Length(s) then break;
While (s<>' ') and (i<=Length(s)) do
begin
s1:=s1+s;
Inc(i);
end;
A[n]:=s1;
Inc;
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1='a' then Inc;
Writeln('Bukv -a- = ',n);
Readln;
end.

и больше ничего добавлять не надо. Откампилируйте и запустите полученный файл.
В окне введёте свою строку и получите примерно это:

 

[artxdf]

var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='';
While s=' ' do Inc(i);
if i>Length(s) then break;
While (s<>' ') and (i<=Length(s)) do
begin
s1:=s1+s;
Inc(i);
end;
A[n]:=s1;
Inc;
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1='a' then Inc;
Writeln('Bukv -a- = ',n);
Readln;
end.

и больше ничего добавлять не надо. Откампилируйте и запустите полученный файл.
В окне введёте свою строку и получите примерно это:

Изначально мой косяк! Пытался в АБС запустить :fasepalm:
Спасибо за помощь и потраченное время!)