لنحاول كتابة برنامج لحل المشكلة التالية:
يجب إدخال رقم (فليكن أقل من 3،000،000) وتحديد عدد الأرقام فيه.
فكرة الحل
لنبدأ عداد أرقام من رقم. في البداية ، يكون العداد هو 0. نحتاج فقط إلى قطع الرقم الأخير بالتتابع من الرقم (يمكن القيام بذلك عن طريق تقليل الرقم بمقدار 10 مرات ، باستخدام القسمة الصحيحة على 10) ، وفي كل مرة نحتاج إلى زيادة العداد بمقدار 1. نبسب ؛
نتيجة لذلك ، بعد قطع جميع الأرقام ، سنحصل في العداد على عدد الأرقام في الرقم.
بطريقة أخرى ، يمكن صياغة الخوارزمية على النحو التالي:
حتى لا يكون الرقم صفرًا ، قم بتقليله 10 مرات وزيادة العداد بمقدار 1.
| number (n) |
counter |
<الجسم>
| 123 |
0 |
| 12 |
1 |
| 1 |
2 |
| 0 |
3 |
سيبدو البرنامج هكذا.
<قبل>
var n ، count: صحيح ؛
يبدأ
نبسب ؛ نبسب ؛ قراءة (ن) ؛
نبسب ؛ نبسب ؛ العد: = 0 ؛
نبسب ؛ نبسب ؛ بينما n & lt ؛ & GT. 0 للبدء
نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ العد + = 1 ؛
نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ n: = n div 10 ؛
نبسب ؛ نبسب ؛ نهاية؛
نبسب ؛ نبسب ؛ writeln (& # 39 ؛ Number - & # 39 ؛، n ، & # 39 ؛ يحتوي على & # 39 ؛، count ، & # 39 ؛ digits & # 39 ؛) ؛
نهاية.
أنت بحاجة إلى معرفة هذا البرنامج عن ظهر قلب ، لأن. على أساسها ، يتم حل العديد من المشكلات الأخرى المتعلقة بحساب الأرقام بالأرقام.