Pascal abc.
Определить позицию буквы в строке.

Вопрос школьника по предмету Информатика

Pascal abc.
Определить позицию буквы в строке.

Ответ учителя по предмету Информатика

Без проверки того, есть ли символ в строке:

 

Var

   S:string;

   C:char;

   i:integer;

Begin

Write(‘Введите строку: ‘);ReadLn(S);

Write(‘Введите символ: ‘);ReadLn(C);

Write(‘Символ «‘,C,'» встречается на позициях:’);

For i:= 1 to Length(S) do

    if S[i] = C then Write(‘ ‘,i)

End.

Пример работы программы:

Введите строку: 12345789654621685798546323312125

Введите символ: 5

Символ «5» встречается на позициях: 5 10 17 21 32

С проверкой:

Var

   S:string;

   C:char;

   i:integer;

Begin

Write(‘Введите строку: ‘);ReadLn(S);

Write(‘Введите символ: ‘);ReadLn(C);

i:=1;

While (S[i] <> C)and(i<Length(S)) do

   i:=i+1;

if S[i] = C then

   Begin

   Write(‘Символ «‘,C,'» встречается на позициях:’);

   For i:= i to Length(S) do

       if S[i] = C then Write(‘ ‘,i)

   End

else

   WriteLn(‘Данный символ в строке не встречается’)

End.

Пример работы программы:

Введите строку: 12312123

Введите символ: 4

Данный символ в строке не встречается