Program seleccion;
uses crt;
var
edad:integer;
estatura:real;
nombre:string;
complexion:string;
piel:string;
copa:char;
espalda:integer;
talla:integer;
lees:char;
autores:string;
pasatiempos:string;
begin
clrscr;
writeln('¿Cual es tu nombre linda?');
readln(nombre);
writeln('¿Que edad tienes?');
readln(edad);
if edad >15 then
if edad <30 then
begin
textcolor(5);
writeln('Estas dentro del rango de edad que me interesa ¿Cool no?');
readln;L
end;
writeln('Lo siento, no estas dentro de la edad del que dispone mi placer');
clrscr;
end;
writeln('(¿Que copa de brasiere eres?')

end.
Program seleccion1
uses crt;
var
ojos:char;
dinero:integer;
begin
crlscr;
writeln('¿Tiene ojos verdes S/N?')
readln(ojos);
If ojos='S' then
writeln('Eres la persona ideal')
else
writeln('No cumples las caracteristicas');
end;
writeln('Cuanto ganas mensualmente')
readln(dinero)
If dinero>20000 then
writeln(Eres la persona ideal)
else
writeln(No cumples las car caracteristicas)
end.
Program horario;
uses crt;
var
dia:integer;
begin
clrscr;

writeln('1 Lunes');
writeln('2 Martes');
writeln('3 Miercoles');
Writeln('4 Jueves');
writeln('5 viernes');
Writeln('6 Sabado');
writeln('7 Domingo');

writeln('¿Que dia es hoy?');
readln(dia);
case dia of

1:begin
Writeln('Hoy tienes que ir al trabajo, despues recojer a los niños y reprimir tus ganas de ir a fiestas')
end;
2:begin
Writeln('Hoy tienes que ir al trabajo (de nuevo), consentir un poco a tu persona y a tus seres queridos y comenzara buscar la neta cosmica que mueve al universo')
end;
3:begin
Writeln('Hoy tienes que ir al trabajo, comenzar a dudar si la labor que realizas trae un beneficio espiritual y si es compatible con la respuesta de la busqueda de la neta cosmica')
end;
4:begin
Writeln('Hoy tienes que ir al trabajo, discutir con su jefe los puntos de vista que el duia anterior analizo y comentar su incompatibilidad laboral con su busqueda cosmica')
end;
5:begin
Writeln('Hoy tienes que ir al trabajo, exponer radicalmente tus ideas ante las explicaciones del jefe, tomar la delantera y hacerle ver que la institucion no podria seguir avanzando sin tu importante colaboracion, renuncia')
end;
6,7:begin
writeln('No hay actividades a realizar. Podria sugerir salir y tomar un buen dia y comenzar a pensar en una disculpa lo suficientemente consistente para regresar a su antiguo trabajo');
end;
begin
else
writeln('El numero no corresponde con los numeros asignados a los dias')
end;
end.

Program horario;
uses crt;
var
dia:integer;
begin
clrscr;

writeln('1 Lunes');
writeln('2 Martes');
writeln('3 Miercoles');
Writeln('4 Jueves');
writeln('5 viernes');
Writeln('6 Sabado');
writeln('7 Domingo');
textcolor (5)
writeln('¿Que dia es hoy?');
readln(dia);
If dia=1 then
Writeln('Hoy tienes que ir al trabajo, despues recojer a los niños y reprimir tus ganas de ir a fiestas')
else
if dia=2 then
Writeln('Hoy tienes que ir al trabajo (de nuevo), consentir un poco a tu persona y a tus seres queridos y comenzara buscar la neta cosmica que mueve al universo')
else
If dia=3 then
Writeln('Hoy tienes que ir al trabajo, comenzar a dudar si la labor que realizas trae un beneficio espiritual y si es compatible con la respuesta de la busqueda de la neta cosmica')
else
If dia=4 then
Writeln('Hoy tienes que ir al trabajo, discutir con su jefe los puntos de vista que el duia anterior analizo y comentar su incompatibilidad laboral con su busqueda cosmica')

else
If dia=5 then
Writeln('Hoy tienes que ir al trabajo, exponer radicalmente tus ideas ante las explicaciones del jefetomar la delantera y hacerle ver que la institucion no podria seguir avanzando sin tu importante colaboracion, renuncia')
else
If dia=6 then
writeln('No hay actividades a realizar. Podria sugerir salir y tomar un buen dia y comenzar a pensar en una disculpa lo suficientemente consistente para regresar a su antiguo trabajo');
else
If dia=7 then
writeln('No hay actividades a realizar. Podria sugerir salir y tomar un buen dia y comenzar a pensar en una disculpa lo suficientemente consistente para regresar a su antiguo trabajo')
else
writeln('El numero no corresponde con los numeros asignados a los dias')
end.

Program circulo;
uses crt;
var
radio:integer;
area:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);
readln;
end.

Program triangulo;
uses crt;
var
r,b,a:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(a);
r:=(b*a)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end.

Program rectangulo;
uses crt;
var
p,a,l:real;
begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end.

Program menu;
uses crt;
var
opcion:integer;
radio:real;
area:real;
r,b,f:real;
p,a,l:real;

begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
case opcion of
1:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);

end;

2:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(f);
r:=(b*f)/2;
writeln('El area del triangulo es:',r:2:2);

end;

3:begin

clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);

end;
end;
end.

program Geometria2;
uses crt;
var
opcion:integer;
procedure triangulo;
var
b,h:integer;
r:real;
begin
clrscr;
textcolor(15);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(h);
r:=(b*h)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end;
begin
triangulo;
triangulo;
end.

Program menu;
uses crt;
var
opcion:integer;
radio:real;
area:real;
r,b,f:real;
p,a,l:real;
begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
case opcion of
1:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);
readln;
end;

2:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(f);
r:=(b*f)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end;

3:begin

clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end;
end.

program Geometria2;
uses crt;
var
opcion:integer;
procedure triangulo;
var
b,h:integer;
r:real;


begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(h);
r:=(b*h)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end;

function area1(radio:integer): real;
begin
area1:=pi*(radio*radio)
end;

procedure circulo;
var
radio:integer;
area:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);
readln;
end;

procedure rectangulo;
var
p,a,l:real;
begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end;

procedure menu;

begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;

Begin
menu;
case opcion of
1:circulo;
2:triangulo;
3:rectangulo;
end;


end.

program Geometria2;
uses crt;
var
radio:integer;
opcion:integer;
a,l:real;
b,h:integer;


function area(radio:integer):real;
begin
area:=pi*radio*radio;
end;

function p(a,l:real):real;
begin
p:=(2*a)+(2*l)
end;

function r(b,h:integer):real;
begin
r:=(b*h)/2;
end;

procedure menu;
begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;



Begin
menu;
case opcion of

1:begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);
writeln('El area del circulo es:',area(radio):2:2);
readln;
end;
2:begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(h);
writeln('El area del triangulo es:',r(b,h):2:2);
readln;
end;
3:begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
writeln('El perimetro del rectangulo es:',p(a,l):2:2);
readln;
end;

end;
end.

program Geometria2;
uses crt;
var
opcion:integer;
procedure triangulo;
var
b,h:integer;
r:real;


begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(h);
r:=(b*h)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end;

function area1(radio:integer): real;
begin
area1:=pi*(radio*radio)
end;

procedure circulo;
var
radio:integer;
area:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);
readln;
end;

procedure rectangulo;
var
p,a,l:real;
begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end;

procedure menu;

begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;

Begin
menu;
case opcion of
1:circulo;
2:triangulo;
3:rectangulo;
end;


end.

program Geometria2;
uses crt;
var
radio:integer;
opcion:integer;
a,l:real;
b,h:integer;


function area(radio:integer):real;
begin
area:=pi*radio*radio;
end;

function p(a,l:real):real;
begin
p:=(2*a)+(2*l)
end;

function r(b,h:integer):real;
begin
r:=(b*h)/2;
end;

procedure menu;
begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;



Begin
menu;
case opcion of

1:begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);
writeln('El area del circulo es:',area(radio):2:2);
readln;
end;
2:begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(h);
writeln('El area del triangulo es:',r(b,h):2:2);
readln;
end;
3:begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
writeln('El perimetro del rectangulo es:',p(a,l):2:2);
readln;
end;

end;
end.


program matrices;
uses crt;
var
i,j:integer;
const
fruta:array[1..2 , 1..3] of integer =(('5','10','15'),('6','8','10'));


procedure Sumar(fruta 1, fruta 2: tMatriz; var resul: tMatriz);
var
i,j:integer;

begin
if (m1.c = m2.c) and (m1.f = m2.f) then begin
resul.c:=m1.c;
resul.f:=m2.c;
for i:=1 to m1.c do
for j:=1 to m1.f do

begin
resul.datos[i,j]:= m1.datos[i,j] + m2.datos[i,j];
end;
end;
else
writeln('No se pueden sumar matrices de diferente dimension');
end.

Program menu;
uses crt;
var
opcion:integer;
radio:real;
area:real;
r,b,f:real;
p,a,l:real;
begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
case opcion of
1:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);
readln;
end;

2:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(f);
r:=(b*f)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end;

3:begin

clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end;
end.

Program menu;
uses crt;
var
opcion:integer;
radio:real;
area:real;
r,b,f:real;
p,a,l:real;

begin
clrscr;
textcolor(4);
writeln('Programa geometria');
writeln('Este programa calcula el area o perimetro de algunas figuras geometricas');
writeln('1.-Area del circulo');
writeln('2.-Area del triangulo');
writeln('3.-Perimetro del rectangulo');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
case opcion of
1:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del circulo');
Writeln('Dame el valor del radio:');
readln(radio);

area:=pi*(radio*2);
writeln('El area del circulo es:',area:2:2);

end;

2:begin

clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(f);
r:=(b*f)/2;
writeln('El area del triangulo es:',r:2:2);

end;

3:begin

clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);

end;
end;
end.

Program rectangulo;
uses crt;
var
p,a,l:real;
begin
clrscr;
textcolor(8);
writeln('Este programa calcula el perimetro de un rectangulo');
Writeln('Dame el valor del largo:');
readln(l);
writeln('dame el valor del ancho:');
readln(a);
p:=(2*a)+(2*l);
writeln('El perimetro del rectangulo es:',p:2:2);
readln;
end.

Program seleccion1
uses crt;
var
ojos:char;
dinero:integer;
begin
crlscr;
writeln('¿Tiene ojos verdes S/N?')
readln(ojos);
If ojos='S' then
writeln('Eres la persona ideal')
else
writeln('No cumples las caracteristicas');
end;
writeln('Cuanto ganas mensualmente')
readln(dinero)
If dinero>20000 then
writeln(Eres la persona ideal)
else
writeln(No cumples las car caracteristicas)
end.

Program triangulo;
uses crt;
var
r,b,a:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el area del triangulo');
Writeln('Dame el valor de la base:');
readln(b);
writeln('dame el valor del altura:');
readln(a);
r:=(b*a)/2;
writeln('El area del triangulo es:',r:2:2);
readln;
end.

Program vol;
uses crt;

var
radio:integer;
opcion:integer;
i:integer;


function area(radio:integer):real;
begin
area:=pi*(radio*radio);

end;



procedure menu;
begin
gotoxy(30,5);
textcolor(4);
writeln('Programa Volumenes');
gotoxy(10,0);
writeln('Este programa calcula el volumen de algunas figuras geometricas');
gotoxy(10,0);
writeln('1.-esfera');
gotoxy(10,0);
writeln('2.-cono');
gotoxy(10,0);
writeln('3.-cilindro');
gotoxy(10,0);
writeln('Escribe una opcion de 1 a 3');
gotoxy(10,0);
readln(opcion);
end;

Procedure marco;

begin
clrscr;
for i:=0 to 73 do
begin
textcolor(15);
write('*');
end;
writeln;
for i:=0 to 11 do
begin
textcolor(15);
writeln('* *');
end;
writeln;
for i:=0 to 73 do
begin
textcolor(15);
write('*');
end;
end;


procedure esfera;
var
radio:integer;
esfera:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el volumen de la esfera');
Writeln('Dame el valor del radio:');
readln(radio);
esfera:=(4*area(radio)*radio)/3;
writeln('El area de la esfera es:',esfera:2:2);
readln;
end;

Procedure cono;
var
a:real;
cono:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cono');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('Dame el valor del altura:');
readln(a);
cono:=(a*area(radio))/3;
writeln('El area del cono es:',cono:2:2);
readln;
end;

procedure cilindro;
var
h:real;
cilindro:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cilindro');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('dame el valor del altura:');
readln(h);
cilindro:=area(radio)*h;
writeln('El volumen del cilindro es:',cilindro:2:2);
readln;
end;





Begin
marco;
menu;

case opcion of

1:esfera;
2:cono;
3:cilindro;
end;
end.

Program volumenes;
uses crt;

var
radio:integer;
opcion:integer;
a:real;
h:real;
var
i:integer;


function area(radio:integer):real;
begin
area:=pi*(radio*radio);

end;



procedure menu;
begin
gotoxy(8,4);
textcolor(4);
writeln('Programa Volumenes');
writeln('Este programa calcula el volumen de algunas figuras geometricas');
writeln('1.-esfera');
writeln('2.-cono');
writeln('3.-cilindro');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;

Procedure marco;

begin
clrscr;
for i:=0 to 30 do
begin
textcolor(15);
write('*');
end;
writeln;
for i:=0 to 19 do
begin
textcolor(15);
writeln('* *');
end;
writeln;
for i:=0 to 30 do
begin
textcolor(15);
write('*');
end;
end;


procedure esfera;
var
radio:integer;
esfera:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el volumen de la esfera');
Writeln('Dame el valor del radio:');
readln(radio);
esfera:=(4*area(radio)*radio)/3;
writeln('El area de la esfera es:',esfera:2:2);
readln;
end;

Procedure cono;
var
a:real;
cono:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cono');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('Dame el valor del altura:');
readln(a);
cono:=(a*area(radio))/3;
writeln('El area del cono es:',cono:2:2);
readln;
end;

procedure cilindro;
var
h:real;
cilindro:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cilindro');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('dame el valor del altura:');
readln(h);
cilindro:=area(radio)*h;
writeln('El volumen del cilindro es:',cilindro:2:2);
readln;
end;





Begin
menu;
marco;
case opcion of

1:esfera;
2:cono;
3:cilindro;
end;
end.

Program volumenes;
uses crt;

var
radio:integer;
opcion:integer;
a:real;
h:real;
var
i:integer;


function area(radio:integer):real;
begin
area:=pi*(radio*radio);

end;



procedure menu;
begin
gotoxy(8,4);
textcolor(4);
writeln('Programa Volumenes');
writeln('Este programa calcula el volumen de algunas figuras geometricas');
writeln('1.-esfera');
writeln('2.-cono');
writeln('3.-cilindro');
writeln('Escribe una opcion de 1 a 3');
readln(opcion);
end;

Procedure marco;

begin
clrscr;
for i:=0 to 30 do
begin
textcolor(15);
write('*');
end;
writeln;
for i:=0 to 19 do
begin
textcolor(15);
writeln('* *');
end;
writeln;
for i:=0 to 30 do
begin
textcolor(15);
write('*');
end;
end;


procedure esfera;
var
radio:integer;
esfera:real;
begin
clrscr;
textcolor(12);
writeln('Este programa calcula el volumen de la esfera');
Writeln('Dame el valor del radio:');
readln(radio);
esfera:=(4*area(radio)*radio)/3;
writeln('El area de la esfera es:',esfera:2:2);
readln;
end;

Procedure cono;
var
a:real;
cono:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cono');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('Dame el valor del altura:');
readln(a);
cono:=(a*area(radio))/3;
writeln('El area del cono es:',cono:2:2);
readln;
end;

procedure cilindro;
var
h:real;
cilindro:real;
begin
clrscr;
textcolor(13);
writeln('Este programa calcula el area del cilindro');
Writeln('Dame el valor del radio base:');
readln(radio);
writeln('dame el valor del altura:');
readln(h);
cilindro:=area(radio)*h;
writeln('El volumen del cilindro es:',cilindro:2:2);
readln;
end;





Begin
menu;
marco;
case opcion of

1:esfera;
2:cono;
3:cilindro;
end;
end.

Program arreglos;
uses crt;
var
i:integer;
const
fruta:array[1..9] of char='Guayabita';
begin
clrscr;
textcolor(4);
for i:=1 to 9 do
write(Fruta[i]);
readln;
end.

Program funciones;
uses crt;
var
opcion:integer;
x:real;
i:integer;

Procedure marco;

begin
clrscr;
for i:=0 to 73 do
begin
textcolor(15);
write('*');
end;
writeln;
for i:=0 to 11 do
begin
textcolor(15);
writeln('* *');
end;
writeln;
for i:=0 to 73 do
begin
textcolor(15);
write('*');
end;
end;


Procedure menu;
begin
writeln('Programa Funciones');
writeln('Este programa te da el resultado de las siguienetes funciones');
writeln('1.-Abs(x)');
writeln('2.-Exp(x)');
writeln('3.-Ln(x)');
writeln('4.-Sin(x)');
writeln('5.-Cos(x)');
writeln('6.-ArcTan(x)');
writeln('7.-Sqr(x)');
writeln('8.-Sqrt(x)');
writeln('Proporciona el numero que deseas sea calculado');
readln(x);
writeln('Elige una opcion de 1 a 8');
readln(opcion);
end;

Procedure f1;
begin
writeln('La funcion Abs nos da el valor absoluto de un numero');
x1=abs(x);
writeln('El valor absoluto de'),x,('es'),x1:4:2);
end;


Procedure f2;
begin
writeln('La funcion de exp nos da el valor expponencial de un numero');
x1=abs(x);
writeln('El valor exponencial de'),x,('es'),x1:4:2)
end;



Begin
marco;
menu;
Case opcion of
1:f1
2:f2
end;
end.

Program frutas;
uses crt;
var
i,j:integer;
const
fruta:array[1..2 , 1..3] of string =(('Piña','Mango','Sandia'),('Melon','Pera','Papaya'));
begin
textcolor(4);
writeln(fruta[2,2]);

readln;
end.

Ámbito de saber.

La ciencia y la técnica han progresado gracias a la realización de personal humano con mas exigencias y capacidades, el cerebro y el ser humano se han dedicado a la tarea de ser utilizados como principal cualidad humana, por ser lo que nos distingue entre las otras especies y lo cual nos ha dado éxito ante nuestro paso, y por las necesidades que las sociedades capitalistas exigen para el progreso mantenimiento de la misma. Es prácticamente vital para la humanidad conocer más sobre fuentes alternas (de comunicación, alimentación, energía, etc.), puesto que el florecimiento de nuestra especie se verá amenazado a causa de la explotación y mal uso de nuestros instrumentos.

Son aquellos instrumentos a los cuales debemos dar un análisis cuidadoso, ya que, que como aparece en la lectura, nos tendremos que plantear la duda de si nuestros saberes y tecnología nos han ayudado a un progreso o por el contrario, si estos conocimientos han aniquilado parte de la libertad de la que el hombre debería ser poseedor. Es decir, podríamos hablar de muchas tecnologías, que al ser creadas tuvieron como objetivo el hacer más libre a la humanidad, sin embargo dan duda de sus objetivos (Como podría analizarse el caso del internet por Hank Moody).

El conocer estas cualidades seria base del saber objetivo sobre la humanidad, sus capacidades, sus debilidades y su ingenuidad ante la naturaleza, si es que se desea cumplir con los intereses de los cuales habla la lectura.

Sé que la información manejada hoy en día es demasiado compleja y diversa como para ser manejada, sin embargo son aquellas exigencias de las que hablaba anteriormente las cuales nos ayudaran a hacer un verdadero progreso de la humanidad en conjunto, puesto que pareciera que la información se está perdiendo, y se ha estado creando una fuente paralela en la cual las sociedades humanas parecen hundirse en su miseria.

Ahora tomando de la mano a la ciencia, podemos deleitarnos con la idea de seres pensantes que no se dejan llevar por sus impulsos, hacen que el método tome un rumbo realmente planificado y adecuado. Desgraciadamente las ciencias no tienen en cuenta más que en su proceso objetivo y demostrativo. Fuera de la sensibilidad del conocimiento de las humanidades, por resultar poco práctico.

Con lo anterior no quiero decir que no existan interrelaciones entre las materias, sin embargo hay poco enlaces de empatía de una por las otras. Y pienso que esa falta de empatía ha sido creada y alentada por los dirigentes capitalistas, que sin medida alguna detonan y explotan todo lo que sea a su beneficio monetario, por perjudicar que pueda ser para otros.

Ser humano

Ciertamente el ser humano ha recorrido un gran camino, y cada paso parecía ser el de la perfección como animal. Un animal que tiene como principio usar su capacidad cerebral para lograr montarse sobre los otros animales, para utilizarles, para transformar su medio según su necesidad y comodidad, y que por este desarrollo se permitió el lujo de dejar de utilizar ciertos rasgos característicos en los animales.

Esta capacidad que nos da diferencia ante los animales, nos ha dado capacidades anormales a los de la naturaleza en general, lo que nos ha hecho animales que transforman su realidad, que le dan valor simbólico, que añaden aspectos espirituales y mitológicos a ella. También somos dueños de un lenguaje, el cual nos permite comunicar estas sensaciones sobre la realidad, las cualidades que le imponemos, y comunicar en aspectos sociales y de otras características.

Es entonces cuando el ser humano pareciera ser la creación perfecta de la naturaleza, o de otros factores, aquel animal que transforma a su merced todos los elementos del planeta habitado, que busca tener una utilización mas allá que la que otros animales dan, una animal que previene sus necesidades, y que parece estar habido de crearse aun mas necesidades y hacer utilización de toda naturaleza.

El ser humano no se limita a su situación, piensa más allá de ella, y crea más situaciones para él: ficticias y literales. Parece sér que el ser humano crece al hacer objetos y estrategias diversas a los que su propia especie hace, los cuales previenen estas situaciones ficticias y literales, porque enriquece el conocimiento de esos objetos y de esas situaciones. Estos objetos son, como decía el escrito de Marx, por medio de la elaboración una representación física de lo que es su especie, y de lo que es él como individuo. Porque al tener la percepción de ser la perfección de la creación, y el modificador de las otras creaciones, este animal se convierte en un egocéntrico, y es ahí donde intenta por medio de estos objetos representar su poder y su superioridad (ejemplo: el descubrimiento del arma en Odisea 2010), representarse asimismo y representar su extensión simbólica al transformar la naturaleza.

Sin embargo esta transformación, a base de la desadaptación que tiene con su entorno, y su falta de empatía con las necesidades de otras especies e incluso de otros individuos de su misma especie le han llevado a su degradación. Uno de los problemas es que el ser humano reacciona a las consecuencias de su razonar cuando está al límite, puesto que siempre intenta a, capricho de su razón, el resolver las situaciones conforme a su necesidad y no conforme a la necesidad de su entorno u ambiente. Y no se da cuenta que al hacer esto está atacando a su ambiente, lo cual le trae repercusiones porque él y su razonar viven de el entorno. Sin embargo es parte de la misma naturaleza del ser humano el ser un animal que es capaz de equivocarse más de una vez.

Tan sólo, tan marrano, tan poeta

Por el titulo esto deberia presentar algunas rimas, pero mi poema no sera de esta manera, no presentare frases hermosas llenas de sentimientos compatibles a sus lectores. Ni pondra una flor a sus sesos, ni a su vida dara un mejor sentido, pues habla mas bien de el asesinato, el suicidio y del nacimiento en base a los primeros dos.

Pasaran dias, tal vez horas si la chusma familiar se entera de estas palabras, pero: me vale madres. Tan solo opiniones vanas de materia gris muerta.

Matare mi relacion con el mundo, el ostil que simpre me ha sido presentado. Encadenare a mi ser que por tanto tiempo se a dedicado a destruir los mediohechos, le reprendere por no comportarse ante la gente que vale, como un alma educada y fiel a si misma. Le reprendere por su cobardia ante vivir, y lamere su cuerpo con lenguas rastreras carmesi, deborando de si los pedazos de impureza. Le volvere, a final de cuentas, en un iluminati de experiencias y de apreciacion.

Y entonces algo que pudiera parecer tan doloroso y forzado al ser, se convertira en una enseñanza, en una conciencia del camino recorrido, tendra al fin su libertad entregada y certificada para entregarsele a lo que desee; para promover dentro de si el ramaje hermoso de la sobriedad y la comprension.

Reconocera entonces las distancias, el calor, las brisas calidas de la pasion, las uniones, los eones de sensacion y de la pureza, los eones del cariño, los eones que tiene la existencia de la belleza. Y entonces amara el pertenecer a esta especie, porque no habria otro complemento que pudiese satisfacer su existir de tal manera.

Cuidara que el dolor le acaricie tan solo por saber que podria estar presente a su vida, y entonces sabra cuidarle como un animal salvaje e inestable; se comunicara con el atravez de comprender que provienen del mismo origen, y que ambos danzaran al filo de chocar si desaparece esa hermosa materia que les separa.

Su aura se mostrara hermosa al mundo, sera majestuosa y digna de portar la incrustacion de esa hermosa materia en su cuerpo, en su mente y en sus instantes mas bellos.

Sera entonces el suicidio de su egoismo, de su placer por pisar y su placer de roer. Ahora sus placeres seran delicados, sumergidos en la dulsura, tratando de cuidar con paciencia y placer el jardin del que su alma se alimentara el resto de su vida, y del que probara glotonamente preocurando nunca abusar de sus frutos y regandole a diario con caricias y besos, con susurros y detalles.

Mantendra en armonia sus expresiones, mantendra inteligencia en sus actitudes, y el unico impulso existente sera el de probeer la felicidad.

La fe existira en su corazon, proporcionada sólo a una persona y a una sola razon para sobrevivir: Mi diosa de la fertilidad. La que con su cuidado, su paciencia, su apoyo, su cariño, sus detalles, su pasion, su placer y su entrega me ha ayudado a crear este jardin para ambos.

Gracias por estar conmigo, pasion de mi vida.

Te amo, y mi vida te cedo, comprometida a alimentar este jardin con toda intencion de prosperidad.