Algoritmos e fluxogramas

FÁBRICA DE TINTA

Enunciado
Construa um algoritmo ou programa que calcule a quantidade de latas de tintas necessárias para pintar tanques cilindricos de combustivel, onde são fornecidos a altura e o raio desse cilindro. Sabendo que a lata de tinta custa R$ 120,00, cada lata contém 18 litros e cada litro pinta 3 metros quadrados.
Os dados de entrada são altura e raio.
Os dados de saída são o custo e a quantidade de latas.
Utilizando planejamento reverso, sabemos que:
A: O custo é dado por quantidade de latas x preço da lata.
B: A quantidade de latas é dada por quantidade total de litros dividido por 18.
C: A quantidade total de litros é dada pela área do cilindro dividido por 3.
D: A área do cilindro é dada por, área da base + área lateral.
E: A área da base é dada por, Pi * (Raio)2.
F: A área lateral é dada por, 2 * (Pi * Raio * Altura).

Como usar
1. Abrir o programa fabricadetintas.exe;
2. Digite a altura e de um ENTER;
3. Digite o raio e de um ENTER;
4. Mostra o resultado e de um ENTER para encerrar o programa.

Algoritmo program fabricadetinta;
{$APPTYPE CONSOLE} uses SysUtils;

var h,r,c,qtde :real; begin write('Digite o valor da altura: '); readln(h); write('Digite o valor do raio: '); readln(r); qtde:=((3.14*(r*r)+(2*(3.14*r*h)))/3)/18; c:=(qtde*120); writeln('A quantidade de latas de tinta e ', qtde:2:2,'unid.'); writeln('O custo das latas de tinta e ','R$',c:2:2,'.'); readln; end.

Fluxograma

CALCULADORA

Enunciado
Elabore um algoritmo ou programa que leia dois números reais e a operação aritmética (+, -, *, /) e mostre ao usuário o resultado da operação selecionada. (Lembre-se de verificar a regra da divisão por zero).

Como usar
1. Abra o programa calculadora.exe;
2. Digite o primeiro numero e de um ENTER;
3. Digite a operação desejada e de um ENTER;
4. Digite o segundo numero e de um ENTER;
5. Mostra o resultado e de um ENTER para encerrar o programa;

Algoritmo program calculadora;