  .   . 
 


  . #1
 "  .   . "    ,         ,       ().,       "  . .  ",           ,                       .     , ,   .





  .   . 





     ()    


    ()        ,        .

             ,        ,    .

 

1.      . 

1)  :

    ,      ,  ,     ,    .

2) :

  - , , , ,    ,        .

3) :

    ,     ,         .

2.     

1)   :

     ,    ,      .

2) :

    ,    ,       ,     .

3) :

         ,        ,    .

3.   

  [2]:

  , ,  ,      .

  [3,4,5]:

1)  ,  ,       .

2)  [1]:

3) ,     ,     .

4)  [1]:

5)  GPS/,   ,      .

4.     

 [1]:

1)  ,    ,     ,  , ,  ,  ,     .

2)   :

3)   ,         ,     ,  ,    .

5.    [1]

1. :   , ,   ,      .

2.  :

3.    ,   ,         .

 ,          ,   ,  ,   ,             .

               ()       .         ,          .

        .                        (  Python  Pascal).        :  ,  ,    ,         ,      ,       .

         ,    ,                .

     :

1.                      .

2.                   .

3.                  .

3.         .

4.         .

5.                      .

6.                   .

7.                   ,         .

8.                    .

   

     ,     ,          .      ,               .

   

    ()     ,       ,      ,                .

 ,          ,           .






 . .  .







1.     


                 .       .

     GPTuter (3):






   PascalABC.NET  .  , ,         .        :






 ,             .

   ,   GPTuter  .



            :

1.1.     ABC Pascal

1.     ABC Pascal    (.1).

2.      .

3.     (.1)    .






.1.    Pascal ABC  





1.2.     Pascal ABC   (     )










1.3.     . 

                       ,  4  .

     _  8  9         ,     .






2.       


           .

       3  ,      .      2  :

1. () 

    ,       Pascal ABC.NET     .

2.    

         

2.1. 

 1.

:   a.    P = 4*a

1.  (. .2).






.2.          Pascal ABC.NET.

     :

1)        ,       var.

2)   a, P   (real    ).

4)   begin    .     ,       .

5)    .     5  6       .

6)      P = 4a.

7)  ,    2   .

8) readln       Enter       .

9) ,   end       .



2.     (.3  11):








.3.






.4.

            a = 10; a = 12; a = 31.








.5.

   ,     .






.6.






.7.








.8.



     GPTutor :      ,           Pascal ABC.NET.

  GPTutor        .

       .






.9.






.10.

     ,      GPTutor.






.11.

 ,  ,       .      GPTutor         .



 2.



:   a.    S = a^2.



1.  (.12)






.12.          Pascal ABC.NET.

1)    a     .

2)    S = a^2  .          sqr (x).

3)          .



2.     (.13  14)






.13.








.14.

 3.

   d.    L = *d.      3,14.



1.  (. .15).






.15.          

Pascal ABC.NET

       .    ,         : pi = 3.141592653589793. ,          pi = 3.14 ( 12    const),             .

2.     (.16 17):






.16.








.17.

           GPTutor            ,             .






3.         




3.1. 























3.2.          . 

:
























































4.        




4.1. 

























4.2.        


























































5.            


           ()           .    ,      4    ,         .

5.1. 













5.2. 

5.2.1.        . 





















5.2.2.        . 











  ,           ,     






     V = 162,    S = 198.











  ,        ,     .











 ,         27,71.

































6. 


    ,   .      :    while,    repeat     for.

6.1. 

   ( .1, )    (.1, )






.1.



   :



while  do 



   :



repeat   until 



6.2.

     sin  ,       .

program tabl_fun;

var

Xn, Xk: real; {    }

dX: real; {  }

x, y: real; {    }

begin

writeln ( Xn, Xk, dX);

readln (Xn, Xk, dX);

writeln (            ); { }

writeln (? X ? Y ?);

writeln (            );

x:= Xn; {  }

while x <= Xk do { }

begin

y:= sin (x); {  }

writeln (?, x:9:2,  ?, y:9:2,  ?); {  }

x:= x+dX; {    }

end;

writeln (            );

readln;

end.

,          eps   :




= (y


+ x/y


) /2,

 y


     (    ), 


  .   ,           ,     .

program square_root;

var

X, eps, {  }

Yp, Y: real; {   }

begin

repeat

writeln ( X, eps);

readln (X, eps);

until (X> 0) and (eps> 0);

Y:= 1;

repeat

Yp:= Y;

Y:= (Yp + X / Yp) / 2;

until abs (Y  Yp) <eps;

writeln ( , :6:3,  , eps:7:5, , Y:9:5);

readln;




  .


   .

   ,     (https://www.litres.ru/book/docent-petrovich/bespilotniki-i-neyroseti-informatika-i-programmirovanie-p-73559516/)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


