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

[Stiff]

Определить сколько раз в строке встречается буквосочетание: "JP".

program stroki;
var s:string; st:string; x:byte; q:integer;
begin
writeln ('Введите строку'); readln(s);
st:='JD';
x:pos(st,s);
q:=0;
if x<>0 then
q:=q+1;
writeln (q);
readln;
end.

В чем ошибка!

[Sazary]

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

uses crt;
var s:string;
 st:string;
 x:byte;
 q,i:integer;
begin
clrscr;
writeln ('Введите строку');
readln(s);
st:='JD';
q:=0;
i := 1;
repeat
 x := pos(st,copy(s,i,length(s)));
 if x<>0 then inc(q);
 i := i + x;
until x=0;
writeln (q);
readln;
end.

[Stiff]

Спасибо Sazary.

[Stiff]

Не поможете еще с задачкой по массиву:

Составьте алгоритм, выясняющий, является ли данное слово "перевертышем" (так называются слова, читающиеся одинаково слева направо и справо налево, например: ПОТОП, КАЗАК).

[Sazary]

читаете слово.
В len пишете длину слова.
Еще имеем переменную (например, flag), например, типа boolean. Изначально присваиваем ей true.
Далее в цикле:

for i:=1 to (len div 2) do
 if s[i] = s[len-i+1] then
  begin
  flag := false;
  break;
  end;

После этого, если flag = true, то слово "перевертыш", иначе - нет.

[Stiff]

Можно подробнее про len, как записать длину слова.

[Sazary]

Можно подробнее про len, как записать длину слова.

Как видно, вы не разбирались в коде предыдущей задачи. Очень жаль.
Почитайте про функцию length.