В чем ошибка? Пишет "Индекс находится вне границ массива" вроде 17 сторокаprogram...

Question

В чем ошибка? Пишет "Индекс находится вне границ массива" вроде 17 сторока
program test;
uses crt;
var s, s1:string;
n, f, i, j, len:integer;
begin
clrscr;
writeln('введите предложение');
readln(s);
s:=' '+s;
writeln('ведите приставку');
readln(s1);
len:=length(s1);
n:=0;
f:=0; while j<=length(s) do <br> begin
if s[j]=' ' then
begin
for i:=1 to len do
if s[j+i]<>s1[i] then f:=1;
if f=0 then begin n:=n+1; j:=j+len; end
else j:=j+1; end;
end;
writeln('n=',n);
readln;
end.

В выделенной строке выдает ошибку

Comments

а что вводите?

Answer 1

Смотрите, в этом цикле:
while j<=length(s) do  </strong> 
J может быть равно длине строки. А внутри цикла есть вот это:
  if s[j+i]<>s1[i] then f:=1;
То есть если s[J] - последний символ, то на этой строчке пойдет обращение уже к несуществующему индексу массива.

Comments

if s[j+i], если предпоследний, а I = 2? учитывая сообщение об ошибке, то она именно здесь должна быть.

---

я тупой =). зависает сейчас или что? и что он вывести должен?

---

должен вывести n-число слов начинающихся с какой-либо приставки. Когда вводишь предложение и приставку ничего не происходит, просто так и висит, при нажатии ентера выходит из программы

---

вечный цикл

---

надо опустить else j := j + 1 На строчку ниже

---

благодарю

---

и else убрать - там же в любом случае надо увеличить

---

f := 0 внести в цикл while и вроде работает

---

спасибо огромное, все работает х)

Answer 2

Задание не много не понятно, где что стоит, лучше сфотай