IPB

> 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.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"