VisualG

6-Ler um número qualquer e informar se o dobro do numero é maior ou igual a 50 ou não. var valor , dobro: real

inicio
// Seção de Comandos escreval (" forneça valor") leia (valor) dobro = 50) entao escreval (" sim e valor maior a 50") fimse se (dobro < 50) entao escreval ("não e maior que 50") fimse fimalgoritmo

7-Ler dois números e informar se o primeiro é maior ou menor que o segundo. var A, B : real

inicio
// Seção de Comandos escreval ("forneca valor A") leia (A) escreval ("forneca B") leia (B) se (A>B) entao escreval ("A e maior que B") fimse se (A=B) entao escreval (" valor A e maior ou igual a valor B") fimse se (A=30) e (AB e B< >C e é eqüilátero quando possui todos os lados iguais, sendo A = B e B = C.
1. Ler três valores para os lados de um triângulo: A, B e C;
2. Verificar se cada lado é menor que a soma dos outros dois lados se sim, saber se A = B e se B = C, sendo verdade o triângulo é eqüilátero se não verificar A = B ou se A = C ou se B = C, sendo verdade o triângulo é isósceles, caso contrário o triângulo será escaleno;
3. Caso os lados fornecidos não caracterizem um triângulo, avisar a ocorrência.

var A,B,C:REAL

inicio
// Seção de Comandos
ESCREVAL (" VALOR DE A")
LEIA (A)
ESCREVAL ("VALOR DE B")
LEIA (B)
ESCREVAL ("VALOR DE C")
LEIA (C)
SE (A=B) E (B=C) E (A=C) ENTAO
ESCREVAL (" TRIANGULO EQUILATERO")
SENAO
SE (A=B) OU (A=C) E (BC) ENTAO
ESCREVAL (" TRIANGULO ISOSCELES")
SENAO
SE (AB) E (AC) E (BC)ENTAO
ESCREVAL (" TRIANGULO ESCALENO")
FIMSE
FIMSE
FIMSE
fimalgoritmo

12 - Algoritmo do Triangulo. Faça um algoritmo para ler a base e a altura de um triângulo. Em seguida, escreva a área do mesmo.
Obs: Área = ( Base * Altura ) / 2 var B,H:REAL

inicio
ESCREVAL("VALOR DA BASE")
LEIA(B)
ESCREVAL("VALOR DA ALTURA")
LEIA(H)
ESCREVAL("ÁREA IGUAL A ",B*H/2)

// Seção de Comandos

fimalgoritmo

15-Efetuar o calculo da quantidade de litros de combustível gastos em uma