PRACTICAS COMPUTACIÓN INGENIERIA INDUSTRIAL

 

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);

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;

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;

promcua;

promcua;

promcua;

end;

else

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

readln;

end;

end.