Page 54 - Introduccion a la Programacion
P. 54

54      Introducción a la Programación





                            15.  area<-(((x1 * y2) +(x2 * y3) + (x3 * y1)) - ((x1 * y3) + (x3 *
                                 y2) + (x2 * y1))) / 2
                            16.  ESCRIBIR “El área del triángulo es: “
                            17.  ESCRIBIR area
                            18.  Fin




                           PRUEBA DE ESCRITORIO



                                                      TRIANGULO_SUPERFICIE

                           x1           x2          x3          y1           y2          y3         área

                            0           0            0           0           0            0           0

                           20           5            7          12           15          11          27





                           ALGORITMO EN PseInt
                           PRUEBA DE ESCRITORIO EN PseInt



                            1.  </ Construya el algoritmo tal que, dadas las coordenadas de los
                                 puntos
                            2.  </ P1, P2 y P3 que corresponden a los vértices de un triángulo,
                                 calcule </ su superficie.
                            3.  Algoritmo TRIANGULO_SUPERFICIE
                            4.      DEFINIR x1, x2, x3, y1, y2, y3, area Como REAL;
                            5.      ESCRIBIR “Introduce el valor de x1: “;
                            6.      LEER x1;
                            7.      ESCRIBIR “Introduce el valor de x2: “;
                            8.      LEER x2;
                            9.      ESCRIBIR “Introduce el valor de x3: “;
                            10.      LEER x3;
                            11.      ESCRIBIR “Introduce el valor de y1: “;
                            12.      LEER y1;
                            13.      ESCRIBIR “Introduce el valor de y2: “;
                            14.      LEER y2;
                            15.      ESCRIBIR “Introduce el valor de y3: “;
                            16.      LEER y3;
                            17.      area <- (((x1 * y2) + (x2 * y3) + (x3 * y1)) – ((x1 * y3)
   49   50   51   52   53   54   55   56   57   58   59