الانتقال إلى المحتوى الرئيسي

نقاط البيع في باسكال: ما هو وكيفية استخدامه

نقاط البيع هي أحد أنواع البيانات الرئيسية المستخدمة في لغة برمجة باسكال. إنه متغير يمكن أن يأخذ واحدة فقط من عدة قيم محددة. وبالتالي ، تسمح نقاط البيع للمبرمج بالعمل مع مجموعة محدودة من البيانات ، والتي غالبا ما تكون طريقة ملائمة وفعالة لوصف خصائص معينة للكائنات.

يختلف استخدام نقاط البيع في باسكال إلى حد ما عن استخدام أنواع البيانات الأخرى مثل عدد صحيح أو سلسلة. يمكن الإعلان عن متغير نقاط البيع باستخدام الكلمة الأساسية للتعداد ، متبوعة بقائمة مفصولة بفواصل من القيم الممكنة. على سبيل المثال ، السطر التالي من التعليمات البرمجية يعلن متغير ميبوس من نوع نقاط البيع.

إنوم ميبوس = (أعلى ، أسفل ، يسار ، يمين);

بعد الإعلان عن مثل هذا المتغير ، يمكنك تعيينه إحدى القيم من القائمة. على سبيل المثال ، تقوم التعليمات البرمجية التالية بتعيين متغير ميبوس القيمة "أعلى":

ميبوس: = حتى;

باستخدام متغير ميبوس ، يمكن للمبرمج مقارنة قيمته مع قيم نقاط البيع الأخرى أو تنفيذ إجراءات معينة اعتمادا على القيمة الحالية للمتغير.

  1. نقاط البيع في باسكال
  2. التعريف والغرض
  3. أمثلة الاستخدام
  4. المبادئ الأساسية للاستخدام
  5. سؤال وجواب
  6. ما هو نقاط البيع في باسكال?
  7. كيفية استخدام وظيفة نقاط البيع في باسكال?
  8. هل من الممكن استخدام وظيفة نقاط البيع للبحث ليس فقط عن الكلمات, ولكن أيضا للأحرف الفردية في سلسلة?
  9. ماذا ستعود وظيفة نقاط البيع إذا لم يتم العثور على السلسلة الفرعية في السلسلة?

نقاط البيع في باسكال

نقاط البيع في باسكال هي دالة تستخدم للعثور على موضع حرف محدد في سلسلة. تقوم الدالة بإرجاع عدد صحيح يمثل موضع الحرف في السلسلة ، أو 0 إذا لم يتم العثور على الحرف.

بناء جملة وظيفة نقاط البيع:

  • وظيفة نقاط البيع (سوبستر: سلسلة ؛ شارع: سلسلة): عدد صحيح;

أين:

  • سوبستر هو سلسلة فرعية التي يمكن العثور عليها في السلسلة.
  • str — строка, в которой производится поиск.

Пример использования функции Pos:

  • end

else

begin

  1. writeln('Подстрока не найдена');
  2. end;

end.

  • i: integer;

function FindFirstPositive(arr: array of integer): integer;

  1. var

  2. i: integer;

    begin

  3. for i := 0 to Length(arr) do

begin
if Pos(arr[i]) > 0 then
begin

FindFirstPositive := i + 1;

Exit;

end;

FindFirstPositive := -1;