في البرمجة ، غالبا ما يكون من الضروري مقارنة قيم عدة أرقام. على سبيل المثال ، تحتاج إلى تحديد أي من الأرقام الثلاثة أكبر أو أقل من الأرقام الأخرى. في لغة باسكال ، هناك حل بسيط لهذا ، والذي يسمح لك بمقارنة القيم مع بعضها البعض.
من أجل مقارنة 3 أرقام في باسكال ، يتم استخدام بناء إذا كان آخر. هذا البناء يسمح لك للتحقق من حالة وتنفيذ كتلة المقابلة من التعليمات البرمجية اعتمادا على النتيجة. في حالة مقارنة الأرقام ، يمكننا استخدام عدة فحوصات لتحديد أي من الأرقام أكبر أو أصغر من الأرقام الأخرى.
آخر
- إذا ب > ج ثم
- وريتلن (ب ، 'هو أكبر عدد')
- آخر
وريتلن (ج ، 'هو أكبر عدد');
النهاية.
في هذا المثال ، يتم إدخال قيم 3 أرقام أولا من لوحة المفاتيح باستخدام وظيفة ريدلن. ثم ، باستخدام تراكيب متداخلة إذا ثم آخر ، تتم مقارنة الأرقام والنتيجة هي الإخراج باستخدام وظيفة وريتلن. إذا كان الرقم أ أكبر من الرقمين ب و ج ، فإن السلسلة "أ هي أكبر رقم" يتم إخراجها. تتم المقارنة بطريقة مماثلة للأرقام الأخرى.
وهكذا ، يوضح مثال الكود المعطى حلا بسيطا لمقارنة ثلاثة أرقام في باسكال. يمكن توسيع هذا المثال أو تعديله لتلبية متطلبات مهمة محددة ، لكن المبدأ الأساسي يظل دون تغيير.
القسم 1: كيفية مقارنة الأرقام
القسم 2: حل بسيط
القسم 3: نموذج رمز باسكال
القسم 4: كيفية مقارنة ثلاثة أرقام باستخدام عوامل التشغيل الشرطية
القسم 5: نموذج رمز باسكال باستخدام عوامل التشغيل الشرطية
القسم 6: مقارنة ثلاثة أرقام واستنتاج أكبر عدد
سؤال وجواب
كيف أقارن 3 الأرقام في باسكال?
هل يمكنني استخدام هذا الرمز لمقارنة المزيد من الأرقام?
القسم 1: كيفية مقارنة الأرقام
تعد مقارنة الأرقام إحدى العمليات الرئيسية في البرمجة. باستخدام لغة برمجة باسكال ، يمكنك مقارنة 3 أرقام باستخدام خوارزمية بسيطة.
Для сравнения 3 чисел в Pascal, можно использовать операторы сравнения (, =, =, ), а также конструкцию if-then-else.
Пример кода для сравнения 3 чисел:
program CompareNumbers;
var
number1, number2, number3: integer;
begin
writeln('Введите три числа:');
readln(number1, number2, number3);
if (number1 = number2) and (number2 = number3) then
writeln('Числа равны')
else if (number1 > number2) and (number1 > number3) then
وريتلن ('الرقم الأول هو الأكبر')
آخر إذا (رقم2 > رقم1) و (رقم2 > رقم3) ثم
وريتلن ('الرقم الثاني هو الأكبر')
آخر إذا (رقم3 > رقم1) و (رقم3 > رقم2) ثم
وريتلن ('الرقم الثالث هو الأكبر')
آخر
وريتلن ('الأرقام ليست هي نفسها وليس هناك أكبر عدد');
النهاية.
يرجى ملاحظة أن هذا الحل يفترض أن يتم إدخال الأرقام من لوحة المفاتيح من قبل المستخدم. لراحة المستخدم ، يعرض البرنامج الرسالة"أدخل ثلاثة أرقام:".
نتيجة لتنفيذ الكود ، يقارن البرنامج الأرقام المدخلة ويعرض رسالة حول ما إذا كانت الأرقام متساوية مع بعضها البعض أو يحدد أكبر عدد من الأرقام المدخلة.
يوضح المثال المقدم حلا بسيطا لمقارنة ثلاثة أرقام في لغة برمجة باسكال.
القسم 2: حل بسيط
تتكون خوارزمية مقارنة ثلاثة أرقام في شكل بسيط من استخدام عوامل التشغيل الشرطية ومقارنة الأرقام بالتناوب.
هنا مثال على رمز باسكال:
مقارنة البرنامجأرقام;
فار
أ ، ب ، ج: عدد صحيح;
بيغن
// إدخال ثلاثة أرقام
اكتب ('أدخل الرقم الأول: ');
(أ);
اكتب ('أدخل الرقم الثاني: ');
(ب);
اكتب ('أدخل الرقم الثالث: ');
(ج);
// مقارنة الأرقام
إذا (أ > ب) و (أ > ج)
ثم اكتب(' أكبر عدد: '، أ)
وإلا إذا (ب > أ) و (ب > ج)
ثم اكتب(' أكبر عدد: '، ب)
آخر إذا (ج > أ) و (ج > ب) ثم
وريتلن ('أكبر عدد:' ، ج)
آخر
وريتلن ('الأرقام متساوية');
النهاية.
في هذا المثال ، يقوم المستخدم بإدخال ثلاثة أرقام ، ثم تتم مقارنتها باستخدام شرطي إذا وآخر إذا كانت البيانات. إذا كان الرقم الأول أكبر من الثاني والثالث ، يتم عرض رسالة تفيد بأن الرقم الأول هو الأكبر. إذا كان الرقم الثاني أكبر من الأول والثالث ، يتم عرض رسالة تفيد بأن الرقم الثاني هو الأكبر. إذا كان الرقم الثالث أكبر من الأول والثاني ، يتم عرض رسالة تفيد بأن الرقم الثالث هو الأكبر. خلاف ذلك ، يتم عرض رسالة تفيد بأن الأرقام متساوية.
لذا فإن الحل البسيط هو مقارنة الأرقام بالتسلسل باستخدام عوامل التشغيل الشرطية.
القسم 3: نموذج رمز باسكال
يوجد أدناه مثال على رمز باسكال الذي يسمح لك بمقارنة ثلاثة أرقام وتحديد أي منها هو الأكبر.
مقارنة البرنامجأرقام;فار
أ ، ب ، ج ، ماكس: عدد صحيح;
بيغن
كتابة ('أدخل ثلاثة أرقام:');
(أ ، ب ، ج);
ماكس: = أ ؛ / / افترض أن أ هو أكبر عدد
إذا ب > ماكس ثم
ماكس: = ب ؛ / / إذا كان ب أكبر من الحد الأقصى ، قم بتحديث قيمة الحد الأقصى
إذا ج > ماكس ثم
ماكس: = ج; // إذا ج أكبر من الحد الأقصى ، قم بتحديث قيمة الحد الأقصى
وريتلن(' أكبر عدد: '، ماكس);
النهاية.
يبدأ هذا الرمز بإعلان المتغيرات أ ، ب ، ج والحد الأقصى. ثم يطلب البرنامج من المستخدم إدخال ثلاثة أرقام وتخزين قيمها.
بعد ذلك ، يقارن البرنامج كل رقم بالمتغير الأقصى ، وإذا اكتشف رقما أكبر ، يقوم بتحديث القيمة القصوى. وبالتالي ، في نهاية البرنامج ، سيحتوي المتغير ماكس على أكبر الأرقام الثلاثة المدخلة.
نتيجة لتنفيذ البرنامج ، سيتم عرض أكبر عدد على الشاشة.
القسم 4: كيفية مقارنة ثلاثة أرقام باستخدام عوامل التشغيل الشرطية
لمقارنة ثلاثة أرقام في لغة برمجة باسكال ، يمكنك استخدام عوامل التشغيل الشرطية. هناك عدة طرق لأداء مثل هذه المهمة ، ولكن أبسطها وأكثرها قابلية للفهم هي استخدام العبارات الشرطية المتداخلة إذا..ثم..آخر. لنلق نظرة على مثال الكود:
مقارنة البرنامجثلاثة أرقام;
فار
أ ، ب ، ج: عدد صحيح;
بيغن
كتابة ('أدخل ثلاثة أرقام:');
(أ ، ب ، ج);
إذا أ > ب ثم
بيغن
إذا أ > ج
ثم اكتب (أ ، 'الأهم من ذلك كله');
آخر الكتابة (ج ، 'الأهم من ذلك كله');
النهاية
آخر
بيغن
إذا ب > ج ثم
الكتابة (ب ، 'الأهم من ذلك كله');
آخر
الكتابة (ج ، 'الأهم من ذلك كله');
النهاية;
النهاية.
في هذا المثال ، نقرأ ثلاثة أرقام باستخدام دالة ريدلن ثم نقارنها باستخدام عوامل التشغيل الشرطية المتداخلة. إذا كان الرقم الأول أ أكبر من الثاني ب ، فإننا نقارنه بالرقم الثالث ج. إذا تبين أن أ أكبر ، فإننا نخرج رسالة مفادها أن أ هو الأكبر على الإطلاق. خلاف ذلك ، إذا كان ب أكبر من ج ، فإننا نخرج رسالة مفادها أن ب هو الأكبر. خلاف ذلك ، نستنتج أن ج هو الأكبر.
يوضح هذا المثال الطريقة الأساسية لمقارنة ثلاثة أرقام في باسكال. باستخدام عوامل التشغيل الشرطية المتداخلة ، يمكنك توسيع هذا المثال لمقارنة المزيد من الأرقام.
القسم 5: نموذج رمز باسكال باستخدام عوامل التشغيل الشرطية
فيما يلي مثال على رمز باسكال الذي يسمح لك بمقارنة ثلاثة أرقام والعثور على أكبرها.
مقارنة البرنامجأرقام;
فار
رقم 1 ، رقم 2 ، رقم 3 ، الحد الأقصى: عدد صحيح;
ماكس: = عدد 2
آخر
ماكس: = عدد 3;
{إخراج النتيجة}
وريتلن(' أكبر عدد: '، ماكس);
- النهاية.
- في هذا المثال ، نستخدم المتغيرات
- رقم 1
رقم 2
و
رقم 3
لإدخال ثلاثة أرقام. ثم نقارن هذه الأرقام باستخدام شرطي
إذا
و
آخر إذا
البيانات. نتيجة لذلك ، نحصل على أكبر عدد ونعرضه على الشاشة باستخدام المشغل
رايتلن
.
ملاحظة: يهدف هذا البرنامج إلى إظهار مبدأ مقارنة الأرقام ويمكن تعديله لأداء مهام أخرى.
القسم 6: مقارنة ثلاثة أرقام واستنتاج أكبر عدد
لمقارنة ثلاثة أرقام بلغة باسكال ، يجب عليك استخدام عوامل التشغيل والمتغيرات الشرطية. في هذا القسم ، سنلقي نظرة على حل بسيط لهذه المشكلة ونقدم أمثلة على التعليمات البرمجية.
تتكون خوارزمية مقارنة ثلاثة أرقام من الخطوات التالية:
تهيئة ثلاثة متغيرات من شأنها تخزين أرقامنا.
قارن الرقم الأول مع الرقمين الآخرين. إذا كان الرقم الأول أكبر من جميع الأرقام الأخرى ، فإننا نخرجه على أنه الأكبر.
إذا لم يكن الرقم الأول هو الأكبر ، فقم بمقارنة الرقم الثاني بالرقم الثالث. إذا كان الرقم الثاني أكبر من الثالث ، فإننا نخرجه على أنه الأكبر.
إذا لم يكن الرقم الثاني هو الأكبر ، فقم بإخراج الرقم الثالث على أنه الأكبر.
فيما يلي مثال على رمز باسكال الذي ينفذ الخوارزمية الموصوفة:
"باسكال
مقارنة البرنامجثلاثة أرقام;
فار
رقم 1 ، رقم 2 ، رقم 3 ، ماكسنوم: عدد صحيح;