Programacion1: November 2013

Program integrador;
Uses
Crt;
Var
opc:char;
msg:String=’Programa Creado por Karla Arroyo y Alberto Valdez;
Procedurecentrar(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(‘Programa para el calculo de areas se despide, BYE’,8);
Delay(2000);
End;

Procedure ares;

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 principal’,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 principal’,10);
Readkey;
End;
ProcedureRectangulo;
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 una tecla para regresar al menu principal’,10);
Readkey;
End;
Procedure Cuadrado;
Var
area,l:real;
Begin
Clrscr;
Centrar(‘Escribe el valor de l (Lado) ‘,5);
readln(l);
area:=l*l;
Centrar(‘El area del cuadrado es igual a :’,7);
Writeln(area:4:2);
writeln;
writeln;
writeln;
Centrar(‘Presiona ENTER para regresar al menu principal’,10);
Readkey;
End;
Procedure Romboide;
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 romboide es igual a :’,9);
writeln(area:4:2);
writeln;
writeln;
writeln;
Centrar(‘Presiona ENTER para regresar al menu principal’,10);
Readkey;
End;
Procedure Trapecio;
var
area,basemay,basemen,altura:real;
Begin
Clrscr;
Centrar(‘Escribe el valor de B (Base Mayor)’,5);
readln(basemay);
Centrar(‘Escribe el valor de b (base menor)’,7);
readln(basemen);
Centrar(‘Escribe el valor de h (Altura)’,9);
readln(altura);
area:=(basemay+basemen)*altura/2;
Centrar(‘El area del trapecio es igual a :’,11);
writeln(area:4:2);
writeln;
writeln;
writeln;
Centrar(‘Presiona ENTER para regresar al menu principal’,12);
Readkey;
End;
ProcedurePentagono;
var
area,perimetro,apotema:real;
Begin
Clrscr;
Centrar(‘Escribe el valor de P (Perimetro)’,5);
readln(perimetro);
Centrar(‘Escribe el valor de a (Apotema)’,7);
readln(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,diagmay,diagmen:real;
Begin
Clrscr;
Centrar(‘Escribe el valor de la D (Diagonal Mayor)’,5);
readln(diagmay);
Centrar(‘Escribe el valor de d (diagonal menor)’,7);
readln(diagmen);
area:=(diagmay*diagmen)/2;
Centrar(‘El area del rombo es igual a :’,9);
writeln(area:4:2);
writeln;
writeln;
writeln;
Centrar(‘Presiona ENTER para regresar al menu principal’,10);
Readkey;
End;
Begin
Repeat
Clrscr;
Gotoxy(18,1);
Writeln(‘+———————————————————————-+’);
Gotoxy(18,2);
Writeln(‘| |’);
Gotoxy(18,3);
Writeln(‘+———————————————————————-+’);
Gotoxy(20,2);
textcolor(yellow);
textbackground(red);
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(‘| |’);
Gotoxy(8,15);
Writeln(‘| |’);
Gotoxy(8,16);
Writeln(‘| |’);
Gotoxy(8,17);
Writeln(‘+————————————————————————————-+’);
Centrar(‘OPCIONES DEL PROGRAMA’,6);
Centrar(‘[C]irculo’,8);
Centrar(‘[T]riangulo’,9);
Centrar(‘c[U]adrado’,10);
Centrar(‘[R]ectangulo’,11);
Centrar(‘[P]entagono’,12);
Centrar(‘R[O]mboide’,13);
Centrar(‘Ro[M]bo’,14);
Centrar(‘Tr[A]pecio’,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;
‘U’,’u’ :Cuadrado;
‘R’,’r’ :Rectangulo;
‘P’,’p’ :Pentagono;
‘O’,’o’ :Romboide;
‘M’,’m’ :Rombo;
‘A’,’a’ :Trapecio;
End;
Until (opc=’Y’) or (opc=’y’);
End;
Procedure Suma;
var
x,y,z:real;
Begin
Clrscr;
Centrar(‘Dame un numero : ‘,5);
read(x);
Centrar(‘Dame otr numero: ‘,6);
read(y);
Centrar(‘La suma de esos numeros es igual a: ‘,7);
z:=x+y;
Writeln(z:4:2);
Writeln;
Writeln;
Writeln;
Centrar(‘Presionar una tecla para regresar al menu principal’,10);
readkey;
End;
Procedure Resta;
var
x,y,z:real;
Begin
Clrscr;
Centrar(‘Dame un numero : ‘,5);
read(x);
Centrar(‘Dame otr numero: ‘,6);
read(y);
Centrar(‘La resta de esos numeros es igual a: ‘,7);
z:=x-y;
Writeln(z:4:2);
Writeln;
Writeln;
Writeln;
Centrar(‘Presionar una tecla para regresar al menu principal’,10);
readkey;
End;
ProcedureMultiplicacion;
var
x,y,z:real;
Begin
Clrscr;
Centrar(‘Dame un numero : ‘,5);
read(x);
Centrar(‘Dame otr numero: ‘,6);
read(y);
Centrar(‘La multiplicacion de esos numeros es igual a: ‘,7);
z:=x*y;
Writeln(z:4:2);
Writeln;
Writeln;
Writeln;
Centrar(‘Presionar una tecla para regresar al menu principal’,10);
readkey;
End;

Procedure operaciones;
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(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(‘| |’);
gotoxy(8,15);
Writeln(‘| |’);
gotoxy(8,16);
Writeln(‘| |’);
gotoxy(8,17);
Writeln(‘+——————————————————————————————+’);
Centrar(‘Opciones del programa’,6);
Centrar(‘[S]uma de dos numeros’,8);
Centrar(‘[R]esta de dos numeros’,10);
Centrar(‘[M]ultiplicacion de dos numeros’,12);
Centrar(‘[B] Salir al menu principal’,14);
textcolor(green);
Centrar(‘Elige una opcion ‘,15);
opc:=readkey;
case opc of
‘S’,’s’: Suma;
‘R’,’r’: Resta;
‘M’,’m’: Multiplicacion;
End;
Until (opc=’B’) or (opc=’b’);
End;
Procedure ciclos;
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;
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(‘+————————————————————————+’);
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(‘[X] SALIR DEL PROGRAMA’,16);
Textcolor(green);
Centrar(‘Elige una opcion’,17);
Opc:=readkey;
Case opc of
‘N’,’n’: Numeracion1;
‘U’,’u’: Numeracion2;
‘M’,’m’: Numeracion3;
‘E’,’e’: Numeracion4;
‘X’,’x’: salida;
End;
Until (opc=’x’) or (opc=’X’);
End;

Begin
Repeat
Clrscr;
Textcolor(green);
Centrar(‘Programa integrador tercera parcial’,6);
Centrar(‘Elaborado por: Karla Arroyo y Alberto Valdes’,);
Centrar(‘Bachillerato 30’,8);
Centrar(‘Quinto A’,9);
Centrar(‘Programacion I’,10);
Textcolor(yellow);
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(‘+——————————————————-+’);
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’: operaciones;
‘C’,’c’: ares;
‘I’,’i’: ciclos;
‘X’,’x’: salida;
End;
Until (opc=’X’) or (opc=’x’);

end.

Programacion1

Monday, November 25, 2013

actividad no.2

actividad no. 3