Question

Написать программы по следующим условиям: Для заданного символа определить, сколько раз он встречается во введённом тексте (двумя способами: с циклом For и с циклом Repeat).

Answer 1

var s: string;

c: char;

i, counter: integer;

begin

   s := 'abcaabaacd';

   c := 'a';

   

   // For

   for i := 1 to Length(s) do

       if s[i] = c then

           inc(counter);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

   

   // Repeat

   counter := 0;

   i := 1;

   repeat

       if s[i] = c then

           inc(counter);

       inc(i);

   until i = Length(s);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

end.

Answer 2

Конечно, вот примеры программ на языке Pascal, реализующие подсчет количества вхождений заданного символа в текст с использованием цикла for и цикла repeat:

С использованием цикла for:

pascalCopy code
program CountOccurrencesForLoop;
var
  inputText: string;
  targetChar: char;
  count: integer;
  i: integer;
begin
  Write('Введите текст: ');
  ReadLn(inputText);
  
  Write('Введите символ для поиска: ');
  ReadLn(targetChar);
  
  count := 0;
  
  for i := 1 to Length(inputText) do
  begin
    if inputText[i] = targetChar then
      Inc(count);
  end;
  
  WriteLn('Символ "', targetChar, '" встречается ', count, ' раз(а) в тексте.');
end.

С использованием цикла repeat:

pascalCopy code
program CountOccurrencesRepeatLoop;
var
  inputText: string;
  targetChar: char;
  count: integer;
  i: integer;
begin
  Write('Введите текст: ');
  ReadLn(inputText);
  
  Write('Введите символ для поиска: ');
  ReadLn(targetChar);
  
  count := 0;
  i := 1;
  
  repeat
    if inputText[i] = targetChar then
      Inc(count);
    Inc(i);
  until i > Length(inputText);
  
  WriteLn('Символ "', targetChar, '" встречается ', count, ' раз(а) в тексте.');
end.

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