jueves, 28 de noviembre de 2013

Imagenes







Publicado por en No hay comentarios:

lunes, 25 de noviembre de 2013

Programa integrador

Program integrador;
Uses
 Crt;
Var
 Opc:char;
 msg:string='Programa creado por Alison';
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(red);
Textcolor(yellow);
Centrar('Se despide el programa integrador, bye @Justin Bieber',8);
Delay(2000);
End;
Procedure circulo;
Var
 area,r:real;
Begin
 Clrscr;
 Centrar('Escribe el valor de r (radio)',5);
 Readln(r);
 area:=PI*r*r;
 Centrar('El area del circulo es igual a',8);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona una tecla para regresar al menu',10);
 Readkey;
End;
Procedure Triangulo;
Var
 area,base,altura:real;
 Begin
  Clrscr;
  Centrar('Escribe el valor de b (base)',5);
  Readln(base);
  Centrar('Escribe el valor de h (altura)',7);
  Readln(altura);
  area:=((base*altura)/2);
  Centrar('El area del triangulo es igual a',9);
  Writeln(area:4:2);
  Writeln;
  Writeln;
  Writeln;
  Centrar('Presiona una tecla para regresar al menu',10);
  Readkey;
End;
Procedure Rectangulo;
Var
 area,base,altura:real;
 Begin
  Clrscr;
  Centrar('Escribe el valor de b (base)',5);
  Readln(base);
  Centrar('Escribe el valor de h (altura)',7);
  Readln(altura);
  area:=(base*altura);
  Centrar('El area del rectangulo es igual a',9);
  Writeln(area:4:2);
  Writeln;
  Writeln;
  Writeln;
  Centrar('Presiona cualquier tecla para regresar al menu',10);
  Readkey;
End;
Procedure Cuadrado;
Var
 area,Lado:real;
 Begin
 Clrscr;
 Centrar('Escribe el valor del l (lado)',5);
 Read(Lado);
 area:=Lado*Lado;
 Centrar('El area del Cuadrado es igual a: ',8);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona cualquier tecla para regresar al menu',10);
 Readkey;
End;
Procedure Romboide;
Var
 base,altura,area:real;
 Begin
 Clrscr;
 Centrar('Escribe el valor de la b (base)',3);
 Read(base);
 Centrar('Escribe el valor de la a (altura)',5);
 Read(altura);
 area:=base*altura;
 Centrar('El area del Romboide es igual a: ',8);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona cualquier tecla para regresar al menu',10);
 Readkey;
End;
Procedure Trapecio;
Var
 area,Basemayor,basemenor,altura:real;
 Begin
 Clrscr;
 Centrar('Escribe el valor de la B (Basemayor)',5);
 Read(Basemayor);
 Centrar('Escribe el valor de la b (basemenor)',7);
 Read(basemenor);
 area:=Basemayor*basemenor/2;
 Centrar('El area del Trapecio es igual a: ',9);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona cualquier tecla para regresar al menu',10);
 Readkey;
End;
Procedure Pentagono;
Var
 area,Perimetro,apotema:real;
 Begin
 Clrscr;
 Centrar('Escribe el valor del P (Perimetro)',5);
 Read(Perimetro);
 Centrar('Escribe el valor de la a (apotema)',7);
 Read(apotema);
 area:=Perimetro*apotema/2;
 Centrar('El area del Pentagono es igual a: ',9);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona ENTER para regresar al menu principal ',10);
 Readkey;
End;
Procedure Rombo;
Var
 area,Diagonalmayor,diagonalmenor:real;
 Begin
 Clrscr;
 Centrar('Escribe el valor de la D (Diagonalmayor)',5);
 Read(Diagonalmayor);
 Centrar('Escribe el valor de la d (diagonalmenor)',7);
 Read(diagonalmenor);
 area:=Diagonalmayor*diagonalmenor/2;
 Centrar('El area del Rombo es igual a: ',9);
 Writeln(area:4:2);
 Writeln;
 Writeln;
 Writeln;
 Centrar('Presiona cualquier tecla para regresar al menu',10);
 Readkey;
End;
Procedure suma;
var
 x,y,z:integer;
begin
 clrscr;
 centrar('dame un numero:' ,5);
 read(x);
 centrar('dame otro numero: ',6);
 read(y);
 centrar('la suma 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 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 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 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 Numeracion1;
Var
 x:integer;
Begin
 Clrscr;
 For x:=1 to 100 do
 Begin
  Write(' ',x);
 End;
 Readkey;
End;
Procedure Numeracion2;
Var
 x:integer;
Begin
 Clrscr;
 For x:=100 downto 1 do
 Begin
  Write(' ',x);
 End;
 Readkey;
End;
Procedure Numeracion3;
Var
 x,y:integer;
Begin
 Clrscr;
 y:=0;
 For x:=0 to 50 do
 Begin
  Write(' ',y);
  y:=y+2;
 End;
 Readkey;
End;
Procedure Numeracion4;
Var
 x,y:integer;
Begin
 Clrscr;
 y:=1;
 For x:=1 to 50 do
 Begin
  Write(' ',y);
  y:=y+2;
 End;
 Readkey;
End;
Procedure numeraciones;
begin
 Repeat
 Clrscr;
 Gotoxy(18,1);
 Writeln('+-------------------------------------------+');
 Gotoxy(18,2);
 Writeln('|                                           |');
 Gotoxy(18,3);
 Writeln('+-------------------------------------------+');
 Gotoxy(23,2);
 Textcolor(yellow);
 textbackground(red);
 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 DEL PROGRAMA',6);
 Centrar('[N]umeracion de menor a mayor',8);
 Centrar('N[u]meracion de mayor a menor',10);
 Centrar('Nu[M]eracion de dos en dos',12);
 Centrar('Num[E]racion de tres en tres',14);
 Centrar('[Y] Regresar al programa principal',16);
 Textcolor(green);
 Centrar('Elige una opcion',18);
 Opc:=readkey;
 Case opc of
 'N','n': Numeracion1;
 'U','u': Numeracion2;
 'M','m': Numeracion3;
 'E','e': Numeracion4;
 End;
 Until (opc='Y') or (opc='y');
End;
Procedure aritmeticas;
begin
   repeat
   clrscr;
   gotoxy(18,1);
   writeln('+---------------------------------------+');
   gotoxy(18,2);
   writeln('|                                       |');
   gotoxy(18,3);
   writeln('+---------------------------------------+');
   gotoxy(23,2);
   textcolor(yellow);
   textbackground(red);
   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 DEL PROGRAMA',6);
   centrar('[S]umar dos numeros',8);
   centrar('[R]estar dos numeros',10);
   centrar('[M]ultiplicar dos numeros',12);
   Centrar('[Y] Regresar al programa principal',14);
   textcolor(green);
   centrar('elige una opcion',16);
   opc:=readkey;
   case opc of
   'S','s': suma;
   'R','r': resta;
   'M','m': multiplicacion;
   End;
 Until(opc='Y') or (opc='y');
End;
Procedure areas;
Begin
 Repeat;
 Clrscr;
 Gotoxy(18,1);
 Writeln('+--------------------------------------------+');
 Gotoxy(18,2);
 Writeln('|                                            |');
 Gotoxy(18,3);
 Writeln('+--------------------------------------------+');
 Gotoxy(23,2);
 Textcolor(yellow);
 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 del programa',6);
 Centrar('[C]irculo',8);
 Centrar('[T]riangulo',9);
 Centrar('[R]ectagulo',10);
 Centrar('C[U]adrado',11);
 Centrar('R[O]mboide',12);
 Centrar('Tr[A]pecio',13);
 Centrar('[P]entagono',14);
 Centrar('Ro[M]bo',15);
 Centrar('[Y] Regresar al programa principal',17);
 Textcolor(green);
 Centrar('Elige una opcion',20);
 opc:=readkey;
 Case opc of
 'C','c':circulo;
 'T','t':triangulo;
 'R','r':rectangulo;
 'U','u':cuadrado;
 'O','o':romboide;
 'A','a':trapecio;
 'P','p':pentagono;
 'M','m':rombo;
 End;
 Until(opc='Y') or (opc='y');
End;
Begin
 Repeat
 Clrscr;
 Textcolor(Green);
 Centrar('Programa integrador tercer parcial',6);
 Centrar('Elaborado por: Alison',7);
 Centrar('Bachillerato 30',8);
 Centrar('Quinto B',9);
 Centrar('Programacion |',10);
 Textcolor(red);
 Centrar('Presiona ENTER para continuar',14);
 Textcolor(White);
 Readkey;
 Clrscr;
 Gotoxy(18,1);
 Writeln('+-------------------------------------------+');
 Gotoxy(18,2);
 Writeln('|                                           |');
 Gotoxy(18,3);
 Writeln('+-------------------------------------------+');
 Gotoxy(23,2);
 Textcolor(yellow);
 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 del programa',6);
 Centrar('[O]peraciones aritmeticas',8);
 Centrar('[C]alculo de areas',9);
 Centrar('C[I]clos',10);
 Centrar('[X] Salir del programa',17);
 Textcolor(green);
 Centrar('Elige una opcion',20);
 opc:=readkey;
 Case opc of
 'O','o':aritmeticas;
 'C','c':areas;
 'I','i':numeraciones;
 'X','x':salida;
 End;
 Until(opc='X') or (opc='x');
End.

Publicado por en No hay comentarios:

viernes, 22 de noviembre de 2013

Numeración

Program numeraciones;
Uses
 Crt;
Var
 Opc:char;
 msg:string='Programa creado por Alison';

Procedure Centrar(Texto:String; fila:Integer);
Var
 Columna:integer;
Begin
Columna:=(80-Length(Texto)) DIV 2;
Gotoxy(Columna,fila);
Write(Texto);
end;

Procedure numeracion1;
Var
 x:integer;
Begin
 Clrscr;
 For x:=1 to 100 do
 Begin
  Write(' ',x);
 end;
readkey;
end;

Procedure numeracion2;
Var
 x:integer;
Begin
 Clrscr;
 For x:=100 downto 1 do
 Begin
  Write(' ',x);
 end;
readkey;
end;

Procedure numeracion3;
Var
 x,y:integer;
Begin
 Clrscr;
 y:=0;
 For x:=0 to 100 do
 Begin
  Write(' ',y);
  y:=y+2;
 end;
readkey;
end;

Procedure numeracion4;
Var
 x,y:integer;
Begin
 Clrscr;
 y:=1;
 For x:=1 to 100 do
 Begin
  Write(' ',x);
  y:=y+2;
 end;
readkey;
end;

Procedure Salida;
Begin
 Clrscr;
 Textbackground(red);
 Textcolor(yellow);
 Centrar('Gracias por usarme, hasta luego',8);
 Delay(2000);
end;

{EMPIEZA PROGRAMA PRINCIPAL}

Begin
 Repeat
 Clrscr;
 Gotoxy(24,1);
 Writeln('+---------------------------------------+');
 Gotoxy(24,2);
 Writeln('|                                       |');
 Gotoxy(24,3);
 Writeln('+---------------------------------------+');
 Gotoxy(28,2);
 Textcolor(yellow);
 textbackground(red);
 Writeln(msg);
 Textcolor(white);
 Textbackground(black);
 Gotoxy(12,5);
 Writeln('+------------------------------------------------------+');
 Gotoxy(12,6);
 Writeln('|                                                      |');
 Gotoxy(12,7);
 Writeln('|                                                      |');
 Gotoxy(12,8);
 Writeln('|                                                      |');
 Gotoxy(12,9);
 Writeln('|                                                      |');
 Gotoxy(12,10);
 Writeln('|                                                      |');
 Gotoxy(12,11);
 Writeln('|                                                      |');
 Gotoxy(12,12);
 Writeln('|                                                      |');
 Gotoxy(12,13);
 Writeln('|                                                      |');
 Gotoxy(12,14);
 Writeln('|                                                      |');
 Gotoxy(12,15);
 Writeln('|                                                      |');
 Gotoxy(12,16);
 Writeln('|                                                      |');
 Gotoxy(12,17);
 Writeln('+------------------------------------------------------+');
 Centrar('OPCIONES DEL PROGRAMA',6);
 Centrar('[A]Numeracion del 1 al 100',8);
 Centrar('[B]Numeracion del 100 al 1',10);
 Centrar('[C]Numeracion Pares',12);
 Centrar('[D]Numeracion Impares',14);
 Centrar('[X] SALIR DEL PROGRAMA',16);
 Textcolor(green);
 Centrar('Elige una opcion',18);
 Opc:=readkey;
 Case opc of
 'A','a': Numeracion1;
 'B','b': Numeracion2;
 'C','c': Numeracion3;
 'D','d': Numeracion4;
 'X','x': salida;
 end;
 Until (opc='x') or (opc='X');
End.

Publicado por en No hay comentarios:

viernes, 15 de noviembre de 2013

cálculo de áreas

Program figuras;
uses
 crt;
Var
 opc:char;
 msg:String='Programa creado por Alison';
 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
  area,r:real;
 Begin
  Clrscr;
  Centrar('Escribe el valor de: r: ',6);
  Readln(r);
  Centrar('El area del circulo es igual a: ',8);
  area:=PI*r*r;
  Writeln(area:4:2);
  Writeln;
  Writeln;
  Writeln;
  Centrar('Presiona ENTER para regresar al menu principal',10);
  readkey;
  End;

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


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


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



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


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



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


Procedure  Pentagono;
Var
 area, Perimetro,apotema :real;
 Begin
 Clrscr;
 Centrar('Escribe el valor del Perimetro: ',5);
 Read(Perimetro);
 Centrar('Escribe el valor de la apotema: ',6);
 Read(apotema);
 area:=Perimetro*apotema/2;
 Centrar('El area del Pentagono es igual a: ',8);
 Writeln(area:4:2);
 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 utilizarme',8);
  Delay(2000);
  End;




 Begin
 Repeat
  Clrscr;
  Gotoxy(15,1);
  Writeln('+--------------------------------------------+');
  Gotoxy(15,2);
  Writeln('|                                            |');
  Gotoxy(15,3);
  Writeln('+--------------------------------------------+');
  Gotoxy(20,2);
  textcolor(yellow);
  textbackground(red);
  Writeln(msg);
 textcolor(brown);
 textbackground(black);
 Gotoxy(12,5);
 Writeln('+------------------------------------------------+');
 Gotoxy(12,6);
 Writeln('|                                                |');
 Gotoxy(12,7);
 Writeln('|                                                |');
 Gotoxy(12,8);
 Writeln('|                                                |');
 Gotoxy(12,9);
 Writeln('|                                                |');
 Gotoxy(12,10);
 Writeln('|                                                |');
 Gotoxy(12,11);
 Writeln('|                                                |');
 Gotoxy(12,12);
 Writeln('|                                                |');
 Gotoxy(12,13);
 Writeln('|                                                |');
 Gotoxy(12,14);
 Writeln('|                                                |');
 Gotoxy(12,15);
 Writeln('|                                                |');
 Gotoxy(12,16);
 Writeln('|                                                |');
 Gotoxy(12,17);
 Writeln('+------------------------------------------------+');
 Centrar('opciones de programa',6);
 Centrar('[C]irculo',7);
 Centrar('[T]riangulo',8);
 Centrar('[R]ectagulo',9);
 Centrar('C[U]adrado',10);
 Centrar('R[O]mboide',11);
 Centrar('Tr[A]pecio',12);
 Centrar('[P]entagono',13);
 Centrar('Ro[M]bo',14);
 Centrar('[X]salir del programa',15);
 Textcolor(blue);
 Centrar('Elige una opcion ',18);
 opc:=readkey;

 Case opc of
 'C','c':circulo;
 'T','t':triangulo;
 'R','r':rectangulo;
 'U','u':cuadrado;
 'O','o':romboide;
 'A','a':trapecio;
 'P','p':pentagono;
 'M','m':rombo;
 'X','x':salida;
End;
 Until (opc='x') or (opc='X');
 End.














Publicado por en No hay comentarios:

martes, 12 de noviembre de 2013

Calculadora

1.- Que hace el programa?
Suma, Resta, multiplica y divide
2.- Que instrucciones nuevas encontraste?
procedure, opc, gotoxy, Lenght, Delay

 3.- Investiga en internet, para que sirven las siguientes instrucciones:

a) Procedure:
Como es comun en la programacion se tienen muchos errores y para crear un sp (Stored Procedure) se realiza a base de prueba/error, para eso ponemos en la primer linea procedure 

b) Lenght:
el método de acceso length de la clase String de java devuelve la cantidad de caracteres de una cadena.

 c) Textcolor:
Esta función selecciona el color de texto especificado por el argumento color. 

d) Textbackground:
Cambia el color de fondo por defecto al indicado Color
e) Delay:
Sirve para hacer una pausa de ‘n’ segundos. 
Publicado por en No hay comentarios:

lunes, 21 de octubre de 2013

Para que no se aburran

1.- Que acepte dos valores enteros desde el teclado, los compare y los ordene, de mayor a menor y que aparezcan en pantalla ya ordenados.

2.- Que acepte dos valores enteros desde el teclado, los compare y los ordene, de menor a mayor y que aparezcan en pantalla ya ordenados.


3.- Que acepte una calificación en LETRA (A-B-C-D-E) y según la calificación ingresada, aparezca su equivalente en número (10-9-8-7-6).



4.- Que acepte un valor real, que calcule el iva (16%) y lo muestre en pantalla, el programa debe desplegar en pantalla lo siguiente Valor introducido IVA




5.- Que imprima en pantalla 'Precio del artículo', te permita leer el precio, si el precio es mayor a 10,000, que aparezca en pantalla 'Excelente compra, te mereces un descuento, cuanto descuento quieres 10%, 20%, 30% o 40 %?' te debe permitir escribir un valor (10-20-30 o 40) y según el valor que escribas, debe calcular el descuento elegido. Si el precio del artículo es menor o igual a 10,000 solo debe aparecer en pantalla el mensaje 'No es suficiente para descuento, nos vemos luego'.




6.- Que calcule la siguiente expresión:
(a+5*c)/(b+4-a)+4*b 
Siendo que:
a = 2,b = 8,c = 4




7.- Que calcule la incógnita positiva de una ecuación de segundo grado 
(Fórmula del chicharronero (-b + √(b2-4*a*c)/(2*a) )
Siendo que:
a= 10, b=5, c=2



8.- Que calcule el área y el volumen de un cilindro dadas las siguientes fórmulas:
A = (2 * (PI * r2)) + ((2 * PI * r) * h) (r2 es r CUADRADA)
V = (PI * r2) * h (r2 es r CUADRADA)
Publicado por en No hay comentarios:

lunes, 14 de octubre de 2013

Actividad 3













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