Um programa no compilador Paschalzim onde se calcula areas e circunferencias tendo um menu de opções e um looping.

Trabalho da Disciplina de Raciocínio computacional

-Disciplina......: Raciocinio Computacional

Código a baixo:

const

PI = 3.1415926535898;

var

raio, altura, largura, comprimento, base, aresta: real;

n,a, sair: integer;

b: integer;

//Inicio funções//

//area da circunferencia//

function Acir(ro: real):real;

begin

Acir:= PI * sqr(ro);

end;

//volume cilindro//

function Volci(r, a: real): real;

begin

Volci:= Acir(r)*a;

end;

//volume cone//

function Vcone(r, a: real): real;

begin

Vcone:= Acir(r)*a / 3;

end;

//volume do cubo//

function Vcube(art: real):real;

begin

Vcube:= art*art*art;

end;

//volume do paralelepípedo retangular//

function Vpp(l, c, a: real):real;

begin

Vpp:= l*c*a;

end;

//area de um quadrado//

function Arq(bs:real):real;

begin

Arq:= sqr(bs);

end;

//volume de uma piramide//

function Vpir(bs, a:real):real;

begin

Vpir:= a*Arq(bs) / 3;

end;

//Area retangulo//

function Aret(bs, h: real):real;

begin

Aret:= bs*h;

end;

//Volume da esfera//

function Vesf(r:real):real;

begin

Vesf:= r*r*r*4*PI/3;

end;

//fim funções//

// Estrutura de menu principal//

begin

ClrScr;

textcolor(15);

writeln('============================================');

writeln(' O que pretende calcular? 1-Volume 2- Area ');

writeln('============================================');

readln(n);

//sub menu 1//

if(n=1) then

begin

clrscr;

writeln( 'Voce escolheu calcular um volume.');

delay(2000);

clrscr;

writeln('=========================================================');

writeln('Que volume pretende calcular entre as opçoes disponiveis');

writeln('=========================================================');

writeln('1- Cubo');

writeln;

writeln('2- Paralelepipedo');

writeln;

writeln('3- Cilindro');

writeln;

writeln('4- Piramide');

writeln;

writeln('5- Cone');

writeln;

writeln('6- Esfera');

writeln('=========================================================');

readln(b);

end;

if(b=1) then

begin

clrscr;

writeln('informe a medida de um dos lados do cubo: ');

readln(aresta);

writeln('O volume do cubo é de: ', Vcube(aresta),'³');

end;

if(b=2) then

begin

clrscr;

writeln('informe a largura');

readln(largura);

writeln('informe o comprimento');

readln(comprimento);

writeln('e por fim informe a altura');

readln(altura);

writeln('o volume do paralelepípedo é de: ',Vpp(largura, comprimento, altura),'³');

end;

if(b=3) then

begin

clrscr;

writeln('informe o raio');

read(raio);

writeln('informe