مثال 2 (مستوى 2) |
{ إيجاد قائمة في أخرى؟ }
ليكن
ق1 ، ق2 : قوائم ؛
بحث ، إيجاد : دالة ( منطيقي ) ؛
بداية
إنشاء_قائمة ( ق1 ، [ 2 ، 5 ، 9 ، 8 ، 3 ، 6 ] ) ؛
إنشاء_قائمة ( ق2 ، [ 12 ، 5 ، 19 ، 8 ، 3 ، 6 ، 2 ، 9 ] ) ؛
اكتب ( إيجاد ( ق1 ، ق2 ) )
نهاية
{ بحث عن كلمة في قائمة }
دالة بحث ( ق ، كلمة) : منطيقي
ليكن
ق : قائمة ؛
كلمة: صحيح ؛
بداية
إذا ق = عدم
بحث := خطأ
وإلا
إذا قيمة_خلية ( ق ) = كلمة
بحث := صواب
وإلا
بحث := بحث ( تالي ( ق ) ، كلمة)
نهاية_إذا
نهاية_إذا
نهاية
{ هل القائمة ق1 موجودة في القائمة ق2؟ }
دالة إيجاد ( ق1 ، ق2 ) : منطيقي
ليكن
ق1 ، ق2 : قوائم ؛
بداية
إذا ق1 = عدم
اهجاد := صواب
وإلا
إذا لا بحث ( ق2 ، قيمة_خلية ( ق1 ) )
إيجاد := خطأ
وإلا
إيجاد := إيجاد ( تالي ( ق1 ) ، ق2 )
نهاية_إذا
نهاية_إذا
نهاية