uses
	crt;
var
	opcion	: char;
 
Procedure PROG1;
	{
	PROCEDURE Descripcion: Evalua la potencia de un numero dado, tomando en cuenta la base y potencia
	www.mis-algoritmos.com
	}
	var
		base, potencia  : integer;
		cont, resultado : integer;
	begin
		resultado:=1;{Inicializo variable "resultado"}
		clrscr; {Limpiamos pantalla}
		writeln('Base y potencia: '); {Salida en Pantalla}
		readln(base,potencia); {Entrada desde el teclado}
		for cont:=1 to potencia do
			begin
				resultado:=resultado*base;{evalua resultado}
			end;
		writeln(base,'^',potencia,'=',resultado); {Mostramos resultado de la forma "Base^Potencia=Resultado"}
		readkey;{Esperamos una tecla para finalizar}
	end;
 
Procedure PROG2;
	{
	Descripcion: Determina el area de un triangulo dada la base y altura
	www.mis-algoritmos.com
	}
	var
		base, altura	: integer;
		area			: real;
	begin
		clrscr; {Limpiamos pantalla}
		writeln('base y altura: ');{Salida en pantalla}
		readln(base,altura);{Entrada desde el teclado}
		area:=(base*altura)/2;{evaluamos altura}
		writeln('Area: ',area:0:2);{Salida en pantalla}
		readkey; {Esperamos una tecla para finalizar}
	end;
 
Procedure PROG3;
	{
	Descripcion: Determina el area de un circulo dado el radio
	www.mis-algoritmos.com
	}
	const
		PI=3.141583; {Declaramos PI como constante}
	var
		radio:integer;
	begin
		clrscr; {Limpiamos la pantalla}
		writeln('Radio: '); {Salida en pantalla}
		readln(radio);{Entrada desde el teclado}
		writeln('Area: ',PI*radio*radio:0:2); {Salida en pantalla y evalua resultado}
		readkey; {Esperamos una tecla para finalizar}	
	end;
 
Procedure PROG4;
	{
	Descripcion: Dice si una palabra es palindroma.
	www.mis-algoritmos.com
	}
	var
		palabra		: string;
		cont		: integer;
		palindromo	: boolean;
	begin
		clrscr; {Limpiamos pantalla}
		Write('Palabra: ');
		readln(palabra); {Entrada desde el teclado}
		cont:=1; {Inicializamos el contador}
		while cont<=length(palabra) div 2 do  {Ciclo hasta la mitad de la cadena}
			begin
				if palabra[cont]=palabra[length(palabra)-(cont-1)] then
				{Coomparamos si la ultima letra conincide con la primera y
				asi sucesivamente hasta llegar al centro}
						begin
							palindromo:=true;
							{Si son iguales, bandera en true}
						end
					else
						begin
							palindromo:=false;
							{Si encuentra una diferencia, bandera en false}
							cont:=length(palabra) div 2;{Break}
						end;
				cont:=cont+1;{Incrementamos contador en uno}
			end;
		if palindromo=true then{Mostramos una salida legible por el usuario}
					writeln('Si es Palindromo')
				else
				writeln('No es palindromo');
		readkey;{Esperamos una tecla para finalizar}
	end;
 
Procedure PROG5;
	{
	Descripcion: Evalua la cantidad de ocurrencias de las letras en una palabra
	www.mis-algoritmos.com
	}
	var
		letras		: array [1..256] of integer;
		cont		: integer;
		enunciado	: string;
	begin
		clrscr;{Limpiamos pantalla}
		for cont:=1 to 255 do{Rellenamos vector de 255 con ceros}
			begin
				letras[cont]:=0;
			end;
		readln(enunciado); {Leemos enunciado}
		for cont:=1 to length(enunciado) do
			begin
				{Sumamos en 1 si encontramos una letra en tal posicion}
				letras[ord(enunciado[cont])]:=letras[ord(enunciado[cont])]+1;
			end;
 
		for cont:=1 to 255 do
			begin
				{Si la posicion de es mayor a cero en su contenido mostramos la
				letra que le corresponde y la cantidad de veces que la encotramos}
				if letras[cont]>0 then
					writeln('Letra ',chr(cont),' :',letras[cont]);
			end;
		readkey;{Esperamos una tecla para finalizar}
	end;
 
Procedure PROG6;
	{
	Descripcion: Determina el salario semanal de un trabajador dada la hora
	dada la tarifa por horas y horas trabajadas. La jornada es de 8 horas y las
	horas extras se pagan doble.
	www.mis-algoritmos.com
	}
	var
		salario				: real;
		tarifa_por_hora		: real;
		horas_trabajadas	: real;
	begin
		clrscr;{Limpiamos pantalla}
		write('Tarifa por hora: ');{Salida en pantalla}
		readln(tarifa_por_hora);{Entrada desde el teclado}
		write('Horas trabajadas: ');{Salida en pantalla}
		readln(horas_trabajadas);{Entrada desde el teclado}
		if horas_trabajadas>8 then
				{Evalua salario si trabajo mas de 8 horas}
				salario:=(8*tarifa_por_hora)+(2*(horas_trabajadas-8)*tarifa_por_hora)
			else
				{Evalua salario si trabajo menos de 8 horas}
				salario:=horas_trabajadas*tarifa_por_hora;
		writeln('Salario: ',salario:0:2);{Muestra el salario en pantalla}
		readkey;{Espera una tecla para finalizar}	
	end;
 
procedure PROG7;
	{
	Descripcion: Dado el precio de un articulo y la cantidad de articulos,
	determinar el subtotal, iva y total.
	www.mis-algoritmos.com
	}
	var
		precio, iva, costo,	subtotal, total	: real;
		cantidad							: integer;
	begin
		clrscr;{Limpiamos pantalla}
		write('Precio; ');{Salida en pantalla}
		readln(precio);{Entrada desde el teclado}
		write('Cantidad: ');{Salida en pantalla}
		readln(cantidad);{Entrada desde el teclado}
		iva:=precio*0.15;{Evaluam iva 15%}
		costo:=precio+iva;{Agrega iva al precio}
		subtotal:=precio*cantidad;{Evaluamos subtotal}
		iva:=cantidad*iva;{Evalua iva total a cobrar}
		total:=costo*cantidad;{Evalua el total de la compra}
		writeln;{Espacio en blanco (Enter)}
		writeln('Subtotal: ',subtotal:0:2);{Salida en pantalla}
		writeln('I.V.A.: ',iva:0:2);{Salida en pantalla}
		writeln('Total: ',total:0:2);{Salida en pantalla}
		readkey;{Esperamos una tecla para finalizar}
	end;
 
Procedure PROG8;
	var
		x1,x2,y1,y2		: integer;
		cantidad		: integer;
		cont			: integer;
	procedure dibuja(x1,y1,x2,y2:integer);
		{Procedimiento que dibuja un marco en las coordenadas dadas}
		var
			cont	: integer;
		begin
 
			{Dibujando desde X1 a X2 en Y1}
			for cont:=x1 to x2 do
				begin
					gotoXY(cont,y1);{Posiciona cursor}
					write('°');{Dibuja caracter}
					delay(10);{Retarda la ejecucion}
				end;{Fin del FOR}
 
			{Dibujando desde Y1 a Y2 en X2}
			for cont:=y1 to y2 do
				begin
					gotoXY(x2,cont);{Posiciona cursor}
					write('°');{Dibuja caracter}
					delay(10);{Retarda la ejecucion}
				end;{Fin del FOR}
 
			{Dibujando desde X2 a X1 en Y2}
			for cont:=x2 downto x1 do
				begin
					gotoXY(cont,y2);{Posiciona cursor}
					write('°');{Dibuja caracter}
					delay(10);{Retarda la ejecucion}
				end;{Fin del FOR}
 
			{Dibujando desde Y2 a Y1 en X1}
			for cont:=y2 downto y1 do
				begin
					gotoXY(x1,cont);{Posiciona cursor}
					write('°');{Dibuja caracter}
					delay(10);{Retarda la ejecucion}
				end;{fin del FOR}
 
		end;{Fin del procedimiento}
 
	begin{Inicia programa principal}
		clrscr;{Limpiamos pantalla}
		write('Cantidad de marcos: ');{Salida en pantalla}
		readln(cantidad);{Entrada desde el teclado}
		clrscr;{Limpia pantalla}
		for cont:=1 to cantidad do
			{
				Pide y dibuja los marcos
			}
			begin
				gotoxy(70,1);
				write('X1: ');
				readln(x1);
 
				gotoxy(70,2);
				write('Y1: ');
				readln(y1);
 
				gotoxy(70,4);
				write('X2: ');
				readln(x2);
 
				gotoxy(70,5);
				write('Y2: ');
				readln(y2);
 
				gotoxy(70,1);write('       ');
				gotoxy(70,2);write('       ');
				gotoxy(70,4);write('       ');
				gotoxy(70,5);write('       ');
 
				dibuja(x1,y1,x2,y2);	
			end;
		readkey;
	end;
begin
	repeat
		clrscr;
		writeln('1.- Evalua potencia');
		writeln('2.- Evalua area de un triangulo');
		writeln('3.- Evalua area de un circulo');
		writeln('4.- Evalua si una palabra es palindromo');
		writeln('5.- Evalua cantidad de ocurrencias de las letras');
		writeln('6.- Evalua el salario de un trabajador');
		writeln('7.- Evalua subtotal, iva y total de una compra');
		writeln('8.- Dibuja marcos en la pantalla');
		writeln('9.- Salir');
		writeln;
		writeln('Elije una opcion:');
		opcion:=readkey;
		case opcion of
				'1': PROG1;
				'2': PROG2;
				'3': PROG3;
				'4': PROG4;
				'5': PROG5;
				'6': PROG6;
				'7': PROG7;
				'8': PROG8;
			end;
	until opcion='9';
end.