Programación 1

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.

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.

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)

lunes, 14 de octubre de 2013

Actividad 3

jueves, 10 de octubre de 2013

Actividad 2

lunes, 7 de octubre de 2013

FreePascal 1

Program: Define un bloque de código como constituyente de un programa

Uses: Declara el uso de una o mas unidades

Crt: es una unidad estándar de Turbo Pascal

Var: Es una palabra reservada de turbo pascal

String: Identifica la variable como una cadena e indica que la longitud de esa cadena no pueda acceder de 1 a 255 caracteres.

Interger: Pueden contener números

Char: Pueden Contener caracteres simples

Begin: Bloque de programa

Repeat: se utiliza en estructuras de control Repeat-Until

Clrscr: Borra la pantalla y el programa muestra en el monitor: Introduzca el numero

TextColor: Cambia el color de primer plano al indicado en color

Textbackground: Cambia el color de fondo por defecto al indicado Color

Writeln: En un procedimiento estándar de Turbo Pascal

ReadKey: Lee un carácter del teclado sin hacer eco

Sound: Genera un tono en el altavoz del PC con la frecuencia especificada en Frec.

Random: Devuelve un numero generado aleatoria-mente por Turbo Pascal.

Delay: Produce un retardo en la ejecución del programa durante ms mili-segundos

Until: Se usa en los bucles Repeat-Until

If: Se utiliza en sentencia If-Then

Then: Se usa en las sentencias If-Then

While: Se utiliza en los bucles While-Do

Do: Se utiliza en estructuras de control de bucles.

End: Identifica el final de un bloque de código el final de una sentencia Case, el final de un identificación de registro o el final de un programa.

End; se puede realizar un manejo de la excepción en varias capas, realizando sucesivas acciones en cada una de ellas.

bibliografía: Turbo pascal 6 autor: Stephen O'Brien