Informatika va axborot texnologiyalari faniga kirish

                     BEGIN  PF:=1; 

            FOR I:=2 TO  K DO  PF:=PF*I; 

                                  FACT:=PF; 

                    END; 

     END. 

BEGIN 

              READ (N,M); 

              NF:=FACT(N); 

              MF:=FACT(N); 

              NMF:=FACT(N-M); 

WRITE(‘NF=’;NF,’MF=’;MF,’NMF=’;NMF); 

END. 

 

(Topshiriq: Ushbu misolni amaliyotda komp'yuterga kiritib tekshirib ko’ring) 

 

Misol:   y=ax

2

+bx+d; 

      

    n

i

                 100                        20 

 

a=



t

i

;           b=



     t

i                         

d= 



  qi 

   

 i=1                i=n

i

+1                      i=1 

           j 

SUM=



 masi 

          i=k                         funktsiyadan foydalanamiz. 

 

Dastur: 

   PROGRAM FUNY (INPUT,OUTPUT); 

             CONST  N=100; 

              TYPE    INDEX =1,...,N; 

               VECT= ARRAY [INDEX] OF REAL; 

                VAR     I,NR,NT,NG: INTEGER;  

                              T,Q: VECT; 

                                  Y:REAL; 

FUNCTION    SUM (MAS:VECT; K:INTEGER; MM:INDEX):REAL; 

     VAR J:INTEGER; 

BEGIN   

                           S:=O; 

              FOR J:=1 TO MM DO S:=S+MAS(J); 

                          SUM:=S; 

               END; 

  BEGIN  

---

                 READ (NR, NT, NQ);       

FOR I:=1 TO NT DO READ(T(I)); 

FOR J:=1 TO NQ DO READ(Q(I)); 

          Y:=SUM(T,1,NR)*X*X*SUM(T,NR,+1,NT)*X 

                                  +SUM(Q,1,NQ); 

WRITE(‘Y=’;Y); 

   END. 

 

Protsedura bir necha natijalarni  olish uchun ishlatiladi. Protseduraning umumiy 

ko’rinishi: