Question

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

Answer 1

Uses crt;
a:string;
s:char;
i,z:integer;
begin
readln(a,s);
for i:=1 to length(a) do
  begin
if a[i]=s then inc(z);
  end;
writeln(z);
end.

Answer 2

Вот пример программы на Turbo Pascal, которая позволяет ввести строку и символ, а затем определяет количество слов, содержащих введенный символ:

pascalCopy code
program CountWordsWithChar;
uses crt;

function IsWordChar(ch: char): boolean;
begin
  IsWordChar := ch in ['A'..'Z', 'a'..'z', '0'..'9'];
end;

function CountWordsContainingChar(str: string; ch: char): integer;
var
  wordCount, i: integer;
  currentChar: char;
  inWord: boolean;
begin
  wordCount := 0;
  inWord := false;
  
  for i := 1 to Length(str) do
  begin
    currentChar := str[i];
    
    if IsWordChar(currentChar) then
    begin
      if not inWord then
      begin
        inWord := true;
        
        if UpCase(currentChar) = UpCase(ch) then
          Inc(wordCount);
      end;
    end
    else
      inWord := false;
  end;
  
  CountWordsContainingChar := wordCount;
end;

var
  inputString: string;
  searchChar: char;
  wordCount: integer;
  
begin
  clrscr;
  
  writeln('Введите строку:');
  readln(inputString);
  
  writeln('Введите символ:');
  readln(searchChar);
  
  wordCount := CountWordsContainingChar(inputString, searchChar);
  
  writeln('Количество слов, содержащих символ "', searchChar, '": ', wordCount);
  
  readln;
end.

Программа сначала объявляет две функции: IsWordChar, которая проверяет, является ли символ буквой или цифрой, и CountWordsContainingChar, которая считает количество слов, содержащих заданный символ. Затем основная часть программы запрашивает у пользователя строку и символ, вызывает функцию CountWordsContainingChar и выводит результат.

Примечание: Приведенный пример написан на Turbo Pascal и может быть выполнен в среде, поддерживающей этот диалект языка. Однако, Turbo Pascal является устаревшим языком программирования, и я рекомендую использовать современные альтернативы, такие как Free Pascal или Delphi, для написания кода.