Question

How to find the longest word in a string with Pascal

Answer 1

program LongestWordProgram;

function LongestWordF(const s: string): string;
var
  i, len, maxLen: integer;
  currentWord, longestWord: string;
begin
  currentWord := '';
  longestWord := '';
  len := 0;
  maxLen := 0;

  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then
    begin
      currentWord := currentWord + s[i];
      inc(len);
    end
    else
    begin
      if len > maxLen then
      begin
        maxLen := len;
        longestWord := currentWord;
      end;
      currentWord := '';
      len := 0;
    end;
  end;

  if len > maxLen then
    longestWord := currentWord;

  LongestWordF := longestWord;
end;

var
  s: string;

begin
  s := 'Could you recommend a good restaurant nearby?';
  writeln(LongestWordF(s));
end.




(*
run:

restaurant

*)

 

70+ SQL courses for beginners and professionals