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