Linguagem de programação

algoritmo "Ex.01"
// Função : a partir de três pontos no plano cartesiano, não colineares,
// calcule: a área do triângulo formado pelos três pontos, bem como o seu respectivo baricentro.
// Autor : Marcos Azevedo
// Data : 30/09/2012
// Seção de Declarações var xa,ya,xb,yb,xc,yc,xd,yd,xe,ye: real
D,D1,Ar:real
inicio
// Seção de Comandos escreval(" Forneça as coordenadas dos três pontos ") escreva("valor abscissa, pto.A (xa):") leia (xa) escreva("valor ordenada, pto.A (ya):") leia (ya) escreva("valor abscissa, pto.B (xb):") leia (xb) escreva("valor ordenada, pto.B (yb):") leia (yb) escreva("valor abscissa, pto.C (xc):") leia (xc) escreva("valor ordenada, pto.C (yc):") leia (yc)
D <- (xa*yb)+(ya*xc)+(xb*yc)
D1 <- (xc*yb)+(yc*xa)+(xb*ya)
Ar <- (D-D1)/2 se Ar > 0 entao escreval ("A área do triângulo é= ",Ar:2:2," unidades de área") senao se Ar < 0 entao escreval ("A área do triângulo é= ",Ar*-1:2:2," unidades de área") senao se Ar=0 entao escreval (" àrea igual a= ",Ar:2:2," os pontos são colineares") fimse fimse fimse se Ar <> 0 entao xd<- (xa+xb+xc)/3 yd<- (ya+yb+yc)/3 escreval ("O Baricentro do triângulo será = ",xd:2:2," abscissa e ", yd:2:2," ordenada") senao se Ar=0 entao xe<- (xa+xb+xc)/3 ye<- (ya+yb+yc)/3 escreval ("O ponto médio do segmento será = " ,xe:2:2," abscissa e ", ye:2:2," ordenada") fimse fimse
fimalgoritmo