{
Universidade de Brasília
Instituto de Ciências Exatas
Departamento de Ciência da Computação
Introdução a Ciência da Computação - 2/2006

Aluno: Leonardo Marques Nunes de Mattos
Matrícula: 06/89041
Turma: D
Programa feito no Linux (Slackware 10.2 / Kernel 2.6.17)

Descrição: Programa para cálculo do volume e da área superficial
de um paralelepido.
}

program paralelepido;

const
versao : real = 0.01;

var
altura, largura, comprimento, volume, area : real;

{funcao para calculo do volume}
procedure calc_vol (a, b, c : real);
	begin
	volume := a*b*c
	end;

{funcao para calculo da area}
procedure calc_area (a, b, c : real);
	begin
	area := 2*(a*b + a*c + b*c)
	end;

begin
	writeln ();
	writeln ('Paralelepido calculator TABAJARA v', versao:0:2);
	writeln ('-----------------------------------------------');
	writeln ();
	write ('Entre o valor do comprimento do paralelepido: ');
	readln (comprimento);
	write ('Entre o valor da largura do paralelepido: ');
	readln (largura);
	write ('Entre o valor da altura do paralelepido: ');
	readln (altura);
	writeln();
	writeln ('RESULTADOS');
	writeln ('----------');
	writeln ();
	calc_area (largura, altura, comprimento);
	writeln ('A área superficial é: ', area:0:2);
	calc_vol (largura, altura, comprimento);
	writeln ('O volume total é: ', volume:0:2);
end.