Question

How to extract only words with first-letter lowercase from a string in Pascal

Answer 1

program ExtractLowercaseWords;

function IsLowercaseWord(const w: string): boolean;
begin
  IsLowercaseWord := (Length(w) > 0) and (w[1] in ['a'..'z']);
end;

function ExtractLowercaseWords(const s: string): string;
var
  i: integer;
  word: string;
  resultStr: string;
begin
  word := '';
  resultStr := '';

  for i := 1 to Length(s) do
  begin
    if s[i] in ['A'..'Z', 'a'..'z'] then
      word := word + s[i]
    else
    begin
      if IsLowercaseWord(word) then
        resultStr := resultStr + word + ' ';
      word := '';
    end;
  end;

  { Check last word }
  if IsLowercaseWord(word) then
    resultStr := resultStr + word + ' ';

  ExtractLowercaseWords := resultStr;
end;

var
  s: string;
  resultWords: string;

begin
  s := 'Pascal java CPP python go Rust php';
  
  resultWords := ExtractLowercaseWords(s);
  
  Writeln(resultWords);
end.



(*
run:

java python go php 

*)

 

70+ SQL courses for beginners and professionals