ING. REGLA: 2010

PRACTICA 22

program practica20a;

uses crt;

var

pza:integer;

d:char;

e,f,m,a,ma,total:real;

begin

textbackground(white);

clrscr;

textcolor(black);

gotoxy(25,2);

Write('Piezas en inventario: ' );

textcolor(red);

readln(pza);

gotoxy(25,3);

textcolor(black);

write('Ventas planeadas de Enero:');

textcolor(red);

readln(e);

gotoxy(25,4);

textcolor(black);

write('Ventas planeadas de Febrero:');

textcolor(red);

readln(f);

gotoxy(25,5);

textcolor(black);

write('Ventas planeadas de Marzo:');

textcolor(red);

readln(m);

gotoxy(25,6);

textcolor(black);

write('Ventas planeadas de Abril:');

textcolor(red);

readln(a);

gotoxy(25,7);

textcolor(black);

write('Ventas planeadas de Mayo:');

textcolor(red);

readln(ma);

total:=e+f+m+a+ma;

gotoxy(25,8);

textcolor(black);

writeln('Se necesitan ',total:8:2 ,' piezas');

writeln('Actualmente existen piezas suficientes para el ',((pza/total)*100):5:3 , '% del total planeado');

readln;

textcolor(red);

gotoxy(25,10);

if(pza<e) then

writeln('Surtir en Diciembre')

else if (pza>=e) and (pza<=e+f)then

writeln('Surtir en Enero')

else if (pza>e+f) and (pza<=e+f+m) then

writeln('Surtir en Febrero')

else if (pza>e+f+m) and (pza <=e+f+m+a) then

writeln ('Surtir en Marzo')

else if (pza>e+f+m+a) and (pza<=e+f+m+a+ma) then

writeln('Surtir en Abril')

else

writeln('Suficiente');

readln;

repeat

writeln('Desea continuar: S/N ');

read(d);

until (d='S');

readln;

end.

PRACTICA 23

program practica23;

uses crt;

var

dia:integer;

begin

clrscr;

writeln('Este programa relaciona un número con un dia de la semana');

writeln('Por favor,introduce un número entre 1 y 7');

readln(dia);

case dia of

1:writeln('Hoy es Lunes, ¡Animo!');

2:writeln('Es martes; es un buen dia');

3:writeln('Mitad de semana, es miercoles');

4:writeln('Falta menos par el fin de semana, es jueves');

5:writeln('Al fin viernes');

6:writeln('Sabado, dia de diversión');

else

writeln('HOY ES DOMINGO, NO HAY TRABAJO');

readln;

end;

readln;

end.

PRACTICA 24

program practica24;

uses crt;

var

a,b,c: real;

o:integer;

begin

textbackground(15);

textcolor(blue);

clrscr;

gotoxy(30,12);

writeln('Esta es una calculadora');

gotoxy(30,13);

writeln('Escoje una opción:');

textcolor(red);

textbackground(black);

gotoxy(30,14);

writeln('1.Suma');

gotoxy(30,15);

writeln('2.Resta');

gotoxy(30,16);

writeln('3.Multiplicación');

gotoxy(30,17);

writeln('4.División');

readln(o);

case o of

1:Begin

textbackground(15);

Writeln('SUMA');

Writeln ('Introduzca el primer número');

Readln(a);

Writeln ('Introduzca el segundo número');

Readln(b);

Writeln ('La suma es:',(a+b):5:5);

end;

2:Begin

textbackground(white);

writeln('RESTA');

writeln('Introduce el primer número');

readln(a);

writeln('Introduce el segundo número');

readln(b);

c:=a-b;

writeln('El resultado de tu resta es de ', c:5:2);

end;

3:Begin

textbackground(white);

writeln('MULTIPLICACIÓN');

writeln('Introduce el primer número');

readln(a);

writeln('Introduce el segundo número');

readln(b);

c:=a*b;

writeln('El resultado de tu multiplicación es de ', c:5:5);

end;

4:begin

textbackground(white);

writeln('DIVISIÓN');

writeln('Escribe el numerador');

readln(a);

writeln('Escribe el denominador');

readln(b);

c:=a/b;

Writeln('El resultado de tu divisón es de ', c:5:4);

end;

else

gotoxy(30,20);

textbackground(white);

textcolor(red);

writeln('OPCION NO VALIDA');

end;

readln;

End.

PRACTICA 27 y 29

Program practica18;

uses crt;

Var

c : char;

n : Byte;

cont:string[3];

Begin

clrscr;

repeat

clrscr;

textcolor(white);

gotoxy(25,2);

writeln('escribe la contraseña');

gotoxy(25,3);

readln(cont);

gotoxy(25,4);

textcolor(red);

if (cont='123') or (cont='321') then

writeln ('aceptado')

else

writeln('acceso denegado');

readln;

until (cont='123')or (cont='321');

textbackground(blue);

clrscr;

textcolor(yellow);

gotoxy(25,2);

Writeln('Teclea un caracter');

gotoxy(25,3);

Readln(c);

Case c Of

'a'..'z', 'A'..'Z' :

begin

textbackground(white);

clrscr;

gotoxy(25,2);

textcolor(red);

Writeln(c,' es una letra');

end;

'0'..'9' :

begin

textbackground(black);

textcolor(yellow);

clrscr;

gotoxy(25,2);

Writeln(c,' es un numero');

end;

'*','/','+','-' :

begin

textbackground(brown);

textcolor(black);

gotoxy(25,2);

Writeln(c, ' es un operador aritmetico');

end;

'>','<','=' :

begin

textbackground(red);

textcolor(white);

gotoxy(25,2);

Writeln(c, ' es un operador logico');

end;

Else

Begin

textbackground(yellow);

clrscr;

textcolor(blue);

gotoxy(25,2);

n := Ord(c);

Writeln('el simbolo ASCII de ',c, ' es ' , n);

end;

End;

readln;

End.

PRACTICA 31

program practica31;

uses crt;

var

a,b,c:real;

sn,sel:char;

us,co:string[4];

begin

repeat

textbackground(white);

textcolor (black);

clrscr;

gotoxy(25,3);

write ('Usuario: ');

readln(us);

gotoxy(25,5);

write('Contraseña: ');

readln(co);

if (us='temo') and (co='0602') then

write ('Correcto')

else

write('Incorrecto, intente de nuevo');

readln;

until (us='temo') and (co='0602');

repeat

textbackground(black);

textcolor(yellow);

clrscr;

writeln('ESTE PROGRAMA TIENE LAS SIGUIENTES FUNCIONES: ');

writeln('A: Calculo de hipotenusa conociendo sus catetos.');

writeln('B: Calculo de cateto conociendo hipotenusa y un cateto.');

write('Selección: ');

readln(sel);

case sel of

'A','a':

begin

writeln('PROGRAMA CREADO PARA CALCULAR LA HIPOTENUSA DE UN TRIANGULO RECTANGULO');

write('Cateto A: ');

readln(a);

write('Cateto B: ');

readln(b);

c:=sqrt(sqr(a)+sqr(b));

writeln('De para un triangulo de cateto A de ',a:5:2,' y cateto B de ',b:5:2,' corresponde');

writeln('una hipotenusa de: ',c:8:2);

readln;

end;

'B','b':

begin

writeln('PROGRAMA CREADO PARA CALCULAR CATETO CONOCIENDO HIPOTENUSA Y CATETO');

write('Cateto: ');

readln(a);

write('Hipotenusa: ');

readln(c);

b:=sqrt(sqr(c)-sqr(a));

writeln('De para un triangulo de hipotenusa de ',c:5:2,' y cateto de ',a:5:2,' corresponde');

writeln('una cateto de: ',b:8:2);

readln;

end;

writeln('¿Quieres realizar otro calculo?');

readln(sn);

until (sn='n') or (sn='N');

end.

PRACTICA 32

PROGRAM ConvertirMoneda;

Uses Crt;

VAR

MesActual,

DiaActual,

AnnoActual,

CodigoMoneda : integer;

PROCEDURE MostrarInstrucciones;

BEGIN

WRITELN( 'Este programa convierte dolares a' );

WRITELN( 'peso mexicano y viceversa. Introduzca' );

WRITELN( '1 para convertir dolares a pesos' );

WRITE( '2 para convertir pesos a dolares: ' )

END ;

PROCEDURE ConvertirMXUSA;

VAR

USAMX,

Dolares : real;

BEGIN

WRITE( 'Introduzca el valor de cambio actual dolar - peso: ' );

READLN( USAMX );

WRITE( 'Introduzca la cantidad en dolares estadounidenses: ');

READLN( Dolares );

WRITELN( 'Es equivalente a ',

USAMX* Dolares:4:2, ' pesos mexicanos.' )

END ;

PROCEDURE ConvertirUSAMX;

VAR

MXUSA,

Dolares : real;

BEGIN

WRITELN;

WRITE( 'Introduzca el valor de cambio actual Peso - dolar.: ' );

READLN( MXUSA );

WRITE( 'Introduzca la cantidad en pesos mexicanos: ' );

READLN( Dolares );

WRITELN;

WRITELN( 'Es equivalente a ',

MXUSA * Dolares:4:2, ' dolares estadounidenses.' );

WRITELN;

END ;

BEGIN

ClrScr;

WRITELN;

WRITE( 'Introduzca el dia, mes y año actuales: ' );

READLN( DiaActual, MesActual, AnnoActual );

WRITELN;

MostrarInstrucciones;

READLN( CodigoMoneda );

IF CodigoMoneda = 1 THEN

ConvertirMXUSA

ELSE

ConvertirUSAMX;

WRITELN( '*** FECHA DE LA OPERACION: ', DiaActual:1, '-', MesActual:1,

'-', AnnoActual:1 );

REPEAT Until Keypressed;

END. {p.p}

FINAL ALTERNO

WRITE( 'Introduzca el dia, mes y año actuales: ' );

READLN( DiaActual, MesActual, AnnoActual );

WRITELN;

MostrarInstrucciones;

READLN( CodigoMoneda );

case CodigoMoneda of

1:ConvertirMXUSA;

2:ConvertirUSAMX;

end;

WRITELN( '*** FECHA DE LA OPERACION: ', DiaActual:1, '-', MesActual:1,

'-', AnnoActual:1 );

Readln;

END.

PRACTICA 33

program practica33;

uses crt;

var

a,b,c,d:string[20];

opc:byte;

procedure menu;

begin

clrscr;

writeln('Programa diseñado para calcular el promedio de alumnos');

writeln('Favor de elegir una opción');

writeln('1:Calculo de promedio por cuatrimestre');

writeln('2:Calculo de promedio general');

writeln('3:Promedio de cuatro alumnos');

end;

procedure promcua;

var

m1,m2,m3,m4,prom:real;

nom:string[20];

begin

write('¿Cual es tú nombre? ');

readln(nom);

write('Ingresa tu calificación de materia 1:');

readln(m1);

write('Ingresa tu calificación de materia 2:');

readln(m2);

write('Ingresa tu calificación de materia 3:');

readln(m3);

write('Ingresa tu calificación de materia 4:');

readln(m4);

prom:=(m1+m2+m3+m4)/4;

writeln('Tu promedio ',nom, ' en el cuatrimestre fue de: ', prom:5:2);

readln;

end;

procedure promcar;

var

c1,c2,c3,c4,prom:real;

begin

write('Ingresa tu calificación de cuatrimestre 1:');

readln(c1);

write('Ingresa tu calificación de cuatrimestre 2:');

readln(c2);

write('Ingresa tu calificación de cuatrimestre 3:');

readln(c3);

write('Ingresa tu calificación de cuatrimestre 4:');

readln(c4);

prom:=(c1+c2+c3+c4)/4;

writeln('Tu promedio actial en la carrera es de: ',prom:5:2);

readln;

end;

begin

clrscr;

menu;

readln(opc);

case opc of

1:promcua;

2:promcar;

3:begin

clrscr;

writeln('Sección de promedio por cuatrimestre de cuatro alumnos');

promcua;

end;

else

writeln('Opción no valida, intente de nuevo');

readln;

end;

end.

lunes, 11 de octubre de 2010

miércoles, 22 de septiembre de 2010

jueves, 19 de agosto de 2010

martes, 17 de agosto de 2010

jueves, 12 de agosto de 2010

miércoles, 11 de agosto de 2010

lunes, 9 de agosto de 2010

martes, 27 de julio de 2010

miércoles, 14 de julio de 2010

jueves, 24 de junio de 2010

martes, 22 de junio de 2010

jueves, 17 de junio de 2010

lunes, 14 de junio de 2010

miércoles, 2 de junio de 2010

miércoles, 26 de mayo de 2010

miércoles, 19 de mayo de 2010

martes, 18 de mayo de 2010