Question

How to check if all strings are lexically equal in array of strings with Pascal

Answer 1

program CheckLexicalEquality;

var
    strings: array of string;
    i: Integer;
    allStringsEqual: Boolean;

begin
    SetLength(strings, 4);
  
    strings[0] := 'pascal';
    strings[1] := 'pascal';
    strings[2] := 'pascal';
    strings[3] := 'pascal';

    allStringsEqual := True;

    for i := 1 to High(strings) do
    begin
        if strings[i] <> strings[0] then
        begin
            allStringsEqual := False;
            Break;
        end;
    end;

    if allStringsEqual then
        WriteLn('yes')
    else
        WriteLn('no');
end.




(*
run:
 
yes
 
*)

 

70+ SQL courses for beginners and professionals