Module: الروتين الفرعي: الإجراءات والوظائف - 1


Problem

2/12

المعلمات والحجج

Theory Click to read/hide

الآن دعنا نتخيل أننا بحاجة إلى عرض رسائل مختلفة ردًا على خطأ المستخدم ، اعتمادًا على نوع الخطأ الذي ارتكبه.
في هذه الحالة ، يمكنك كتابة الإجراء الخاص بك لكل خطأ: & nbsp؛ <قبل> إجراء printErrorZero () ؛ يبدأ writeln (& # 39 ؛ خطأ. القسمة على الصفر! & # 39 ؛) ؛ نهاية؛ <قبل> إجراء printErrorInput () ؛ يبدأ writeln (& # 39 ؛ خطأ في الإدخال! & # 39 ؛) ؛ نهاية؛ ماذا لو كان هناك العديد من الأخطاء المحتملة؟ هذا الحل لن يناسبنا!
نحتاج إلى معرفة كيفية التحكم في الإجراء من خلال إخباره برسالة الخطأ التي سيتم عرضها.
للقيام بذلك ، نحتاج إلى معلمات نكتبها بين قوسين بعد اسم الإجراء <قبل> إجراء printError (s: string) ؛ يبدأ writeln (ق) ؛ النهاية ؛ في هذا الإجراء ، تعتبر s معلمة - متغير خاص يسمح لك بالتحكم في الإجراء.

المعلمة هي متغير يحدد كيفية عمل الإجراء الفرعي. يتم سرد أسماء المعلمات مفصولة بفواصل منقوطة في رأس البرنامج الفرعي. بعد المعلمة ، النقطتان & nbsp؛ متبوعة بنوعها.
الآن ، عند استدعاء الإجراء ، تحتاج إلى الإشارة بين قوسين إلى القيمة الفعلية التي سيتم تعيينها للمعامل (المتغيرات) داخل الإجراء الخاص بنا <قبل> printError (& # 39 ؛ خطأ! القسمة على الصفر! & # 39 ؛) ؛ هذه القيمة تسمى وسيطة.
الوسيطة هي قيمة المعلمة التي يتم تمريرها إلى الروتين الفرعي عندما يتم استدعاؤها. لا يمكن أن تكون الوسيطة قيمة ثابتة فحسب ، بل يمكن أن تكون أيضًا متغيرًا أو تعبيرًا حسابيًا.

Problem

في البرنامج ، من الضروري إضافة استدعاءات الإجراء بطريقة أنه عند إدخال القيمة 0 ، فإن الخطأ & quot؛ Error: القسمة على صفر! & quot؛ ، & nbsp؛ على الشاشة ، وإلا & nbsp ؛ يتم عرض خطأ "خطأ في الإدخال!" .
مهمتك هي إجراء الاستدعاء الصحيح للإجراء. & nbsp؛

time 1000 ms
memory 256 Mb
Rules for program design and list of errors in automatic problem checking

Teacher commentary

Insert the missing code snippets
Pascal
1 
var n: integer;
2 


                                                   		
				

					3
                                                    
procedure printError(s: string);  


                                                   		
				

					4
                                                    
begin  


                                                   		
				

					5
                                                    
    writeln(s);  


                                                   		
				

					6
                                                    
end;  


                                                   		
				

					7
                                                    


                                                   		
				

					8
                                                    
begin  


                                                   		
				

					9
                                                    
    read(n);  


                                                   		
				

					10
                                                    
    if n = 0 then  


                                                   		
				

					11
                                                    


                                                   		
				

					12
                                                    
    else  


                                                   		
				

					13
                                                    


                                                   		
				

					14
                                                    
end.  


                                                   		
				

			

		

    
              


                
	

        


        
        
          
           
        
 
            

               
               
                      
                  
               

          
            
         
               

                    

                        
Program check result
                            
                            
                              
                              
                            
To check the solution of the problem, you need to register or log in!