Работа со строками

[Blond_89]

Помогите пожалуйста с задачами:
1)дан массив символов определить число цифр после знака '?'
2)дан массив строк определить индекс вхождения подстроки S1={ab} в каждую строку массива .использовать функции работы со строковыми данными.

[Stilet]

определить число цифр после знака '?'

Примерно так:

s:='Какая то строка';
i:=1;
while (i<=length(s))and(s[i]<>'?') do inc(i);
c:=0;
while (i<=length(s)) do begin if s[i] in ['0'..'9'] then inc(c); inc(i);end;

Где
s - строка, массив символов,
i - Счетчик
c - Кол-во цифр после ? в строке

[Blond_89]

у меня так не получается

[Stilet]

А почему? Что в методичке то пишут? как вас учат? Какие примеры дают?

[Blond_89]

Определить число символов в массиве A(n) до "?",а символы,стоящие после этого символа вывести в новый массив!(это пример)

uses crt;
const nmax=100;
var a,b:array[1..nmax] of char;
    n,m,i,j,k,p:byte;
    c:char;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите в массив ',n,' символов:');
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]);
writeln;
writeln;
m:=0;
k:=0;
//симол ? первый
if a[1]='?' then
 begin
  for i:=2 to n do
   begin
    m:=m+1;
    b[m]:=a[i];
   end
 end
else //не первый, ищем
 begin
  i:=1;
  while i<=n do
  if a[i]<>'?' then
   begin
    k:=k+1;
    i:=i+1;
   end
  else
   begin
    i:=i+1;
    if i<=n then
     begin
      m:=0;
      while i<=n do
       begin
        m:=m+1;
        b[m]:=a[i];
        i:=i+1;
       end;
     end;
   end;
 end;
if k=n then writeln('В массиве нет символа ?')
else if k=n-1 then write('Символ ? последний, количество символов до ? =',k)
else
 begin
  if k=0 then writeln('Символ ? первый')
  else writeln('Количество символов до символа ?=',k);
  writeln('Массив символов после символа ?:');
  for i:=1 to m do
  write(b[i]);
 end;
readln
end.

Сама написала программу, спасибо за помощь

[Blond_89]

помогите пожалуйста со второй задачей

я понимаю, как она делается без массива,

program stroka;
var
 r:integer;
 m:string;
begin
writeln('Строка: ');
readln(m);
delete(m,1,pos('*',m));
writeln('Количество символов = ',pos('*',m)-1);
end.

а вот с массивом никак не пойму

[Stilet]

дан массив строк

Это значит

a:array[1..5] of string

В цикле их вводи (5 строк для демонстрации хватит) тем же readln;
Далее в цикле (пример цикла у тебя выше) проходи по строкам и проверяй

var k:integer;
...
цикл
...
 k:=pos('ab',a[i]); if k<>0 then begin
  writeln(k); delete(a[i],k,2);
 end;
...
конец цикла

Где i - счетчик цикла
В общем ты на правильном пути.