algortimos

13)Escrever um algoritmo para calcular o volume de uma esfera sendo fornecido o valor de seu raio. (4/3 * pi * R^3) var vol,r: real ler (r) vol = (4 * 3,1415926 * r * r * r) / 3 escrever (vol)
14)Escrever um algoritmo que leia três valores: A, B e C.
A seguir, calcule e mostre:
a) a área do triângulo que tem A por base e C por altura.
b) a área do círculo de raio C.
c) A área do trapézio que tem a e b por bases e c por altura.
d) A área do quadrado que tem lado b.
e) a área do retângulo que tem lados a e b. var a,b,c,aux: real ler (a) ler (b) ler (c) aux = (a * c)/2 escrever (“A área do triângulo é: “, aux) aux = 3,1415926 * c * c escrever (“A área do círculo é: “, aux) aux = ( ( a + b) * c ) / 2 escrever (“A área do trapézio é: “, aux) aux = b * b escrever (“A área do quadrado é: “, aux) aux = a * b escrever (“A área do retângulo é: “, aux)
15)Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecidos a distância total percorrida pelo automóvel e o total de combustível gasto.Page 4 of 4 var consumo,distancia,cobustivel : real ler (distancia) ler (combustivel) consumo = distancia / combustível escrever(“ O consumo foi de: “, consumo, “kilometros por litro”)
16)Escrever um algoritmo que leia dois pontos quaisquer no plano, p1(x1,y1) e p2(x2,y2) e calcule a distância entre eles. var x1,y1,x2,y2,d : real ler (x1) ler (y1) ler (x2) ler (y2) d = sqrt( (x2 - x1)*(x2 - x1) + (y2 -