IPB

> StrPos.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Language:
Русский
English

  {StrPos.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the StrPos function.}

  uses Strings, WinCrt;

 var
   P: PChar;
   S, SubStr: array[0..79] of Char;
 begin
   Readln(S);
   Readln(SubStr);
   P := StrPos(S, SubStr);
   if P = nil then
     Writeln('Substring not found');
   else
     Writeln('Substring found at index ', P - S);
 end.

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

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


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