VOLUMENE

program volumenfig;
{Programador: Doris Rojas
Fecha: 01/05/2015
Proposito: Este Programa Calcula el Volumen de Figuras Geometricas. }
uses crt;
const
cpi=3.1415;
msjerror='Error, ValorInvalido';
var
x,y,z,r,v,h,l,b,a:real;
opc:integer;
begin
clrscr;
writeln ('VOLUMEN DE FIGURAS');
writeln;
writeln('OPCIONES');
writeln;
writeln('1,...Para Calcular elVolumen de un Cilindro');
writeln('2,...Para Calcular el Volumen de un Cono');
writeln('3,...Para Calcular el Volumen de una Esfera');
writeln('4,...Para Calcular el Volumen de unCubo');
writeln('5,...Para Calcular el Volumen de un Prisma');
writeln('6,...Para Calcular el Volumen de un Elipsoide');
writeln;
writeln('Seleccione una Opcion: ');readln(opc);

Case opc of

1:
Begin
writeln ('Ingrese el Radio de la Figura');
readln (r);
writeln('Ingrese la Altura de la Figura');readln(h);

if (r<0) or (h<0) then
begin
writeln(msjerror,' Debe Ingresar Valores Positivos');
readln;
endelse
if (r=0) or (h=0) then
begin
writeln('El Volumen de la Figura es Cero (0)');
readln;
endelse
begin
v:=cpi*sqr(r)*h;
writeln('El Volumen del Cilindro es: ',v:0:2);
readlnend
end;
2:
begin
writeln ('Ingrese el Radio de la Figura');
readln (r);
writeln('Ingrese la Altura de la Figura');readln(h);

if (r<0) or (h<0) then
begin
writeln(msjerror, 'Debe Ingresar Valores Positivos');
readln;
end
else...