strcomp.pas

Пример программы для функций StrComp и StrlComp.

Код примера
 {StrComp.PAS}
 
 { Пример программы для функций StrComp и StrlComp }
 
 Uses Strings, WinCrt;
 
 Var   C : Integer;
  Result : PChar;
  S1, S2 : Array [0..79] Of Char;
 
 Begin
  ReadLn(S1);
  ReadLn(S2);
  C:=StrComp(S1, S2);
  If C < 0 Then Result:=' меньше, чем ' Else
  If C > 0 Then Result:=' больше, чем ' Else
                Result:=' равно ';
  WriteLn(S1, Result, S2);
End.

Скачать strcomp.pas