Trabajo 323 2

7/23/2019 Trabajo 323 2

1/16

UNIVERSIDAD NACIONAL ABIERTAVICERRECTORADO

ACADMICO AREA: INGENIERA

TRABAJO PRCTICO

ASIGNATURA: computacin I

CDIGO: 323

NOMBR D! STUDIANT:

C"DU!A D IDNTIDAD

CNTRO !OCA!:

CARRRA:

!APSO ACAD"MICO:

NUMRO D ORIGINA!S: #

$IRMA D! STUDIANT:

RESULTADOS DE CORRECCIN:

SOLUCIN ANALITICA DEL PROBLEMA

OBJ.N 5 6 7 8

%:N! #:!

7/23/2019 Trabajo 323 2

2/16

!a pana&'()a Panadera y Delicateses La Mejor C.A. '* una 'mp('*a &'

capita+ p(i,a&o- cu.a (a/n com'(cia+ '* p(incipa+m'nt' +a 0a1(icacin . ,'nta

&' a(t)cu+o* &' pana&'()a . pa*t'+'()a 'n 'n'(a+ tam1i4n ti'n' a &i*po*icin&'+ p51+ico +a ,'nta &' p(o&ucto* ta+'* como: pa*t'u(i/a&o*- 6'+a&o*- ca04 .

una (an ,a(i'&a& &' ('0('*co* . o+o*ina*7

DIALOGO

+ p(o1+'ma con*i*t' 'n '+a1o(a( +a imp+'m'ntacin &' un Si*t'ma &'

In,'nta(io &' Mat'(ia P(ima Automati/a&o- 8u' +'* p'(mita conoc'( +o*

&i0'('nt'* ni,'+'* 'n 8u' *' 'ncu'nt(an +o* in*umo* 19*ico* n'c'*a(io* pa(a

++'a( a+ p(o&ucto 0ina+- a +a '*p'(a &' o1t'n'( 'nt(' ot(o* +o* *iui'nt'*

1'n'0icio*:

Comp(a( +o* in*umo* n'c'*a(io* ;Mat'(ia P(ima< pa(a +a '+a1o(acin &' *u*

p(o&ucto* a un m'=o( p('cio . 'n ti'mpo* opo(tuno*7

Man'=a( . mant'n'( +o* in*umo* 'n ptima* con&icion'*7

Mant'n'( no(ma* &' ca+i&a& a&'cua&a*7

Di*minui( *u* co*to* a&mini*t(ati,o*7 Po*iciona(*' &'nt(o &'+ (upo &' +a* 'mp('*a* m9* comp'titi,a* 'n *u

'*p'cia+i&a&7

Pro!"o:*' ,a+i&an +o* &ato* &' 'nt(a&a- &' man'(a 8u' *o+o *' (a1an +o*

&ato* ,a+i&o* *'5n '+ c(it'(io p(''*ta1+'ci&o7 S' &i*'>a(a un p(o(ama 'n

tu(1o pa*ca+ ?7% pa(a u*an&o a(('+o* &' ('i*t(o*- *' (a1'n . mu'*t('n +o*

('*u+ta&o* ('8u'(i&o*7

D#$o" %! "#&'%#:M'n5 P(incipa+ con +a* opcion'* *iui'nt'*:

Mat'(ia* P(ima*7

R'c'pcin@D'*pac6o &' Mat'(ia P(ima

R'po(t'*7

a7 R'po(t' &' Existencia de todas las Materias

Primas

7/23/2019 Trabajo 323 2

3/16

17 R'po(t' Detallado de Movimientos de cada Materia Prima (ordenado por

Materia Prima in&ican&o: nt(a&a*- Sa+i&a* . i*t'ncia*< pa(a un +ap*o &'

ti'mpo &'t'(mina&o7

c7 R'po(t' Gloal de Movimientos de todas las

Materias Primas ;nt(a&a*- Sa+i&a* . i*t'ncia< 'n un +ap*o &' ti'mpo

&'t'(mina&o7

Sa+i( &'+ Si*t'ma

Etapa 2: especifcaciones

Pr!(o)%''o)!":

Materias Primas.

Recepcin Despacho de Materia PrimaReportes.

Po"$(o)%''o)!": nt(a&a* &ato* ,9+i&o*7 So+o +o* &ato* *' (a1an7

nt(a&a* R'po(t' Gloal de Movimientos de todas lasMaterias Primas ;nt(a&a*- Sa+i&a* . i*t'ncia< 'n un +ap*o &' ti'mpo &'t'(mina&o7

E$#*# +: *#r$'',).

+ p(o1+'ma +o1a+ *' &i,i&i(9 'n 1a*' a +a* opcion'* &'+ m'n5 p(incipa+:

M'n5 P(incipa+ con +a* opcion'* *iui'nt'*:

Mat'(ia* P(ima*7

R'c'pcin@D'*pac6o &' Mat'(ia P(ima

R'po(t'*7

a7 R'po(t' &' Existencia de todas las Materias

Primas

17 R'po(t' Detallado de Movimientos de cada

Materia Prima (ordenado por Materia Prima in&ican&o: nt(a&a*- Sa+i&a* .

i*t'ncia*< pa(a un +ap*o &' ti'mpo &'t'(mina&o7

c7 R'po(t' Gloal de Movimientos de todas las Materias Primas ;nt(a&a*-

Sa+i&a* . i*t'ncia< 'n un +ap*o &' ti'mpo &'t'(mina&o7

Sa+i( &'+ Si*t'ma

7/23/2019 Trabajo 323 2

4/16

E$#*# -: %!')'',) %! #/"$r#'o)!"

n tu(1o pa*ca+ ?7% *' uti+i/an +o* *iui'nt'* coman&o*:!'ctu(a ;('a&- ('a&n+< . '*c(itu(a;(it'- (it'+n< &' &ato*7!impi'/a &' panta++a ;c+*c(

7/23/2019 Trabajo 323 2

5/16

mens = 'Materias Primas, Recepcion_Despacho de Materia Prima,Reportes';tipo

materia_prima = record

odigo ! "ord;

#om$re ! string%&(;

Descripcion ! string;

)nidad ! string%*(;

+echa ! string%*(;

n;

recepcin = record

odigo ! "ord;

+echa_ent ! string%*(;

+echa_sal ! string%*(;

antidad_ent ! integer;

antidad_sal ! integer;

antidad_e-i ! integer;

n;

ar /declaracin de aria$les0

mater ! le o1 materia_prima;

recep ! le o1 recepcion;

datomat ! materia_prima;

datorep !recepcion;

procedimiento guareda_datos2cual ! char3;/procedimiento de guardardatos0

$egin

si cual = 'M' entonces

4nicio de procedimiento

7/23/2019 Trabajo 323 2

6/16

asignar2mater,'Materiap.dat'3;

si ioresult 56 entonces


reescri$ir2mater3;

see72mater,3;

escr$ir2mater,datomat3;

close2mater3;

n

de lo contrario


see72mater,lesi8e2mater33;

escri$ir2mater,datomat3;

close2mater3;

n; n;

si cual = 'R' entonces


assign2recep,'Recepcio.dat'3;



reescri$ir2recep3;

see72recep,3;

escri$ir2recep,datorep3;

close2recep3;

n, de lo contrario


see72recep,lesi8e2recep33;

7/23/2019 Trabajo 323 2

7/16

escri$ir 2recep,datorep3;

n;

n;

n;

procedimientos entrada_materia;

ar

tt ! char;


9impiar pantalla;

escri$ir2' :::: ntradas Materia Primas ::::'3;escri$ir;

escri$ir2' #om$re ! '3;leer2datomat.#om$re3;

escri$ir2' Descripcion ! '3;readln2datomat.Descripcion3;

escri$ir2' )nidad %arra, etc.( ! '3;readln2datomat.)nidad3;

escri$ir2' +echa %dia?mes?a@o( ! '3;readln2datomat.+echa3;

escri$ir;

escri$ir2' Auardamos 9os Datos %B?#('3;

repetir

tt != upcase2read7e@3;

until tt in%'B','#'(;

si tt = 'B' entonce

guareda_datos2'M'3;

n;

procedimiento entrada_recepcion;

ar

tt ! char;

7/23/2019 Trabajo 323 2

8/16


9impiar pantalla;

escri$ir2' :::: ntradas Recepcion ::::'3;

escri$ir;

escri$ir2' odigo ! '3;readln2datorep.odigo3;

escri$ir2' +echa ntrada %D?M?CE( ! '3;readln2datorep.+echa_ent3;

escri$ir2' +echa Balida %D?M?CE( ! '3;readln2datorep.+echa_sal3;

escri$ir2' antidad ntrada entero ! '3;readln2datorep.antidad_ent3;

escri$ir2' antidad Balida entero ! '3;readln2datorep.antidad_sal3;

datorep.antidad_e-i != 2datorep.antidad_ent F datorep.antidad_sal3;

escri$ir;


repetir



si tt = 'B' entonces

guareda_datos2'R'3;

n;

procedimiento salidas_recepcion;

ar

codi ! "ord;

cont ! longint;

enco ! $oolean;

tt ! char;


9impiar pantalla;

7/23/2019 Trabajo 323 2

9/16

escri$ir;

escri$ir2' ntre odigo ! '3;

leer2codi3;

Bi ioresult 56 entonces

4nicio de procedimiento escri$ir2' rror Crchio DaGado o #o -iste Pulse )na ecla'3; read7e@; n

de lo contrario

4nicio de procedimiento enco != 1also;

por cont != to lesi8e2recep3 F * do


see72recep,cont3;

leer 2recep,datorep3;

si datorep.odigo = codi entonces


enco != erdadero; n; n;

si enco = true entonces


escri$ir2' +echa Balida %D?M?CE( ! '3; leer2datorep.+echa_sal3;

escri$ir2' antidad Balida entero ! '3;leer2datorep.antidad_sal3;

escri$ir;


repetir



si tt = 'B' entonces

7/23/2019 Trabajo 323 2

10/16

see72recep,cont3;

escri$ir2recep,datorep3;

n de lo contrario

4nicio de procedimiento escri$ir2' odigo #o ncontrado Pulse )na ecla'3;

n; n;n;

procedimiento reporte_materia_primas;

ar

tec ! char;

cont ! longint;


assign2mater,'Materiap.dat'3;



escri$ir2' rror Crchio DaGado o #o -iste Pulse )na ecla'3;

n

de lo contrario4nicio de procedimiento9impiar pantalla;

cont != ;

repetir

see72mater,cont3;

leer2mater,datomat3;

escri$ir2datorep.odigo3;

escri$ir2datorep.+echa_ent3;

escri$ir2datorep.+echa_sal3;

escri$ir2datorep.antidad_ent3;

escri$ir2datorep.antidad_sal3;

7/23/2019 Trabajo 323 2

11/16

escri$ir2datorep.antidad_e-i3;

escri$ir;

escri$ir2' Her Mas ecla %',chr2IJ3,'(%',chr2IK3,'( Balir %B('3;

tec != read7e@;

si tec = L& entonces


cont != cont *;

si cont 6 lesi8e2mater3 F * entonces

cont != lesi8e2mater3;

n;

si tec = LNI entonces


cont != cont F *;

si cont = entonces

cont != ;

n;

limpiar pantalla;

n;n;

procedimiento report_recepcion;

ar

tc ! char;

cont ! longint;


asgnar2recep,'Recepcio.dat'3;


4nicio de procedimiento escri$ir2' rror Crchio DaGado o #o -iste Pulse )na ecla'3;

7/23/2019 Trabajo 323 2

12/16

n

de lo contrario


cont != ;

repetir

leer 2recep,datorep3;

escri$ir2datomat.#om$re3;

escri$ir2datomat.Descripcion3;

escri$ir2datomat.)nidad3;

escri$ir2datomat.+echa3;

escri$ir;

escri$ir2' Her Mas ecla %',chr2IJ3,'(%',chr2IK3,'( Balir %B('3;

tc != read7e@;

si tc = L& entonces


cont != cont *;

si cont 6 lesi8e2recep3 F * entonces

cont != lesi8e2recep3;

n;

si tc = LNI entonces


cont != cont F *;

si cont = entonces

cont != ;

n;

limpiar pantalla;

n;

7/23/2019 Trabajo 323 2

13/16

n;

procedimiento menu;

ar

tp, tecla ! char;

sam, salir ! $oolean;


salir != 1also;

repetir

limpiar pantalla;

escri$ir;

escri$ir2' :::::: Menu Aeneral ::::::'3;

escri$ir;

escri$ir2' * = Materias Primas '3;

escri$ir2' I = Recepcion_Despacho de Materia Prima'3;

escri$ir2' O = Balida De Materiales'3;

escri$ir2' K = Reportes'3;

escri$ir2' J = Balir'3;

escri$ir;

escri$ir2' 55555 lia Epcion 66666'3;

repetir

tecla != read7e@;

until tecla in%'*','I','O','K','J'(;

limpiar pantalla;

case tecla o1

'*' ! entrada_materia;

'I' ! entrada_recepcion;

'O' ! salidas_recepcion;

7/23/2019 Trabajo 323 2

14/16

'K' ! $egin

sam != 1also;

repetir

limpiar pantalla;

escri$ir;

escri$ir2' :::::: Menu Reporte ::::::'3;

escri$ir;

escri$ir2' M = ateria Prima'3;

escri$ir2' R = ecepcion'3;

escri$ir2' B = alir'3;

escri$ir;

"riteln2' lia Epcion'3;

repetir

tp != upcase2read7e@3;

until tp in%'M','R','B'(;

case tp o1

'M' ! reporte_materia_primas;

'R' ! report_recepcion;

'B' ! sam != erdadero;

n;

until sam = erdadero;

n;

'J' ! salir != erdadero;

end;

until salir = erdadero;

n;


7/23/2019 Trabajo 323 2

15/16

9impiar pantalla ;

menu;

n.

O/0!$'1o 7 *r4!/# %! ro/4"$! 1!r''#',)

R'co(&'mo* +o* conc'pto* &' co(('ccin- (o1u*t'/- amia1i+i&a&7

Un p(o(ama '* co(('cto *i- pa(a cua+8ui'( 'nt(a&a 8u' *ati*0ac'n +ap('con&icin- t'(mina 'n'(an&o una *a+i&a 8u' *ati*0ac' *u po* con&icion'*7

S' &ic' 8u' un p(o(ama '* (o1u*to *i ('5n' +a* &o* con&icion'* *iui'nt'*:

* co(('cto Pa(a to&a* +a* 'nt(a&a* 8u' no *ati*0ac'n +a* p('con&icion'*- '+

p(o(ama t'(mina . p(o&uc' una *a+i&a 8u' ('0+'=a '+ 6'c6o &' 8u' 6a

ocu((i&o un '((o( 'n +a 'nt(a&a7

S' &ic' 8u' un p(o(ama '* amia1+' *i ('5n' +o* ('8ui*ito* *iui'nt'*:

* co(('cto Pa(a to&a* 8u' no *' a=u*t'n a +a* p('con&icion'*- '+ p(o(ama in&ica

'+ tipo &' '((o( &' 'nt(a&a . conc'&' a+ u*ua(io +a opo(tuni&a& &'

co(('i(+o . continua(7

Pa(a ,'(i0ica( +a co(('ccin &'+ p(o(ama- p(',iam'nt' *' '*c(i1' 'n +'nua='

PASCA! . con una ta1+a 8u' '*t4n &'nt(o &' +a* p('con&icion'*7 n '*t' ca*o-*' &'mu'*t(a 8u' '+ p(o(ama '* co(('cto7

n '+ 'nuncia&o &'+ t(a1a=o p(actico *' mu'*t(a +a n'c'*i&a& &' ,a+i&a( +o*

&ato* &' 'nt(a&a- po( +o tanto- 'n +a '+a1o(acin &'+ *'u&oc&io *' toma 'n

cu'nta +o* c(it'(io* &' ,a+i&'/7

+ a+o(itmo &'mu'*t(a *'( co(('cto- &'1i&o a +o* (ano* &' ,a+i&'/ num4(ica-

'* (o1u*to- .a 8u' &'t'cta &ato* 0u'(a &'+ (ano- . mu'*t(a una in0o(macin a+

u*ua(io 8u' +o 6ac' amia1+'7

7/23/2019 Trabajo 323 2

16/16

Objetivo 8 programa codifcado.

l lenguae estQ escrito en lenguae )R>E PCBC9 ersin N. @ se entrega

gra$ado en un cd contentio de los archios necesarios para su correcto

1uncionamiento.

Trabajo 323 2

Documents

Transcript of Trabajo 323 2