jueves, 28 de noviembre de 2013

imagenes programa integrador






Publicado por en No hay comentarios:

lunes, 25 de noviembre de 2013

programa integrador

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.



Publicado por en No hay comentarios:

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.




Publicado por en No hay comentarios:

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.
Publicado por en No hay comentarios:

martes, 22 de octubre de 2013

Para que no se aburran cx

Area de un cilindro

Programa ejecutado de area y cilindro

EL chicharonero 


Exprecion


Descuento de un producto


Ccalificaciones


Menor que un numero


MAyor que un numero


IVA


Publicado por en No hay comentarios:

lunes, 14 de octubre de 2013

tarea 3



















Publicado por en No hay comentarios:

jueves, 10 de octubre de 2013

programa para teclear un mumero y saber que dia cae en dicho numero

codigo del programa en curso de los dias de la semana asignandole un numero

numero y el dia al que se le fue asignado


Publicado por en No hay comentarios:
Suscribirse a: Entradas (Atom)