Nombre: Jhonathan Kevin Mamani Pajarito                                                     Práctica # 1
Materia: Introducción a la Informática                                                              Fecha: 11-02-2018

         1. Resolver el área de un circulo.
    
                SOLUCIÓN:

                 INICIO
                 read (r);                                                            r  =  radio
                 pi = 3.1416;                                                   
                 A = pi * r * r                                                    A = área
                 print (A); 
                 FIN

                                                         Prueba de Escritorio

                          r                                           pi                                                 A
                          3                                      3.1416                                        28.2744


          2. Resolver el área de una casa.

                SOLUCIÓN:

                 INICIO
                 read (a,b,c,d);                                                                                                 
                 Ar = a * b;                                                           Ar = área del rectángulo
                 At = a * d / 2;                                                      At = área del triángulo
                 Ac = a * a;                                                           Ac = área del cuadrado
                 X = tan-1 (d / (a/2));                                            X = ángulo del techo
                 Ap = b * c * sen (X);                                           Ap = área del techo
                 AT = Ac + Ar + At + Ap;                                    AT = área total de la casa
                 Print (AT);
                 FIN                   

                                                          Prueba de Escritorio

                  a           b          c         d           Ar         At        Ac           X            Ap          AT
                  2           3          5         2           6           2          4          63.44      951.6       963.6                     

         3. Dado un número de 7 dígito, cambiar el dígito 1ro, 4to, 7mo.

              Ejemplo:  entrada --> 3785492                    salida--> 2783495

              SOLUCIÓN:

                INICIO
                 read (n);
                 x = n  % 10;
                 y = (n / 1000) %10;
                 z = n / 1000000;
                 a = (n / 10000) % 100;
                 b = (n % 1000) /10;
                 c = x * 1000000 + a * 10000 + z * 1000 + b * 10 + y;
                 print (c);
                 FIN

                                                          Prueba de Escritorio
                       
                       n                  x             y                z                 a               b                  c
                 6122655            5             2                6                12             65           5126652