تابع Pos در پاسکال
تابع Pos در پاسکال از این تابع برای یافتن زیر رشته در یک رشته استفاده میشود .
شکل
function Pos (Substr : String ; S : String) :Byte;
توضیحات : پارامتر Substr باید عبارت یا رشته ای باشد و زیر رشته مورد نظر را مشخص خواهد کرد
پارامتر S نیز باید عبارت یا متغییری رشته ای باشد
حاصل این تابع از نوع Byte خواهد بود
در صورتی که زیر رشته مورد نظر در رشته S وجود داشته باشد
محل شروع آن به عنوان حاصل تابع قرار خواهد گرفت
در غیر این صورت حاصل تابع عدد صفر خواهد بود
مثال
var
A,B : String ;
begin
ReadLn (A);
ReadLn (B);
If Pos (A,B) <> 0
then WriteLn ('Found')
else WriteLn ('Not Found')
end.
این برنامه ابتدا دو رشته را از کاربر دریافت نموده و سپس وجود رشته اول را در رشته دوم مورد برسی قرار میدهد
درصورتی که رشته اول در رشته دوم وحود داشته باشد کلمه Found و در غیر این صورت کلمه Not Found نمایش داده خواهد شد
[adinserter block="1"]
