informalocosXD: 2013

jueves, 28 de noviembre de 2013

lunes, 25 de noviembre de 2013

program intregrador;
uses
crt;
var
opc:char;
msg:string='programacreado por vladi flores';

procedure centrar (texto:string; fila:integer);

var
columna:integer;
begin
columna:=(80-length(texto)) DIV 2;
gotoxy(columna,fila);
write(texto);
End;

Procedure salida;
begin
clrscr;
textbackground(white);
textcolor(blue);
centrar('programa para el calculo de areas despide, bye',8);
delay(2000);
end;

procedure areas;

Var
opc: char;
msg: String='Programa creado por Jesica rubi montes';
procedure Centrar (Texto:String;fila:Integer);
Var
columna:integer;
Begin
columna:=(80-Length(Texto)) DIV 2;
Gotoxy(Columna,fila);
write(Texto);
End;

Procedure Circulo;
Var
y,r:real;
Begin
Clrscr;
Centrar('Escribe el valor de: r: ',6);
Readln(r);
Centrar('El area del circulo es igual a: ',8);
y:=PI*r*r;
Writeln(y:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
readkey;
End;

Procedure Triangulo;
Var
a,b,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base:',4);
Read(b);
Centrar('Escribe el valor de la altura: ',6);
Read(h);
Centrar('El area del Triangulo es igual a: ',8);
a:=b*h/2;
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Rectangulo;
Var
a,b,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base: ',5);
Read(b);
Centrar('Escribe el valor de la altura: ',6);
Read(h);
a:=b*h;
Centrar('El area del Rectangulo es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Cuadrado;
Var
a,L:real;
Begin
Clrscr;
Centrar('Escribe el valor del Lado: ',5);
Read(L);
a:=L*L;
Centrar('El area del Cuadrado es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Romboide;
Var
b,h,a:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base: ',3);
Read(b);
Centrar('Escribe el valor de la altura: ',5);
Read(h);
a:=b*h;
Centrar('El area del Romboide es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Rombo;
Var
a,Dmas,dmenor:real;
Begin
Clrscr;
Centrar('Escribe el valor de la Diagonal mayor: ',5);
Read(Dmas);
Centrar('Escribe el valor de la diagonal menor: ',6);
Read(dmenor);
a:=Dmas*dmenor/2;
Centrar('El area del Rombo es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Trapecio;
Var
a,Bmayor,bmenor,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la Base mayor: ',5);
Read(Bmayor);
Centrar('Escribe el valor de la base menor: ',6);
Read(bmenor);
a:=Bmayor*bmenor/2;
Centrar('El area del Trapecio es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Pentagono;
Var
a,P,apo:real;
Begin
Clrscr;
Centrar('Escribe el valor del Perimetro: ',5);
Read(P);
Centrar('Escribe el valor de la apotema: ',6);
Read(apo);
a:=P*apo/2;
Centrar('El area del Pentagono es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal ',10);
Readkey;
End;
Procedure Salida;
Begin
Clrscr;
Textbackground(white);
Textcolor(black);
Centrar('Gracias por utilizarme hasta pronto',8);
Delay(2000);
End;

{INICIAMOS EL PROGRAMA PRINCIPAL}

Begin
Repeat
Clrscr;
Gotoxy(17,1);
Writeln('+----------------------------------------------+');
Gotoxy(17,2);
Writeln('| |');
Gotoxy(17,3);
Writeln('+----------------------------------------------+');
Gotoxy(20,2);
textcolor(white);
textbackground(black);
Writeln(msg);
textcolor(black);
textbackground(green);
Gotoxy(10,5);
Writeln('+---------------------------------------------------------+');
Gotoxy(10,6);
Writeln('| |');
Gotoxy(10,7);
Writeln('| |');
Gotoxy(10,8);
Writeln('| |');
Gotoxy(10,9);
Writeln('| |');
gotoxy(10,10);
Writeln('+---------------------------------------------------------+');
Centrar('OPCIONES DEL PROGRAMA',6);
centrar('segun el numero que presiones es la funcion a realizar',7);
centrar('1:circulo ''[1]'' 2:triangulo''[2]'' 3:rectangulo ''[3]',8);
centrar('4:cuadrado''[4]'' 5:romboide ''[5]'' 6:trapecio ''[6]',9);
centrar('7:pentagono ''[7]'' 8:rombo ''[8]'' x:salir',9);
Centrar('[X]SALIR DEL PROGRAMA',18);
Textcolor(white);
textbackground(black);
Centrar('Elige una opcion ',19);
opc:=readkey;
Case opc of

'1':circulo;
'2':triangulo;
'3':rectangulo;
'4':cuadrado;
'5':romboide;
'6':trapecio;
'7':pentagono;
'8':rombo;
'X','x':salida;
End;
Until (opc='x') or (opc='X');

End;

Procedure numeraciones;
Var
opc: char;
msg: String='Programa creado por vladi flores';
procedure Centrar (Texto:String;fila:Integer);
Var
columna:integer;
Begin
columna:=(80-Length(Texto)) DIV 2;
Gotoxy(Columna,fila);
write(Texto);
End;

Procedure num1;
var
x:integer;
begin
clrscr;
for x:=1 to 100 do
begin
write(' ',x);
end;
readkey;
end;

procedure num2;
var
x:integer;
begin
clrscr;
for x:=100 downto 1 do
begin
write(' ',x);
end;
readkey;
end;

procedure num3;
var
x,y:integer;
begin
clrscr;
y:=0;
for x:=0 to 50 do

begin
write(' ',y);
y:=y+2;
end;
readkey;
end;

procedure num4;
var
x,y:integer;
begin
clrscr;
y:=1;
for x:=0 to 49 do

begin
write(' ',y);
y:=y+2;
end;
readkey;
end;

Procedure Salida;
Begin
Clrscr;
Textbackground(white);
Textcolor(blue);
Centrar('Gracias vuelva pronto',8);
Delay(2000);
End;

{INICIAMOS EL PROGRAMA PRINCIPAL}

Begin
Repeat
Clrscr;
Gotoxy(17,1);
Writeln('+-----------------------------------+');
Gotoxy(17,2);
Writeln(': :');
Gotoxy(17,3);
Writeln('+-----------------------------------+');
Gotoxy(20,2);
textcolor(green);
textbackground(white);
Writeln(msg);
textcolor(white);
textbackground(black);
Gotoxy(8,5);
Writeln('+-----------------------------------------------------------------------+');
Gotoxy(8,6);
Writeln(': :');
Gotoxy(8,7);
Writeln(': :');
Gotoxy(8,8);
Writeln(': :');
Gotoxy(8,9);
Writeln(': :');
gotoxy(8,10);
writeln(': :');
gotoxy(8,11);
writeln(': :');
gotoxy(8,12);
writeln(': :');
gotoxy(8,13);
writeln(': :');
gotoxy(8,14);
Writeln('+-----------------------------------------------------------------------+');
Centrar('OPCIONES DEL PROGRAMA',6);
centrar('segun el numero que presiones es la funcion a realizar',7);
centrar('[1] numeracion del 1 al 100',8);
centrar('[2] numeracion del 100 al 1',9);
centrar('[3] numeracion de 2 en 2 hasta el 100 empezado desde el 0',10);
centrar('[4] numeracion de 2 en 2 hasta el 99 empezado desde el 1',11);
Centrar('[X]SALIR DEL PROGRAMA',12);
Textcolor(green);
textbackground(white);
Centrar('Elige una opcion ',19);
opc:=readkey;
Case opc of

'1':num1;
'2':num2;
'3':num3;
'4':num4;
'X','x':salida;
End;
Until (opc='x') or (opc='X');

End;

procedure calcu;

var
opc:char;
msg:string ='programa creado por vladimr';
procedure centrar(texto:string; fila:integer);
var
columna:integer;
begin
columna:=(80-length(texto)) div 2;
gotoxy(columna,fila);
write(texto);
end;
procedure calculodeuncirculo;
var
x,y,pi:real;
begin
clrscr;
centrar('dame un valor: ',5);
read(x);
y:=pi*(x*x);
pi:=3.1416;
centrar('el area del circulo dando su radio es: ',7);
read(y);
writeln;
writeln;
writeln;
centrar('presiona enter para regresar al menu principal',10);
readkey;
end;

procedure resta;
var
x,y,z:integer;
begin
clrscr;
centrar('dame un numero: ',5);
read(x);
centrar('dame otro numero: ',6);
read(y);
centrar('la resta deesos numeros es igual a: ',7);
z:=x-y;
writeln(z);
writeln;
writeln;
writeln;
centrar('presiona enter para regresar al menu principal',10);
readkey;
end;

procedure multiplicacion;
var
x,y,z:integer;
begin
clrscr;
centrar('dame un numero: ',5);
read(x);
centrar('dame otro numero: ',6);
read(y);
centrar('la multiplicacion de esos numeros es igual a: ',7);
z:=x*y;
writeln(z);
writeln;
writeln;
writeln;
centrar('presiona enter para regresar al menu principal',10);
readkey;
end;

procedure salida;
begin
clrscr;
textbackground(red);
textcolor(yellow);
centrar('gracias por usarme, hasta luego',8);
delay(2000);
end;

{empieza el programa principal}

Begin
repeat
clrscr;
gotoxy(26,1);
writeln('+-----------------------------------+');
gotoxy(26,2);
writeln(': :');
gotoxy(26,3);
writeln('*-----------------------------------+');
gotoxy(28,2);
textcolor(yellow);
textbackground(red);
writeln(msg);
textcolor(white);
textbackground(black);
gotoxy(24,5);
writeln('+----------------------------+');
gotoxy(24,6);
writeln(': :');
gotoxy(24,7);
writeln(': :');
gotoxy(24,8);
writeln(': :');
gotoxy(24,9);
writeln(': :');
gotoxy(24,10);
writeln(': :');
gotoxy(24,11);
writeln(': :');
gotoxy(24,12);
writeln(': :');
gotoxy(24,13);
writeln(': :');
gotoxy(24,14);
writeln(': :');
gotoxy(24,15);
writeln(': :');
gotoxy(24,16);
writeln(': :');
gotoxy(24,17);
writeln('+----------------------------+');
centrar('opciones del programa',6);
centrar('{s}umar dos numeros',8);
centrar('{r}estar dos numeros',10);
centrar('{m}ultiplicar dos numeros',12);
centrar('{x} salir del programa',14);
textcolor(green);
centrar('elige una opcion ',15);
opc:=readkey;
case opc of
'S','s':calculodeuncirculo;
'R','r':resta;
'M','m':multiplicacion;
'X','x':salida;
end;
until (opc='X') or (opc='x');
end;

BEGIN

repeat
clrscr;
textcolor(blue);
centrar('programa integrador tercera parcial',6);
centrar('elaborado por: vladimir alberto',7);
centrar('bachillerato tecnico 30',8);
centrar('quinto B',9);
centrar('programacion 1',10);
textcolor(green);
centrar('preciona enter para continuar',14);
textcolor(white);
readkey;
clrscr;
gotoxy(18,1);
writeln('+---------------------------------------+');
gotoxy(18,2);
writeln('| |');
gotoxy(18,3);
writeln('| |');
gotoxy(23,2);
textcolor(white);
textbackground(black);
writeln(msg);
textcolor(white);
textbackground(black);
gotoxy(16,5);
writeln('+---------------------------------------+');
gotoxy(16,6);
writeln('| |');
gotoxy(16,7);
writeln('| |');
gotoxy(16,8);
writeln('| |');
gotoxy(16,9);
writeln('| |');
gotoxy(16,10);
writeln('| |');
gotoxy(16,11);
writeln('| |');
gotoxy(16,12);
writeln('| |');
gotoxy(16,13);
writeln('| |');
gotoxy(16,14);
writeln('| |');
gotoxy(16,15);
writeln('| |');
gotoxy(16,16);
writeln('| |');
gotoxy(16,17);
writeln('| |');
gotoxy(16,18);
writeln('| |');
gotoxy(16,19);
writeln('+---------------------------------------+');
centrar('opciones de programa',6);
centrar('[1]'' operaciones aritmeticas',8);
centrar('[2]'' calculo de areas',9);
centrar('[3]'' numeraciones',10);
centrar('[X]'' salir del programa',17);
textcolor(green);
centrar('elige una opcion',20);
opc:=readkey;
case opc of
'1':calcu;
'2': areas;
'3': numeraciones;
'x','X':salida;
end;

until(opc='x') or (opc='X');

END.

jueves, 14 de noviembre de 2013

calcular areas

Program calculadora;
uses
crt;

Var
opc: char;
msg: String='Programa creado por vladimir flores cx';
procedure Centrar (Texto:String;fila:Integer);
Var
columna:integer;
Begin
columna:=(80-Length(Texto)) DIV 2;
Gotoxy(Columna,fila);
write(Texto);
End;

Procedure Circulo;
Var
y,r:real;
Begin
Clrscr;
Centrar('Escribe el valor de: r: ',6);
Readln(r);
Centrar('El area del circulo es igual a: ',8);
y:=PI*r*r;
Writeln(y:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
readkey;
End;

Procedure Triangulo;
Var
a,b,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base:',4);
Read(b);
Centrar('Escribe el valor de la altura: ',6);
Read(h);
Centrar('El area del Triangulo es igual a: ',8);
a:=b*h/2;
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Rectangulo;
Var
a,b,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base: ',5);
Read(b);
Centrar('Escribe el valor de la altura: ',6);
Read(h);
a:=b*h;
Centrar('El area del Rectangulo es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Cuadrado;
Var
a,L:real;
Begin
Clrscr;
Centrar('Escribe el valor del Lado: ',5);
Read(L);
a:=L*L;
Centrar('El area del Cuadrado es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Romboide;
Var
b,h,a:real;
Begin
Clrscr;
Centrar('Escribe el valor de la base: ',3);
Read(b);
Centrar('Escribe el valor de la altura: ',5);
Read(h);
a:=b*h;
Centrar('El area del Romboide es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Rombo;
Var
a,Dmas,dmenor:real;
Begin
Clrscr;
Centrar('Escribe el valor de la Diagonal mayor: ',5);
Read(Dmas);
Centrar('Escribe el valor de la diagonal menor: ',6);
Read(dmenor);
a:=Dmas*dmenor/2;
Centrar('El area del Rombo es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Trapecio;
Var
a,Bmayor,bmenor,h:real;
Begin
Clrscr;
Centrar('Escribe el valor de la Base mayor: ',5);
Read(Bmayor);
Centrar('Escribe el valor de la base menor: ',6);
Read(bmenor);
a:=Bmayor*bmenor/2;
Centrar('El area del Trapecio es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal',10);
Readkey;
End;

Procedure Pentagono;
Var
a,P,apo:real;
Begin
Clrscr;
Centrar('Escribe el valor del Perimetro: ',5);
Read(P);
Centrar('Escribe el valor de la apotema: ',6);
Read(apo);
a:=P*apo/2;
Centrar('El area del Pentagono es igual a: ',8);
Writeln(a:4:2);
Writeln;
Writeln;
Writeln;
Centrar('Presiona ENTER para regresar al menu principal ',10);
Readkey;
End;
Procedure Salida;
Begin
Clrscr;
Textbackground(blue);
Textcolor(yellow);
Centrar('Gracias por utilizarme hasta pronto',8);
Delay(2000);
End;

{INICIAMOS EL PROGRAMA PRINCIPAL}

Begin
Repeat
Clrscr;
Gotoxy(17,1);
Writeln('+----------------------------------------------+');
Gotoxy(17,2);
Writeln('| |');
Gotoxy(17,3);
Writeln('+----------------------------------------------+');
Gotoxy(20,2);
textcolor(white);
textbackground(yellow);
Writeln(msg);
textcolor(black);
textbackground(yellow);
Gotoxy(10,5);
Writeln('+---------------------------------------------------------+');
Gotoxy(10,6);
Writeln('| |');
Gotoxy(10,7);
Writeln('| |');
Gotoxy(10,8);
Writeln('| |');
Gotoxy(10,9);
Writeln('| |');
gotoxy(10,10);
Writeln('+---------------------------------------------------------+');
Centrar('OPCIONES DEL PROGRAMA',6);
centrar('segun el numero que presiones es la funcion a realizar',7);
centrar('1:circulo ''[1]'' 2:triangulo''[2]'' 3:rectangulo ''[3]',8);
centrar('4:cuadrado''[4]'' 5:romboide ''[5]'' 6:trapecio ''[6]',9);
centrar('7:pentagono ''[7]'' 8:rombo ''[8]'' x:salir',9);
Centrar('[X]SALIR DEL PROGRAMA',18);
Textcolor(white);
textbackground(yellow);
Centrar('Elige una opcion ',19);
opc:=readkey;
Case opc of

'1':circulo;
'2':triangulo;
'3':rectangulo;
'4':cuadrado;
'5':romboide;
'6':trapecio;
'7':pentagono;
'8':rombo;
'X','x':salida;
End;
Until (opc='x') or (opc='X');

End.

lunes, 11 de noviembre de 2013

Programa de una calculadora

¿Que hace el programa?
el programa emula un modelo base de una computadora portatil en el cual el usuario puede dar funcion de una calculadora con sus funciones basicas.

¿Que instrucciones nuevas encontrastes?
en el programa se pudo apreciar a primera vista que te daria un meno en el cual tu podrias decicir entee unas funciones a cual querias accesar y dar uso de ella, como tambien la presentacion que se le da al programa

Procedure: Un procedimiento es una declaración de una rutina que se puede invocar desde dentro de la unidad que lo declara, desde fuera de la unidad si el procedimiento es público o desde un programa, y la rutina no devuelve un valor como parte de su definición. Un procedimiento que no devuelve un valor, como parte de su definición se llama función.

lengtht: Longitud devuelve la longitud de la cadena o matriz S, que se limita a 255 para shortstrings. Si la serie S está vacía, se devuelve 0.

Nota: La longitud de la cadena S se almacena en S [0] para sólo shortstrings. La función de longitud se debe utilizar siempre en ansistrings y widestrings.

textcolor: TextColor establece el color de primer plano puede ser una de las constantes de color predefinidas.

textbackground: TextBackground establece el color de fondo puede ser una de las constantes de color predefinidas.

delay: Retardo de espera de un número especificado de milisegundos. El número de segundos especificados es una aproximación y puede estar fuera mucho, si la carga del sistema es alta.