StrComp.PAS

Language:
Русский
English

  {StrComp.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the StrComp and StrlComp functions.}

  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 := ' is less than ' else
     if C > 0 then Result := ' is greater than ' else
       Result := ' is equal to ';
   Writeln(S1, Result, S2);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //