uses
crt;
Var
opc:char;
msg: string='Programa elaborado por Sandra Barajas';
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('Programa para el calculo de areas se despide, bye',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 una tecla para regresar al menu',10);
readkey;
end;
Procedure cuadrado;
var
L1,L2,A:real;
Begin
Clrscr;
centrar('Escribe el valor del primer lado ',5);
read(L1);
Centrar('Escribe el valor del segundo lado ',6);
read(L2);
A:=L1*L2;
centrar('El area del cuadrado es ',7);
writeln(A);
writeln;
writeln;
writeln;
centrar('Presiona una tecla para regresar al menu ',10);
readkey;
End;
Procedure romboide;
var
b,h,A:real;
begin
clrscr;
centrar('Escribe el valor de su base ',5);
read(b);
centrar('Escribe el valor de su altura',6);
read(h);
A:=b*h;
centrar('El area del romboide es ',7);
writeln(A);
writeln;
writeln;
writeln;
centrar('Presiona una tecla para regresar al menu ',10);
end;
Procedure trapecio;
var
h,B,b1,A:real;
begin
clrscr;
centrar(' Escribe el valor de su altura ',5);
read(h);
centrar(' Escribe el valor de su base mayor ',6);
read(B);
centrar(' Escribe el valor de su base menor ',7);
read(b1);
A:=h*(B+b1)/2;
centrar(' El area del trapecio es ',8);
Writeln(A);
Writeln;
writeln;
writeln;
centrar('Presiona una tecla para regresar al menu ',10);
readkey;
end;
Procedure pentagono;
var
p,a1,A:real;
begin
clrscr;
centrar('Escribe el valor de su perimetro ',5);
read(p);
centrar('Escribe el valor de su apotema ',6);
read(a1);
A:=p*a1/2;
centrar('El area del pentagono es ',7);
writeln(A);
writeln;
writeln;
writeln;
centrar(' Presiona una tecla para regresar al menu ',10);
readkey;
end;
Procedure rombo;
var
D,m,A:real;
begin
Clrscr;
centrar(' Escribe el valor de la diagonal mayor ',5);
read(D);
centrar(' Escribe el valor de su diagonal menor ',6);
read(m);
A:=D*m/2;
Centrar(' El area del rombo es ',7);
writeln(A);
writeln;
writeln;
writeln;
centrar(' Presiona una 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);
z:=x+y;
centrar('la suma de esos numeros es igual a: ',7);
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);
z:=x-y;
Centrar('La resta de estos numeros es igual a: ',7);
writeln(z);
writeln;
writeln;
writeln;
Centrar('Presione una tecla 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);
z:=x*y;
centrar('la suma de estos numeros es igual a ',7);
writeln(z);
writeln;
writeln;
writeln;
centrar('presione una tecla para regresar al menu principal ',10);
readkey;
end;
Procedure unoenuno;
Var
x:integer;
Begin
Clrscr;
For x:=1 to 100 do
Begin
Write(' ',x);
end;
readkey;
end;
Procedure cienauno;
Var
x:integer;
begin
Clrscr;
for x:=100 downto 1 do
begin
write(' ',x);
end;
readkey;
end;
Procedure ceroacien;
Var
x,y:integer;
begin
clrscr;
y:=0;
for x:=0 to 100 do
begin
write(' ',y);
y:=y+2;
end;
readkey;
end;
Procedure dosendos;
Var
x,y:integer;
begin
clrscr;
y:=1;
for x:=1 to 100 do
begin
write(' ',y);
y:=y+2;
end;
readkey;
end;
Procedure Operaciones;
Begin
Repeat;
clrscr;
gotoxy(18,1);
Writeln('+-------------------------------+');
Gotoxy(18,2);
writeln('| |');
gotoxy(18,3);
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(' [S]uma ',8);
Centrar(' [R]esta ',10);
Centrar(' [M]ultiplicacion ',12);
centrar('[Y] Regresar al programa principal',17);
Textcolor(green);
centrar('Elige una opcion',20);
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);
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]ectangulo',10);
Centrar('c[U]adrado',11);
centrar('Rombo[i]de',12);
centrar('Tr[A]pecio',13);
centrar('[P]entagono',14);
centrar('Ro[M]boide',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;
'I','i':romboide;
'A','a':trapecio;
'P','p':pentagono;
'M','m':rombo;
End;
until(opc='Y') or (opc='y');
End;
Procedure Ciclos;
Begin
Repeat;
clrscr;
gotoxy(18,1);
Writeln('+-------------------------------+');
Gotoxy(18,2);
writeln('| |');
gotoxy(18,3);
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('[U] Numeracion del 1 al 100 de uno en uno',8);
centrar('[C] Numeracion del 100 al 1 descendente',10);
centrar('[D] Numeros pares entre el 1 al 100',12);
centrar('[I] Numeros impares entre el 1 al 100',14);
Centrar('[Y] Ir al menu principal',18);
Textcolor(green);
centrar('Elige una opcion',20);
opc:=readkey;
case opc of
'U','u': unoenuno;
'C','c': cienauno;
'D','d': ceroacien;
'I','i': dosendos;
End;
until(opc='Y') or (opc='y');
End;
Begin
repeat
clrscr;
textcolor(green);
centrar('Programa integrador tercer parcial',6);
centrar('Elaborado por: Sandra',7);
centrar('Bachillerato 30',8);
Centrar('Quinto B',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('| |');
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': operaciones;
'C','c': areas;
'I','i': Ciclos;
'X','x': salida;
end;
until(opc='X') or (opc='x');
end.
No hay comentarios:
Publicar un comentario