Logica_de_Programacao_3_Edicao_Livro

Capítulo 5 Arquivos 1 11 1
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
1n1c10
FichaNova.Nome ~ Fichal.Nome;
FichaNova.Telefone ~ Fichal.Telefone;
FichaNova.DataAlter ~ Fichal.DataAlter;
guarde (AgendaNova, FichaNova);
avance (Agenda!);
fim;
fimse;
se (Ficha2.Tipo0per=''I'')
então inicio
FichaNova.Nome ~ Ficha2.Nome;
FichaNova.Telefone ~ Ficha2.Telefone;
FichaNova.OataAlter ~ Ficha2.0ataAlter;
guarde (AgendaNova, FichaNova);
avance (Agenda2);
fim;
fimse;
se ((Fichal.TipoOper="E") ou (Ficha2.Tipo0per="E"))
então inicio
avance {Agendal);
avance {Agenda2);
fim;
fimse;
se (((Fichal.TipoOper="A") ou (Fichal.TipoOper="")) e
((Ficha2.Tipo0per=''A'') ou (Ficha2.Tipo0per='''')))
então
então . - .
. - .
1n1c10
se ((Fichal.TipoOper="A") e (Ficha2.Tipo0per="A"))
então se (Fichal.OataAlter > Ficha2.0ataAlter)
então inicio
FichaNova.Nome ~ Fichal.Nome;
FichaNova.Telefone ~ Fichal.Telefone;
FichaNova.OataAlter ~ Fichal.OataAlter;
fim;
senão 1n1c10
. - .
FichaNova.Nome ~ Ficha2.Nome;
FichaNova.Telefone ~ Ficha2.Telefone;
FichaNova.DataAlter ~ Ficha2.0ataAlter;
fim;
senão se ((Ficha!. TipoOper="A") e (Ficha2. Ti poOper='"'))
então inicio
senão
~
~
~
~
FichaNova.Nome Fichal.Nome;
FichaNova.Telefone Fichal.Telefone;
FichaNova.OataAlter Fichal.OataAlter;
fim;
1n1c10 . - .
FichaNova.Nome Ficha2.Nome;
(Cm1,ti11ua)